base64 Decode\Encode

@ToSTeP · Регистрация: 18.09.2011

Author24 — интернет-сервис помощи студентам

Привет.Подскажите пожалуйста, как декодировать и снова кодировать base64 в делфи? Кинул на форму компоненты Indy, но в функциях так и не разобрался.Прошу помощи

@Ales'hon'ne · 02.10.2011, 13:58

Спёрто с просторов интернета

Delphi

const  
  Cod='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';   
    
function Encode(S:string):string;   
var  
  i,a,b,x: Integer;
begin  
  a:=0;   
  b:=0;   
  for i:=1 to length(s) do  
  begin  
    x:=Ord(s[i]);   
    b:= b*256+x;   
    inc(a,8);   
    while a>=6 do  
    begin  
      dec(a,6);   
      x:=b div (1 shl a);   
      b:=b mod (1 shl a);   
      Result:=Result+Cod[x+1];   
    end;   
  end;   
  if a>0 then  
  begin  
    x:=b shl (6-a);   
    Result:=Result+Cod[x+1];   
  end;   
end;      
    
function Decode(S:string):string;   
var  
  i,a,b,x: Integer;
begin  
  a:=0;   
  b:=0;   
  for i:=1 to length(s) do  
  begin  
    x:=pos(s[i], cod)-1;   
    if x>=0 then  
    begin  
      b:=b*64+x;   
      inc(a,6);   
      if a>=8 then  
      begin  
        dec(a,8);   
        x:=b shr a;   
        b:=b mod (1 shl a);   
        x:=x mod 256;   
        Result:=Result+chr(x);   
      end;   
    end  
    else  
      Exit;   
  end;   
end;

@ToSTeP · 04.10.2011, 16:36 **[ТС]**

Спасибо, уже воспользовался этим кодом:

Delphi

unit Unit4;
 
interface
 
uses
  Windows, SysUtils;
 
function CalcEncodedSize(InSize: DWord): DWord;
function CalcDecodedSize(const InBuffer; InSize: DWord): DWord;
 
procedure Base64Encode(const InBuffer; InSize: DWord; var OutBuffer);
procedure Base64Decode(const InBuffer; InSize: DWord; var OutBuffer);
 
function Base64EncodeString(const InText: AnsiString): AnsiString;
function Base64DecodeString(const InText: AnsiString): AnsiString;
function Base64EncodeToString(const InBuffer; InSize: DWord): AnsiString;
 
implementation
 
const
  cBase64Codec: array[0..63] of AnsiChar =
    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
  Base64Filler: AnsiChar = '=';
 
type
  TAByte = array[0..MaxInt - 1] of Byte;
  TPAByte = ^TAByte;
 
function CalcEncodedSize(InSize: DWord): DWord;
begin
  // no buffers passed along, calculate outbuffer size needed
  Result := (InSize div 3) shl 2;
  if (InSize mod 3) > 0 then
    Inc(Result, 4);
end;
 
function CalcDecodedSize(const InBuffer; InSize: DWord): DWord;
begin
  Result := 0;
  if InSize = 0 then
    Exit;
  if (InSize mod 4 <> 0) then
    Exit;
 
  Result := InSize div 4 * 3;
  if (PByte(DWord(InBuffer) + InSize - 2)^ = Ord(Base64Filler)) then
    Dec(Result, 2)
  else
  if (PByte(DWord(InBuffer) + InSize - 1)^ = Ord(Base64Filler)) then
    Dec(Result);
end;
 
procedure Base64Encode(const InBuffer; InSize: DWord; var OutBuffer);
var
  X: Integer;
  PIn, POut: TPAByte;
  Acc: Cardinal;
begin
  if InSize > 0 then
  begin
    PIn := @InBuffer;
    POut := @OutBuffer;
 
    for X := 1 to InSize div 3 do
    begin
      Acc := PIn^[0] shl 16 + PIn^[1] shl 8 + PIn^[2];
 
      POut^[0] := Byte(cBase64Codec[(Acc shr 18) and $3f]);
      POut^[1] := Byte(cBase64Codec[(Acc shr 12) and $3f]);
      POut^[2] := Byte(cBase64Codec[(Acc shr 6 ) and $3f]);
      POut^[3] := Byte(cBase64Codec[(Acc       ) and $3f]);
 
      Inc(Cardinal(POut), 4);
      Inc(Cardinal(PIn),  3);
    end;
    case InSize mod 3 of
      1 :
      begin
        Acc := PIn^[0] shl 16;
 
        POut^[0] := Byte(cBase64Codec[(Acc shr 18) and $3f]);
        POut^[1] := Byte(cBase64Codec[(Acc shr 12) and $3f]);
        POut^[2] := Byte(Base64Filler);
        POut^[3] := Byte(Base64Filler);
      end;
      2 :
      begin
        Acc := PIn^[0] shl 16 + PIn^[1] shl 8;
 
        POut^[0] := Byte(cBase64Codec[(Acc shr 18) and $3f]);
        POut^[1] := Byte(cBase64Codec[(Acc shr 12) and $3f]);
        POut^[2] := Byte(cBase64Codec[(Acc shr 6 ) and $3f]);
        POut^[3] := Byte(Base64Filler);
      end;
    end;
  end;
