Encode64 Как сделать что бы выводило нормально ключ

[АлександрDelphi]

Сообщение от min@y™

Да.

Я заменил cвой вот этот код на твой и выдает ошибки причем везде
какая то не состыковка

const
Codes64 = 'abcdefghijklmnopqrstuvwxyz./@#$%:";*=-_';
function Encode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '0';
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Ord(s[i]);
b := b * 280 + x;
a := a + 9;
while a >= 7 do
begin
a := a - 7;
x := b div (1 shl a);
b := b mod (1 shl a);
Result := Result + Codes64[x + 1];
end;
end;
if a > 0 then
begin
x := b shl (7 - a);
Result := Result + Codes64[x + 1];
end;
end;
function Decode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;

begin
Result := '';
a := 0;
b := 0;


for i := 10 to Length(s) do
begin
x := Pos(s[i], codes64) - 1;
if x >= 0 then
begin
b := b * 64 + x;
a := a + 7;
if a >= 8 then
begin
a := a - 8;
x := b shr a;
b := b mod (1 shl a);
x := x mod 125;
Result := Result + chr(x);
end;
end
else
Exit;
end;
end;

unit Soap.EncdDecd;

interface

uses System.Classes, System.SysUtils;

procedure EncodeStream(Input, Output: TStream); inline; // deprecated 'Use TNetEncoding.Base64.Encode';
procedure DecodeStream(Input, Output: TStream); inline; // deprecated 'Use TNetEncoding.Base64.Decode';
function  EncodeString(const Input: string): string; inline; // deprecated 'Use TNetEncoding.Base64.Encode';
function  DecodeString(const Input: string): string; inline; // deprecated 'Use TNetEncoding.Base64.Decode';

{$IFDEF NEXTGEN}
function  DecodeBase64(const Input: string): TBytes; inline; // deprecated 'Use TNetEncoding.Base64.DecodeStringToBytes';
function  EncodeBase64(const Input: Pointer; Size: Integer): string; inline; // deprecated 'Use TNetEncoding.Base64.EncodeBytesToString';
{$ELSE !NEXTGEN}
function  DecodeBase64(const Input: AnsiString): TBytes; inline; // deprecated 'Use TNetEncoding.Base64.DecodeStringToBytes';
function  EncodeBase64(const Input: Pointer; Size: Integer): AnsiString; inline; // deprecated 'Use TNetEncoding.Base64.EncodeBytesToString';
{$ENDIF NEXTGEN}
// тут выдает ошибки

implementation

uses System.NetEncoding;

procedure EncodeStream(Input, Output: TStream);
begin
  TNetEncoding.Base64.Encode(Input, Output);
end;

procedure DecodeStream(Input, Output: TStream);
begin
  TNetEncoding.Base64.Decode(Input, Output);
end;

function EncodeString(const Input: string): string;
begin
  Result := TNetEncoding.Base64.Encode(Input);
end;

function DecodeString(const Input: string): string;
begin
  Result := TNetEncoding.Base64.Decode(Input);
end;

{$IFDEF NEXTGEN}
function DecodeBase64(const Input: string): TBytes;
begin
  Result := TNetEncoding.Base64.DecodeStringToBytes(Input);
end;

function EncodeBase64(const Input: Pointer; Size: Integer): string;
begin
 Result := TNetEncoding.Base64.EncodeBytesToString(Input, Size);
end;
{$ELSE !NEXTGEN}
function DecodeBase64(const Input: AnsiString): TBytes;
begin
  Result := TNetEncoding.Base64.DecodeStringToBytes(string(Input));
end;

function EncodeBase64(const Input: Pointer; Size: Integer): AnsiString;
begin
  Result := AnsiString(TNetEncoding.Base64.EncodeBytesToString(Input, Size));
end;
{$ENDIF NEXTGEN}

end.

[min@y™]

Я заменил cвой вот этот код на твой

зачем?

выдает ошибки причем везде

удивительно!

какая то не состыковка

Так и должно быть. ТЫ же задачу не сформулировал.

[koljsch]

АлександрDelphi, мне просто интересно, а в чем собственно назначение программы, которую Вы пишете?

[Аватар]

Как что-то можно писать не имея вообще понятия о делфи. Программу ни кто не пишет, кусочки кода выдергиваются и в одну кучу сваливаюся. Программный монстр франкенштейна получается

[АлександрDelphi]

Сообщение от koljsch

АлександрDelphi, мне просто интересно, а в чем собственно назначение программы, которую Вы пишете?

Как напишу обязательно покажу всем и по благодарю за помощь))

[koljsch]

Полностью согласен с многоуважаемым Аватар.
Сомневаюсь, что с таким подходом у Вас что-то получится.

[АлександрDelphi]

Раз не можете помочь с EnCodes64 как сделать что бы ключ выводило не 56 символом на например 15-30 ?

[koljsch]

АлександрDelphi, Вам уже помогли.
Для начала возьмите любой учебник по Delphi и прочитайте. Поверьте, пользы будет намного больше, чем тут ждать ответа.