unit Base64Unit;

小灰灰 2022-01-05 15:59 208阅读 0赞

unit Base64Unit;
    
    unit Base64Unit;
    //Download by http://www.codefans.net
    interface
    
    uses
      Classes, SysUtils;
    
      function Base64Encryption(const Input:String):String;
      function Base64Decryption(const Input:String):String;
    
    implementation
    
    const
      BASE64Table : array[0..63] of Char = ( #65,  #66,  #67,  #68,  #69,
             #70,  #71,  #72,  #73,  #74,  #75,  #76,  #77,  #78,  #79,
             #80,  #81,  #82,  #83,  #84,  #85,  #86,  #87,  #88,  #89,
             #90,  #97,  #98,  #99, #100, #101, #102, #103, #104, #105,
            #106, #107, #108, #109, #110, #111, #112, #113, #114, #115,
            #116, #117, #118, #119, #120, #121, #122,  #48,  #49,  #50,
             #51,  #52,  #53,  #54,  #55,  #56,  #57,  #43,  #47);
    
    const
      BASE64DeTable : array[43..122] of Byte = ($3E, $7F, $7F, $7F, $3F, $34,
          $35, $36, $37, $38, $39, $3A, $3B, $3C, $3D, $7F, $7F, $7F, $7F,
          $7F, $7F, $7F, $00, $01, $02, $03, $04, $05, $06, $07, $08, $09,
          $0A, $0B, $0C, $0D, $0E, $0F, $10, $11, $12, $13, $14, $15, $16,
          $17, $18, $19, $7F, $7F, $7F, $7F, $7F, $7F, $1A, $1B, $1C, $1D,
          $1E, $1F, $20, $21, $22, $23, $24, $25, $26, $27, $28, $29, $2A,
          $2B, $2C, $2D, $2E, $2F, $30, $31, $32, $33);
    
    
    //BASE64算法流加密
    procedure EncodeStream(InStream, OutStream : TStream);
    var
      I, O, Count : Integer;
      InBuf  : array[1..45] of Byte;
      OutBuf : array[0..62] of Char;
      Temp : Byte;
    begin
      FillChar(OutBuf, Sizeof(OutBuf), #0);
    
      repeat
        Count := InStream.Read(InBuf, SizeOf(InBuf));
        if Count = 0 then Break;
        I := 1;
        O := 0;
        while I <= (Count-2) do begin
          { 编码第一个字节 }
          Temp := (InBuf[I] shr 2);
          OutBuf[O] := Char(BASE64Table[Temp and $3F]);
    
          { 编码第二个字节 }
          Temp := (InBuf[I] shl 4) or (InBuf[I+1] shr 4);
          OutBuf[O+1] := Char(BASE64Table[Temp and $3F]);
    
          { 编码第三个字节 }
          Temp := (InBuf[I+1] shl 2) or (InBuf[I+2] shr 6);
          OutBuf[O+2] := Char(BASE64Table[Temp and $3F]);
    
          { 编码第四个字节 }
          Temp := (InBuf[I+2] and $3F);
          OutBuf[O+3] := Char(BASE64Table[Temp]);
    
          Inc(I, 3);
          Inc(O, 4);
        end;
    
        if (I <= Count) then begin
          Temp := (InBuf[I] shr 2);
          OutBuf[O] := Char(BASE64Table[Temp and $3F]);
    
          { 一个奇数字节 }
          if I = Count then begin
            Temp := (InBuf[I] shl 4) and $30;
            OutBuf[O+1] := Char(BASE64Table[Temp and $3F]);
            OutBuf[O+2] := '=';
          { 两个基数字节 }
          end else begin
            Temp := ((InBuf[I] shl 4) and $30) or ((InBuf[I+1] shr 4) and $0F);
            OutBuf[O+1] := Char(BASE64Table[Temp and $3F]);
            Temp := (InBuf[I+1] shl 2) and $3C;
            OutBuf[O+2] := Char(BASE64Table[Temp and $3F]);
          end;
          { 增加= }
          OutBuf[O+3] := '=';
          Inc(O, 4);
        end;
    
        { 把编码好的块写到流中 }
        OutStream.Write(OutBuf, O);
      until Count < SizeOf(InBuf);
    end;
    
    //BASE64算法流解密
    procedure DecodeStream(InStream, OutStream : TStream);
    var
      I, O, Count, c1, c2, c3 : Byte;
      InBuf  : array[0..87] of Byte;
      OutBuf : array[0..65] of Byte;
    begin
      repeat
        O := 0;
        I := 0;
    
        Count := InStream.Read(InBuf, SizeOf(InBuf));
        if (Count = 0) then
          Break;
    
        { 解密的数据输入到流中 }
        while I < Count do begin
          if (InBuf[I] < 43) or (InBuf[I] > 122) or
             (InBuf[I+1] < 43) or (InBuf[I+1] > 122) or
             (InBuf[I+2] < 43) or (InBuf[I+2] > 122) or
             (InBuf[I+3] < 43) or (InBuf[I+3] > 122) then
            raise Exception.Create('Invalid Base64 Character');
    
          c1 := BASE64DeTable[InBuf[I]];
          c2 := BASE64DeTable[InBuf[I+1]];
          c3 := BASE64DeTable[InBuf[I+2]];
          OutBuf[O] := ((c1 shl 2) or (c2 shr 4));
          Inc(O);
          if Char(InBuf[I+2]) <> '=' then begin
            OutBuf[O] := ((c2 shl 4) or (c3 shr 2));
            Inc(O);
            if Char(InBuf[I+3]) <> '=' then begin
              OutBuf[O] := ((c3 shl 6) or BASE64DeTable[InBuf[I+3]]);
              Inc(O);
            end;
          end;
          Inc(I, 4);
        end;
        OutStream.Write(OutBuf, O);
      until Count < SizeOf(InBuf);
    end;
    
    //BASE64算法字符串加密
    function Base64Encryption(const Input:String):String;
    var
      InStream  : TMemoryStream;
      OutStream : TMemoryStream;
    begin
      InStream := TMemoryStream.Create;
      OutStream := TMemoryStream.Create;
    
      InStream.Write(Input[1], Length(Input));
      InStream.Position := 0;
      EncodeStream(InStream, OutStream);
      OutStream.Position := 0;
      SetLength(Result, OutStream.Size);
      OutStream.Read(Result[1], OutStream.Size);
    
      InStream.Free;
      OutStream.Free;
    end;
    
    //BASE64算法字符串解密
    function Base64Decryption(const Input:String):String;
    var
      InStream  : TMemoryStream;
      OutStream : TMemoryStream;
    begin
      InStream := TMemoryStream.Create;
      OutStream := TMemoryStream.Create;
    
      InStream.Write(Input[1], Length(Input));
      InStream.Position := 0;
      DecodeStream(InStream, OutStream);
      OutStream.Position := 0;
      SetLength(Result, OutStream.Size);
      OutStream.Read(Result[1], OutStream.Size);
    
      InStream.Free;
      OutStream.Free;
    end;
    
    end.

procedure TForm1.Button1Click(Sender: TObject);  
begin  
Edit2.Text:=BASE64Encryption(Edit1.Text);  
end;

procedure TForm1.Button2Click(Sender: TObject);  
begin  
Edit4.Text:=BASE64Decryption(Edit3.Text);  
end;

转载于:https://www.cnblogs.com/chenmfly/p/4537438.html