end;
 
procedure Base64Decode(const InBuffer; InSize: DWord; var OutBuffer);
const
  cBase64Codec: array[0..255] of Byte =
  (
    $FF, $FF, $FF, $FF, $FF, {005>} $FF, $FF, $FF, $FF, $FF, // 000..009
    $FF, $FF, $FF, $FF, $FF, {015>} $FF, $FF, $FF, $FF, $FF, // 010..019
    $FF, $FF, $FF, $FF, $FF, {025>} $FF, $FF, $FF, $FF, $FF, // 020..029
    $FF, $FF, $FF, $FF, $FF, {035>} $FF, $FF, $FF, $FF, $FF, // 030..039
    $FF, $FF, $FF, $3E, $FF, {045>} $FF, $FF, $3F, $34, $35, // 040..049
    $36, $37, $38, $39, $3A, {055>} $3B, $3C, $3D, $FF, $FF, // 050..059
    $FF, $00, $FF, $FF, $FF, {065>} $00, $01, $02, $03, $04, // 060..069
    $05, $06, $07, $08, $09, {075>} $0A, $0B, $0C, $0D, $0E, // 070..079
    $0F, $10, $11, $12, $13, {085>} $14, $15, $16, $17, $18, // 080..089
    $19, $FF, $FF, $FF, $FF, {095>} $FF, $FF, $1A, $1B, $1C, // 090..099
    $1D, $1E, $1F, $20, $21, {105>} $22, $23, $24, $25, $26, // 100..109
    $27, $28, $29, $2A, $2B, {115>} $2C, $2D, $2E, $2F, $30, // 110..119
    $31, $32, $33, $FF, $FF, {125>} $FF, $FF, $FF, $FF, $FF, // 120..129
    $FF, $FF, $FF, $FF, $FF, {135>} $FF, $FF, $FF, $FF, $FF, // 130..139
    $FF, $FF, $FF, $FF, $FF, {145>} $FF, $FF, $FF, $FF, $FF, // 140..149
    $FF, $FF, $FF, $FF, $FF, {155>} $FF, $FF, $FF, $FF, $FF, // 150..159
    $FF, $FF, $FF, $FF, $FF, {165>} $FF, $FF, $FF, $FF, $FF, // 160..169
    $FF, $FF, $FF, $FF, $FF, {175>} $FF, $FF, $FF, $FF, $FF, // 170..179
    $FF, $FF, $FF, $FF, $FF, {185>} $FF, $FF, $FF, $FF, $FF, // 180..189
    $FF, $FF, $FF, $FF, $FF, {195>} $FF, $FF, $FF, $FF, $FF, // 190..199
    $FF, $FF, $FF, $FF, $FF, {205>} $FF, $FF, $FF, $FF, $FF, // 200..209
    $FF, $FF, $FF, $FF, $FF, {215>} $FF, $FF, $FF, $FF, $FF, // 210..219
    $FF, $FF, $FF, $FF, $FF, {225>} $FF, $FF, $FF, $FF, $FF, // 220..229
    $FF, $FF, $FF, $FF, $FF, {235>} $FF, $FF, $FF, $FF, $FF, // 230..239
    $FF, $FF, $FF, $FF, $FF, {245>} $FF, $FF, $FF, $FF, $FF, // 240..249
    $FF, $FF, $FF, $FF, $FF, {255>} $FF                      // 250..255
  );
var
  X, Y: Integer;
  PIn, POut: TPAByte;
  Acc : dword;
begin
  if (InSize > 0) and (InSize mod 4 = 0) then
  begin
    InSize := InSize shr 2;
    PIn := @InBuffer;
    POut := @OutBuffer;
 
    for X := 1 to InSize - 1 do
    begin
      Acc := 0;
      Y := -1;
 
      repeat
        Inc(Y);
        Acc := Acc shl 6;
        Acc := Acc or cBase64Codec[PIn^[Y]];
      until Y = 3;
 
      POut^[0] := Acc shr 16;
      POut^[1] := Byte(Acc shr 8);
      POut^[2] := Byte(Acc);
 
      Inc(Cardinal(PIn),  4);
      Inc(Cardinal(POut), 3);
    end;
    Acc := 0;
    Y := -1;
 
    repeat
      Inc(Y);
      Acc := Acc shl 6;
 
      if PIn^[Y] = Byte(Base64Filler) then
      begin
        if Y = 3 then
        begin
          POut^[0] := Acc shr 16;
          POut^[1] := Byte(Acc shr 8);
        end
        else
          POut^[0] := Acc shr 10;
        Exit;
      end;
 
      Acc := Acc or cBase64Codec[PIn^[Y]];
    until Y = 3;
 
    POut^[0] := Acc shr 16;
    POut^[1] := Byte(Acc shr 8);
    POut^[2] := Byte(Acc);
  end;
