(**************************************************************)(*     Advanced Encryption Standard (AES)                     *)(*     Interface Unit v1.3                                    *)(*                                                            *)(*     Copyright (c) 2002 Jorlen Young                        *)(*                                                            *)(* 说明：                                                     *)(*    基于 ElASE.pas 单元封装                                 *)(*                                                            *)(*    这是一个 AES 加密算法的标准接口。                       *)(* 调用示例：                                                 *)(* if not EncryptStream(src, key, TStream(Dest), keybit) then *)(*   showmessage(‘encrypt error‘);                            *)(*                                                            *)(* if not DecryptStream(src, key, TStream(Dest), keybit) then *)(*   showmessage(‘encrypt error‘);                            *)(*                                                            *)(* *** 一定要对Dest进行TStream(Dest) ***                      *)(* ========================================================== *)(*                                                            *)(*   支持 128 / 192 / 256 位的密匙                            *)(*   默认情况下按照 128 位密匙操作                            *)(*                                                            *)(**************************************************************)unit AES;                  interface{$IFDEF VER210}  {$WARN IMPLICIT_STRING_CAST OFF} //关闭警告  {$WARN IMPLICIT_STRING_CAST_LOSS OFF}{$ENDIF}uses  SysUtils, Classes, Math, ElAES;const  SDestStreamNotCreated = ‘Dest stream not created.‘;  SEncryptStreamError = ‘Encrypt stream error.‘;  SDecryptStreamError = ‘Decrypt stream error.‘;type  TKeyBit = (kb128, kb192, kb256);function StrToHex(Const str: AnsiString): AnsiString;function HexToStr(const Str: AnsiString): AnsiString;function EncryptString(Value: AnsiString; Key: AnsiString;  KeyBit: TKeyBit = kb128): AnsiString;function DecryptString(Value: AnsiString; Key: AnsiString;  KeyBit: TKeyBit = kb128): AnsiString;function EncryptStream(Src: TStream; Key: AnsiString;  var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;function DecryptStream(Src: TStream; Key: AnsiString;  var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;procedure EncryptFile(SourceFile, DestFile: String;  Key: AnsiString; KeyBit: TKeyBit = kb128);procedure DecryptFile(SourceFile, DestFile: String;  Key: AnsiString; KeyBit: TKeyBit = kb128);implementationfunction StrToHex(Const str: Ansistring): Ansistring;asm    push ebx    push esi    push edi    test eax,eax    jz   @@Exit    mov  esi,edx       //保存edx值，用来产生新字符串的地址    mov  edi,eax       //保存原字符串    mov  edx,[eax-4]  //获得字符串长度    test edx,edx      //检查长度    je   @@Exit      {Length(S) = 0}    mov  ecx,edx       //保存长度    Push ecx    shl  edx,1    mov  eax,esi    {$IFDEF VER210}    movzx ecx, word ptr [edi-12] {需要设置CodePage}    {$ENDIF}    call System.@LStrSetLength //设置新串长度    mov  eax,esi       //新字符串地址    Call UniqueString  //产生一个唯一的新字符串，串位置在eax中    Pop   ecx  @@SetHex:    xor  edx,edx       //清空edx    mov  dl, [edi]     //Str字符串字符    mov  ebx,edx       //保存当前的字符    shr  edx,4         //右移4字节，得到高8位    mov  dl,byte ptr[edx+@@HexChar] //转换成字符    mov  [eax],dl      //将字符串输入到新建串中存放    and  ebx,$0F       //获得低8位    mov  dl,byte ptr[ebx+@@HexChar] //转换成字符    inc  eax             //移动一个字节,存放低位    mov  [eax],dl    inc  edi    inc  eax    loop @@SetHex  @@Exit:    pop  edi    pop  esi    pop  ebx    ret  @@HexChar: db ‘0123456789ABCDEF‘end;function HexToStr(const Str: AnsiString): AnsiString;asm  push ebx  push edi  push esi  test eax,eax //为空串  jz   @@Exit  mov  edi,eax  mov  esi,edx  mov  edx,[eax-4]  test edx,edx  je   @@Exit  mov  ecx,edx  push ecx  shr  edx,1  mov  eax,esi //开始构造字符串  {$IFDEF VER210}  movzx ecx, word ptr [edi-12] {需要设置CodePage}  {$ENDIF}  call System.@LStrSetLength //设置新串长度  mov  eax,esi       //新字符串地址  Call UniqueString  //产生一个唯一的新字符串，串位置在eax中  Pop   ecx  xor  ebx,ebx  xor  esi,esi@@CharFromHex:  xor  edx,edx  mov  dl, [edi]     //Str字符串字符  cmp  dl, ‘0‘  //查看是否在0到f之间的字符  JB   @@Exit   //小于0，退出  cmp  dl,‘9‘   //小于=9  ja  @@DoChar//CompOkNum  sub  dl,‘0‘  jmp  @@DoConvert@@DoChar:  //先转成大写字符  and  dl,$DF  cmp  dl,‘F‘  ja   @@Exit  //大于F退出  add  dl,10  sub  dl,‘A‘@@DoConvert: //转化  inc  ebx  cmp  ebx,2  je   @@Num1  xor  esi,esi  shl  edx,4  mov  esi,edx  jmp  @@Num2@@Num1:  add  esi,edx  mov  edx,esi  mov  [eax],dl  xor  ebx,ebx  inc  eax@@Num2:  dec  ecx  inc  edi  test ecx,ecx  jnz  @@CharFromHex@@Exit:  pop  esi  pop  edi  pop  ebxend;{  --  字符串加密函数 默认按照 128 位密匙加密 --  }function EncryptString(Value: AnsiString; Key: AnsiString;  KeyBit: TKeyBit = kb128): AnsiString;var  {$IFDEF VER210}  SS,DS: TMemoryStream;  {$ELSE}  SS, DS: TStringStream;  {$ENDIF}  Size: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;  st: AnsiString;begin  Result := ‘‘;  {$IFDEF VER210}    ss := TMemoryStream.Create;    SS.WriteBuffer(PAnsiChar(Value)^,Length(Value));    DS := TMemoryStream.Create;  {$ELSE}    SS := TStringStream.Create(Value);    DS := TStringStream.Create(‘‘);  {$ENDIF}  try    Size := SS.Size;    DS.WriteBuffer(Size, SizeOf(Size));    {  --  128 位密匙最大长度为 16 个字符 --  }    if KeyBit = kb128 then    begin      FillChar(AESKey128, SizeOf(AESKey128), 0 );      Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));      EncryptAESStreamECB(SS, 0, AESKey128, DS);    end;    {  --  192 位密匙最大长度为 24 个字符 --  }    if KeyBit = kb192 then    begin      FillChar(AESKey192, SizeOf(AESKey192), 0 );      Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));      EncryptAESStreamECB(SS, 0, AESKey192, DS);    end;    {  --  256 位密匙最大长度为 32 个字符 --  }    if KeyBit = kb256 then    begin      FillChar(AESKey256, SizeOf(AESKey256), 0 );      Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));      EncryptAESStreamECB(SS, 0, AESKey256, DS);    end;    {$IFDEF VER210}      SetLength(st,Ds.Size);      DS.Position := 0;      DS.ReadBuffer(PAnsiChar(st)^,DS.Size);      Result := StrToHex(st);    {$ELSE}      Result := StrToHex(DS.DataString);    {$ENDIF}  finally    SS.Free;    DS.Free;  end;end;{  --  字符串解密函数 默认按照 128 位密匙解密 --  }function DecryptString(Value: AnsiString; Key: AnsiString;  KeyBit: TKeyBit = kb128): AnsiString;var  SS, DS: TStringStream;  Size: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;begin  Result := ‘‘;  SS := TStringStream.Create(HexToStr(Value));  DS := TStringStream.Create(‘‘);  try    Size := SS.Size;    SS.ReadBuffer(Size, SizeOf(Size));    {  --  128 位密匙最大长度为 16 个字符 --  }    if KeyBit = kb128 then    begin      FillChar(AESKey128, SizeOf(AESKey128), 0 );      Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);    end;    {  --  192 位密匙最大长度为 24 个字符 --  }    if KeyBit = kb192 then    begin      FillChar(AESKey192, SizeOf(AESKey192), 0 );      Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);    end;    {  --  256 位密匙最大长度为 32 个字符 --  }    if KeyBit = kb256 then    begin      FillChar(AESKey256, SizeOf(AESKey256), 0 );      Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS);    end;    Result := DS.DataString;  finally    SS.Free;    DS.Free;  end;end;{ 流加密函数, default keybit: 128bit }function EncryptStream(Src: TStream; Key: AnsiString;  var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;var  Count: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;begin  if Dest = nil then  begin    raise Exception.Create(SDestStreamNotCreated);    Result:= False;    Exit;  end;  try    Src.Position:= 0;    Count:= Src.Size;    Dest.Write(Count, SizeOf(Count));    {  --  128 位密匙最大长度为 16 个字符 --  }    if KeyBit = kb128 then    begin      FillChar(AESKey128, SizeOf(AESKey128), 0 );      Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));      EncryptAESStreamECB(Src, 0, AESKey128, Dest);    end;    {  --  192 位密匙最大长度为 24 个字符 --  }    if KeyBit = kb192 then    begin      FillChar(AESKey192, SizeOf(AESKey192), 0 );      Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));      EncryptAESStreamECB(Src, 0, AESKey192, Dest);    end;    {  --  256 位密匙最大长度为 32 个字符 --  }    if KeyBit = kb256 then    begin      FillChar(AESKey256, SizeOf(AESKey256), 0 );      Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));      EncryptAESStreamECB(Src, 0, AESKey256, Dest);    end;    Result := True;  except    raise Exception.Create(SEncryptStreamError);    Result:= False;  end;end;{ 流解密函数, default keybit: 128bit }function DecryptStream(Src: TStream; Key: AnsiString;  var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;var  Count, OutPos: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;begin  if Dest = nil then  begin    raise Exception.Create(SDestStreamNotCreated);    Result:= False;    Exit;  end;  try    Src.Position:= 0;    OutPos:= Dest.Position;    Src.ReadBuffer(Count, SizeOf(Count));    {  --  128 位密匙最大长度为 16 个字符 --  }    if KeyBit = kb128 then    begin      FillChar(AESKey128, SizeOf(AESKey128), 0 );      Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));      DecryptAESStreamECB(Src, Src.Size - Src.Position,        AESKey128, Dest);    end;    {  --  192 位密匙最大长度为 24 个字符 --  }    if KeyBit = kb192 then    begin      FillChar(AESKey192, SizeOf(AESKey192), 0 );      Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));      DecryptAESStreamECB(Src, Src.Size - Src.Position,        AESKey192, Dest);    end;    {  --  256 位密匙最大长度为 32 个字符 --  }    if KeyBit = kb256 then    begin      FillChar(AESKey256, SizeOf(AESKey256), 0 );      Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));      DecryptAESStreamECB(Src, Src.Size - Src.Position,        AESKey256, Dest);    end;    Dest.Size := OutPos + Count;    Dest.Position := OutPos;    Result := True;  except    raise Exception.Create(SDecryptStreamError);    Result:= False;  end;end;{  --  文件加密函数 默认按照 128 位密匙解密 --  }procedure EncryptFile(SourceFile, DestFile: String;  Key: AnsiString; KeyBit: TKeyBit = kb128);var  SFS, DFS: TFileStream;  Size: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;begin  SFS := TFileStream.Create(SourceFile, fmOpenRead);  try    DFS := TFileStream.Create(DestFile, fmCreate);    try      Size := SFS.Size;      DFS.WriteBuffer(Size, SizeOf(Size));      {  --  128 位密匙最大长度为 16 个字符 --  }      if KeyBit = kb128 then      begin        FillChar(AESKey128, SizeOf(AESKey128), 0 );        Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));        EncryptAESStreamECB(SFS, 0, AESKey128, DFS);      end;      {  --  192 位密匙最大长度为 24 个字符 --  }      if KeyBit = kb192 then      begin        FillChar(AESKey192, SizeOf(AESKey192), 0 );        Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));        EncryptAESStreamECB(SFS, 0, AESKey192, DFS);      end;      {  --  256 位密匙最大长度为 32 个字符 --  }      if KeyBit = kb256 then      begin        FillChar(AESKey256, SizeOf(AESKey256), 0 );        Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));        EncryptAESStreamECB(SFS, 0, AESKey256, DFS);      end;    finally      DFS.Free;    end;  finally    SFS.Free;  end;end;{  --  文件解密函数 默认按照 128 位密匙解密 --  }procedure DecryptFile(SourceFile, DestFile: String;  Key: AnsiString; KeyBit: TKeyBit = kb128);var  SFS, DFS: TFileStream;  Size: Int64;  AESKey128: TAESKey128;  AESKey192: TAESKey192;  AESKey256: TAESKey256;begin  SFS := TFileStream.Create(SourceFile, fmOpenRead);  try    SFS.ReadBuffer(Size, SizeOf(Size));    DFS := TFileStream.Create(DestFile, fmCreate);    try      {  --  128 位密匙最大长度为 16 个字符 --  }      if KeyBit = kb128 then      begin        FillChar(AESKey128, SizeOf(AESKey128), 0 );        Move(PAnsiChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS);      end;      {  --  192 位密匙最大长度为 24 个字符 --  }      if KeyBit = kb192 then      begin        FillChar(AESKey192, SizeOf(AESKey192), 0 );        Move(PAnsiChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS);      end;      {  --  256 位密匙最大长度为 32 个字符 --  }      if KeyBit = kb256 then      begin        FillChar(AESKey256, SizeOf(AESKey256), 0 );        Move(PAnsiChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS);      end;      DFS.Size := Size;    finally      DFS.Free;    end;  finally    SFS.Free;  end;end;end.