(*****************************************************)(* *)(* 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 IonovAES 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