AES加密算法 delphi7

(*****************************************************) (* *) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.3 *) (* *) (* Readme.txt 自述文档 2004.12.04 *) (* *) (*****************************************************) (* 介绍 *) 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 文件夹中的例子。 (* 许可协议 *) 您可以随意拷贝、使用和发部这个程序，但是必须保证程序的完整性， 包括作者信息、版权信息和说明文档。请勿修改作者和版权信息。 这个程序基于 Mozilla Public License Version 1.1 许可， 如果您使用了这个程序，那么就意味着您同意了许可协议中的所有内容。 您可以在以下站点获取一个许可协议的副本。 http://www.mozilla.org/MPL/ 许可协议的发布基于 "AS IS" 基础,详细请阅读该许可协议。 Alexander Ionov 是 AES 算法的最初作者，保留所有权利。 (* 作者信息 *) ElAES 作者：EldoS, Alexander Ionov AES Interface Unit 作者：杨泽晖 (Jorlen Young) 您可以通过以下方式与我取得联系。 WebSite: http://jorlen.51.net/ http://mycampus.03.com.cn/ http://mycampus.1155.net/ http://mycampus.ecoo.net/ http://mycampus.5500.org/ Email: stanley_xfx@163.com