Base64编码/解码Delphi源码
Unit CnBase64;
Interface
Uses
SysUtils, Windows;
Function Base64Encode(InputData: String; Var OutputData: String): byte;
{* 对数据进行BASE64编码，如编码成功返回Base64_OK
|<PRE>
InputData:string - 要编码的数据
var OutputData: string - 编码后的数据
|</PRE>}
Function Base64Decode(InputData: String; Var OutputData: String): byte;
{* 对数据进行BASE64解码，如解码成功返回Base64_OK
|<PRE>
InputData:string - 要解码的数据
var OutputData: string - 解码后的数据
|</PRE>}
Const
BASE64_OK = 0; // 转换成功
BASE64_ERROR = 1;
// 转换错误（未知错误） (e.g. can't encode octet in input stream) -> error in implementation
BASE64_INVALID = 2;
// 输入的字符串中有非法字符 (在 FilterDecodeInput=False 时可能出现)
BASE64_LENGTH = 3; // 数据长度非法
BASE64_DATALEFT = 4;
// too much input data left (receveived 'end of encoded data' but not end of input string)
BASE64_PADDING = 5; // 输入的数据未能以正确的填充字符结束
Implementation
Var
FilterDecodeInput: Boolean = true;
Const
Base64TableLength = 64;
Base64Table : String[Base64TableLength] =
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+*';
Pad = '=';
Function Base64Encode(InputData: String; Var OutputData: String): byte;
Var
i : integer;
CurrentB, PrevB : byte;
c : byte;
s : char;
InputLength : integer;
Function ValueToCharacter(value: byte; Var character: char): Boolean;
//******************************************************************
// 将一个在0..Base64TableLength-1区间内的值，转换为与Base64编码相对应
// 的字符来表示，如果转换成功则返回True
//******************************************************************
Begin
result := true;
If (value > Base64TableLength - 1) Then
result := false
Else
character := Base64Table[value + 1];
End;
Begin
OutputData := '';
InputLength := Length(InputData);
i := 1;
If (InputLength = 0) Then Begin
result := BASE64_OK;
Exit;
End;
Repeat
// 第一次转换
CurrentB := Ord(InputData[i]);
i := i + 1;
InputLength := InputLength - 1;
c := (CurrentB Shr 2);
If Not ValueToCharacter(c, s) Then Begin
result := BASE64_ERROR;
Exit;
End;
OutputData := OutputData + s;
PrevB := CurrentB;
// 第二次转换
If InputLength = 0 Then
CurrentB := 0
Else Begin
CurrentB := Ord(InputData[i]);
i := i + 1;
End;
InputLength := InputLength - 1;
c := (PrevB And $03) Shl 4 + (CurrentB Shr 4);
//取出XX后4位并将其左移4位与XX右移4位合并成六位
If Not ValueToCharacter(c, s) Then
{//检测取得的字符是否在Base64Table内} Begin
result := BASE64_ERROR;
Exit;
End;
OutputData := OutputData + s;
PrevB := CurrentB;
// 第三次转换
If InputLength < 0 Then
s := Pad
Else Begin
If InputLength = 0 Then
CurrentB := 0
Else Begin
CurrentB := Ord(InputData[i]);
i := i + 1;
End;
InputLength := InputLength - 1;
c := (PrevB And $0F) Shl 2 + (CurrentB Shr 6);
//取出XX后4位并将其左移2位与XX右移6位合并成六位
If Not ValueToCharacter(c, s) Then
{//检测取得的字符是否在Base64Table内} Begin
result := BASE64_ERROR;
Exit;
End;
End;
OutputData := OutputData + s;
// 第四次转换
If InputLength < 0 Then
s := Pad
Else Begin
c := (CurrentB And $3F); //取出XX后6位
If Not ValueToCharacter(c, s) Then
{//检测取得的字符是否在Base64Table内} Begin
result := BASE64_ERROR;
Exit;
End;
End;
OutputData := OutputData + s;
Until InputLength <= 0;
result := BASE64_OK;
End;
Function Base64Decode(InputData: String; Var OutputData: String): byte;
Var
i : integer;
InputLength : integer;
CurrentB, PrevB : byte;
c : byte;
s : char;
Function CharacterToValue(character: char; Var value: byte): Boolean;
//******************************************************************
// 转换字符为一在0..Base64TableLength-1区间中的值，如果转换成功则返
// 回True(即字符在Base64Table中)
//******************************************************************
Begin
result := true;
value := Pos(character, Base64Table);
If value = 0 Then
result := false
Else
value := value - 1;
End;
Function FilterLine(InputData: String): String;
//******************************************************************
// 过滤所有不在Base64Table中的字符，返回值为过滤后的字符
//******************************************************************
Var
F : byte;
i : integer;
Begin
result := '';
For i := 1 To Length(InputData) Do
If CharacterToValue(InputData[i], F) Or (InputData[i] = Pad) Then
result := result + InputData[i];
End;
Begin
If (InputData = '') Then Begin
result := BASE64_OK;
Exit;
End;
OutputData := '';
If FilterDecodeInput Then
InputData := FilterLine(InputData);
InputLength := Length(InputData);
If InputLength Mod 4 <> 0 Then Begin
result := BASE64_LENGTH;
Exit;
End;
i := 0;
Repeat
// 第一次转换
i := i + 1;
s := InputData[i];
If Not CharacterToValue(s, CurrentB) Then Begin
result := BASE64_INVALID;
Exit;
End;
i := i + 1;
s := InputData[i];
If Not CharacterToValue(s, PrevB) Then Begin
result := BASE64_INVALID;
Exit;
End;
c := (CurrentB Shl 2) + (PrevB Shr 4);
OutputData := OutputData + Chr(c);
// 第二次转换
i := i + 1;
s := InputData[i];
If s = Pad Then Begin
If (i <> InputLength - 1) Then Begin
result := BASE64_DATALEFT;
Exit;
End
Else
If InputData[i + 1] <> Pad Then Begin
result := BASE64_PADDING;
Exit;
End;
End
Else Begin
If Not CharacterToValue(s, CurrentB) Then Begin
result := BASE64_INVALID;
Exit;
End;
c := (PrevB Shl 4) + (CurrentB Shr 2);
OutputData := OutputData + Chr(c);
End;
// 第三次转换
i := i + 1;
s := InputData[i];
If s = Pad Then Begin
If (i <> InputLength) Then Begin
result := BASE64_DATALEFT;
Exit;
End;
End
Else Begin
If Not CharacterToValue(s, PrevB) Then Begin
result := BASE64_INVALID;
Exit;
End;
c := (CurrentB Shl 6) + (PrevB);
OutputData := OutputData + Chr(c);
End;
Until (i >= InputLength);
result := BASE64_OK;
End;
End.
=======================================================================================
Uses CnBase64；
CnBase64.Base64Encode(Edit1.Text, Psw64);
