delphi aes 加密 源码

Delphi AES加密源码可以使用Delphi提供的TDCP_cipher组件来实现加密解密功能。该组件支持多个加密算法，包括AES算法。

以下是一个示例代码，使用TDCP_cipher组件对字符串进行AES加密和解密：

uses
DCPcrypt2, DCPrijndael;

//AES加密
function AESEncrypt(const InputText, Password: string): string;
var
Cipher: TDCP_rijndael;
Data: string;
begin
Cipher := TDCP_rijndael.Create(nil);
try
Cipher.InitStr(Password, TDCP_sha1); //初始化
Data := Cipher.EncryptString(InputText); //加密
Result := Data;
finally
Cipher.Free;
end;
end;

//AES解密
function AESDecrypt(const InputText, Password: string): string;
var
Cipher: TDCP_rijndael;
Data: string;
begin
Cipher := TDCP_rijndael.Create(nil);
try
Cipher.InitStr(Password, TDCP_sha1); //初始化
Data := Cipher.DecryptString(InputText); //解密
Result := Data;
finally
Cipher.Free;
end;
end;

此代码使用的是密码为字符串的方式来初始化加密对象。如果需要更高级的加密安全，可以使用随机生成的Key和IV来初始化对象。