【实例简介】
实现了AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit,密钥0填充。是标准的AES算法,支持在线AES加解密网站互解。
本源码从CSDN一位前辈的源码基础上做了更改,增加支持加密返回BASE64,更加完善。在此感谢原作者:
http://download.csdn.net/download/qiaohaidong/9477264
需要注意的是仅在XE及以上版本支持Base64返回结果,Delphi7的base64不能直接支持。
【实例截图】
【核心代码】
c8b197c2-2266-47a7-a205-6f8d454b075c
└── AES
├── Delphi
│ ├── AesTest.dpr
│ ├── AesTest.dproj
│ ├── AesTest.dproj.local
│ ├── AesTest.identcache
│ ├── AesTest.res
│ ├── AesTest.stat
│ ├── bin
│ │ └── AesTest.exe
│ ├── ElAES.pas
│ ├── __history
│ │ ├── JDAESExtend.pas.~1~
│ │ ├── JDAESExtend.pas.~2~
│ │ ├── JDAESExtend.pas.~3~
│ │ ├── JDAESExtend.pas.~4~
│ │ ├── JDAESExtend.pas.~5~