AES 算法在 Delphi 中的实现

本组代码采用标准AES算法（基础算法引用ElAES.pas，感谢作者），代码支持AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充，Delphi与JAVA互相加解密。加密前Delphi与JAVA统一字符编码为UTF8，不然加密结果会不同。Java默认情况下使用不了密钥长度192bit及256bit密钥需要下载JCE下载地址大家自己百度就好了，下载好之后把local_policy.jar/US_export_policy.jar两个jar包放到JRE目录%jre%/lib/security下。delphi版本delphi10开发（xe以上应该都没问题）。验证时请注意delphi memo1.text中换行问题（例如编辑代码时复制大段的文字到memo1.lines中）运行时自动换行处delphi会自动加上回车符导致加密结果不同。 实现了AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充。是标准的AES算法，支持在线AES加解密网站互解。 本源码从****一位前辈的源码基础上做了更改，增加支持加密返回BASE64，更加完善。在此感谢原作者： http://download.****.net/download/qiaohaidong/9477264 需要注意的是仅在XE及以上版本支持Base64返回结果，Delphi7的base64不能直接支持。