AES Advanced Encryption 改进版

原版：http://www.2ccc.com/article.asp?articleid=1678

改进版修改了原版的“流加密/解密”函数：
function EncryptStream(Src: TStream; Key: string;
var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;
function DecryptStream(Src: TStream; Key: string;
var Dest: TStream; KeyBit: TKeyBit = kb128): Boolean;

流加密/解密的演示在StreamExample目录下。
不过不好意思，没有仔细做，看看代码就知道怎么用了，很简单的。:)

   

进入问吧