//Base64编码

function TfrmBase1.Encode_Base64(AValue: string): string;

var

I         : Integer;

TmpChar,

CurrentChar,        //当前要加密的字符

NextChar,

ThirdChar : Byte;   //下一个要加密的字符

ResString : string; //存放Base64以后的临时结果

Count     : Integer;

begin

Result := '';

ResString := '';

Count := Length(AValue);

I := 1;

if AValue <> '' then

begin

repeat

//1、将第一个字符右移两位并取得其对应Base64表中的目标字符

CurrentChar := Ord(AValue[I]);             //取得第一个字符在ASCII表中的序号

I := I + 1;

Dec(Count);                                //每进入一次循环计数器减1

TmpChar := CurrentChar shr 2;              //右移两位因为只取其前六位，数值上相当于除4

ResString := ResString + Base64Table[TmpChar + 1];     //加1是因为Base64表中是从0开始

//2、将当前字符左移四位加上下一个字符右移四位 获得下一个要的字符

//如果此时已超过字符串长度则赋0

if Count = 0 then

NextChar := 0

else

begin

NextChar := Ord(AValue[I]);

I := I + 1;

end;

Dec(Count);                                //每进入一次循环计数器减1

TmpChar := ((CurrentChar and $03) shl 4) + (NextChar shr 4);

ResString := ResString + Base64Table[TmpChar + 1];

//3、第二个字符左移2位加上第三个字符右移6位，获得第三个目标字符

if Count

ResString := ResString + '='

else

begin

begin

if Count = 0 then

ThirdChar := 0

else

begin

ThirdChar := Ord(AValue[I]);

I := I + 1;

end;

end;

Dec(Count);                                //每进入一次循环计数器减1

TmpChar := ((NextChar and $0F) shl 2) + (ThirdChar shr 6);

ResString := ResString + Base64Table[TmpChar + 1];

end;

//4、取第三个字符的后六位

if Count

ResString := ResString + '='

else

begin

TmpChar := ThirdChar and $3F;

ResString := ResString + Base64Table[TmpChar + 1];

end;

Result := ResString;

until Count <= 0;

end;

end;

//Base64解码

function TfrmBase1.DeEncode_Base64(AValue: string): string;

var

I         : Integer;

TmpChar   : Char;

CurrentChar,        //当前要加密的字符

NextChar,

ThirdChar : Byte;   //下一个要加密的字符

ResString : string; //存放Base64以后的临时结果

Count     : Integer;//作为计数器使用

begin

Result := '';

ResString := '';

Count := 0;

//提前判断要解码的字符串是否正常

for I := 0 to Length(AValue) - 1 do

begin

if Pos(AValue[I + 1], Base64TableCheck) = 0 then

begin

Application.MessageBox('Base64解码错误,原因：有字符越界!', '解码出错',

MB_OK + MB_ICONSTOP);

Exit;

end;

end;

I := 1;                 //放在循环之后

if AValue <> '' then

begin

repeat

//第一次转换

if Count <= Length(AValue) then

begin

TmpChar := AValue[I];

I := I + 1;

inc(Count);

CurrentChar := Pos(TmpChar, Base64Table) - 1; //此处因Base64表从0开始

TmpChar := AValue[I];

NextChar := Pos(TmpChar, Base64Table) - 1;

ResString := ResString + chr((CurrentChar shl 2) + (NextChar shr 4));

end;

//2

I := I + 1;

inc(Count);

if Count <= Length(AValue) then

begin

TmpChar := AValue[I];

if TmpChar <> '=' then

begin

ThirdChar := Pos(TmpChar, Base64Table) - 1;

ResString := ResString + chr((NextChar shl 4) + (ThirdChar shr 2));

end;

end;

//3

I := I + 1;

inc(Count);

if Count <= Length(AValue) then

begin

TmpChar := AValue[I];

if TmpChar <> '=' then

begin

CurrentChar := Pos(TmpChar, Base64Table) - 1;

ResString := ResString + chr((ThirdChar shl 6) + (CurrentChar));

end;

end;

I := I + 1;    //此处一定要注意增加变量

inc(Count);

until Count >= Length(AValue);

Result := ResString;

end;

end;