这是我做项目时写的一个dll，压缩包里有到处函数，根据压缩包里的说明，即可以很方便的为你的工程添加AEs加密功能，欢迎大家下载研究。

delphi调用原型： Function AESCBC(kb:integer;resStr:PChar;inKey:PChar;initVector:PChar;error:Pchar):PChar; cdecl; external 'AES.dll'; kb：128,192,256， resStr：源字符串 inKey：密匙 initVector：初始向量 返回值为base64编码串