end;
 
procedure Base64EncodeStr(const InText: AnsiString; var OutText: AnsiString);
var
  InSize, OutSize: DWord;
  PIn, POut: Pointer;
begin
  // get size of source
  InSize := Length(InText);
  // calculate size for destination
  OutSize := CalcEncodedSize(InSize);
 
  // prepare AnsiString length to fit result data
  SetLength(OutText, OutSize);
 
  if OutSize > 0 then
  begin
    PIn := @InText[1];
    POut := @OutText[1];
 
    // encode !
    Base64Encode(PIn^, InSize, POut^);
  end;
end;
 
procedure Base64DecodeStr(const InText: AnsiString; var OutText: AnsiString);
var
  InSize, OutSize: DWord;
  PIn, POut: Pointer;
begin
  // get size of source
  InSize := Length(InText);
  // calculate size for destination
  PIn := @InText[1];
  OutSize := CalcDecodedSize(PIn, InSize);
 
  // prepare AnsiString length to fit result data
  SetLength(OutText, OutSize);
 
  if OutSize > 0 then
  begin
    FillChar(OutText[1], OutSize, '.');
    POut := @OutText[1];
 
    // encode !
    Base64Decode(PIn^, InSize, POut^);
  end;
end;
 
function Base64EncodeString(const InText: AnsiString): AnsiString;
begin
  Base64EncodeStr(InText, Result);
end;
 
function Base64DecodeString(const InText: AnsiString): AnsiString;
begin
  Base64DecodeStr(InText, Result);
end;
 
function Base64EncodeToString(const InBuffer; InSize: DWord): AnsiString;
var
  POut: Pointer;
begin
  SetLength(Result, CalcEncodedSize(InSize));
  POut := @Result[1];
  Base64Encode(InBuffer, InSize, POut^);
end;
 
end.

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

Delphi

S:=idhttp1.Post('sait',postdata);
Memo1.Clear;
Memo1.Lines[0]:=S;
Memo3.Lines[0]:=Unit4.Base64encodeString('LOXLOXLOX');
Memo2.Lines[0]:=Unit4.Base64DecodeString(S); // здесь S=1JlX21EwIiwiZXF1aXBtZW50X2V4dHJhX3JlcGJvdF9yZXAtcyIsInJlc291cmNlX2Jvb3R5LWtleSIsInJlc291cmNlX2JsdWVwcmludF9hcGlzLXBhcnQiXX19fQ...

Но если декодировать скажем так просто 'ZXF1aXBtZW50' или

Delphi

1 2	ISW:='ZXF1aXBtZW50''; Memo2.Lines[0]:=Unit4.Base64DecodeString(ISW);

То все нормально?

Комментарий модератора

Используйте теги кода, соответствующие правилам форума!

Cheb · 15.05.2012, 15:08

Сообщение от Ales'hon'ne

Спёрто с просторов интернета

эта хрень не работает!
Работает код ToSTeP-а!

@forenheith · 07.12.2016, 12:11

Не работает ни один из примеров. С кодировкой кириллицы например не справляются.

@Mawrat · 07.12.2016, 19:51

В Delphi есть готовый модуль для работы с Base64. Пример использования: Преобразование картинки в base64.

@ToSTeP 0 / 0 / 0 Регистрация: 18.09.2011 Сообщений: 12
		1
	base64 Decode\Encode 01.10.2011, 17:07. Показов 39226. Ответов 5 Метки нет (Все метки) Привет.Подскажите пожалуйста, как декодировать и снова кодировать base64 в делфи? Кинул на форму компоненты Indy, но в функциях так и не разобрался.Прошу помощи 0

Cheb 92 / 59 / 8 Регистрация: 09.11.2011 Сообщений: 443
	15.05.2012, 15:08	4
	Сообщение от Ales'hon'ne Спёрто с просторов интернета эта хрень не работает! Работает код ToSTeP-а! 0

@forenheith 0 / 0 / 0 Регистрация: 18.02.2015 Сообщений: 6
	07.12.2016, 12:11	5
	Не работает ни один из примеров. С кодировкой кириллицы например не справляются. 0

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	07.12.2016, 19:51	6
	В Delphi есть готовый модуль для работы с Base64. Пример использования: Преобразование картинки в base64. 0

Опции темы