delphi aes加密

关注
转载最新推荐文章于 2025-09-04 15:03:22 发布 1.5k 阅读 AI 写同款· GEO 优化 ›
Delphi环境下的AES加密算法应用与实践 Delphi通过其内置的加密库提供了类，这是一个全面支持AES算法的管理类，用于在Delphi程序中实现加密与解密操作。类继承自，提供了AES算法特有的属性和方法，能够简化加密过程，并减少开发者的编码工作量。下面是一个关于类的基本使用示例：usesvariv: TBytes;begin// 实例化加密对象try// 生成随机密钥和初始化向量// 128位密钥// 128位初始化向量// 设置密钥和初始化向量// 需要加密的数据// 加密数据。阅读详情
Delphi AES加密(转)

   
   (*
   ************************************************************
   *)
   
   (*
        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);
   
   implementation
   
   function 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  ebx
   
   end;
   
   {
     --  字符串加密函数 默认按照 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.