AES 是一种使用安全码进行信息加密的标准。
它支持 128 位、192 位和 256 位的密匙。
加密算法的实现在 ElAES.pas 单元中。
本人将其加密方法封装在 AES.pas 单元中,
只需要调用两个标准函数就可以完成字符串的加密和解密。
(* 密匙长度 *)
128 位支持长度为 16 个字符
192 位支持长度为 24 个字符
256 位支持长度为 32 个字符
所有加密和解密操作在默认情况下为 128 位密匙。
(* 文件列表 *)
..\Source\ AES 单元文件
..\Example\ 演示程序
(* 适用平台 *)
这份 Delphi 的执行基于 FIPS 草案标准,
并且 AES 原作者已经通过了以下平台的测试:
Delphi 4
Delphi 5
C++ Builder 5
Kylix 1
本人又重新进行了补充测试,并顺利通过了以下平台:
Delphi 6
Delphi 7
特别说明:
在 Delphi 3 标准版中进行测试时,因为缺少 Longword 数据类型和
Math.pas 文件,并且不支持 overload 指示字,所以不能正常编译。
(* 演示程序 *)
这个示例程序演示了如何使用 AES 模块进行字符串的加密和解密过程。
(* 使用方法 *)
在程序中引用 AES 单元。
调用函数 EncryptString 和 DecryptString 进行字符串的加密和解密。
调用函数 EncryptStream 和 DecryptStream 进行流的加密和解密。
调用过程 EncryptFile 和 DecryptFile 进行文件的加密和解密。
详细参阅 Example 文件夹中的例子。