原创 Delphi的AES加密解密测试程序

这是一个Delphi的AES加密解密测试演示程序。使用了我刚调试完成的AES单元文件。加密解密的用法比较简单，加密时，先调用aesKey设置密钥，在使用aesEncInit初始化，再调用aesEncrypt加密数据。一次加密一个数据块（16字节）。解密过程是类似的，只不过将加密函数换成了解密函数。

主要使用的函数是：

procedure aesKey(key: PByteArray; len: Integer);
procedure aesEncInit;
procedure aesEncrypt(buffer, chainBlock: PByteArray);
procedure aesDecInit;
procedure aesDecrypt(buffer, chainBlock: PByteArray);

程序下载（Delphi7）