2012 年 8月 30 日随笔档案 - garfieldtom

2012年8月30日

摘要：之前自己修改过一个,又找到一个,觉得这个要比我修改的好,之前修改的好像有点问题 :-(unit NewDES;interfaceusesSysUtils,Classes;typeTByte32 = array[1..32] of Byte;TSData = array[0..63] of Byte;TBlock = array[0..7] of Byte;function EnCryptStr(aStr: AnsiString; aKey: AnsiString ): AnsiString;function DeCryptStr(aStr: AnsiString; aKey: AnsiStri 阅读全文

posted @ 2012-08-30 18:42 garfieldtom 阅读(5733) 评论(0) 推荐(0)

Delphi AES加密(转)

摘要： (**************************************************************)(*AdvancedEncryptionStandard(AES)*)(*InterfaceUnitv1.3*)(**)(*Copyright(c)2002JorlenYoung*)(**)(*说明：*)(*基于ElASE.pas单元封装*)(**)(*这是一个AES加密算法的标准接口。*)(*调用示例：*)(*ifnotEncryptStream(src,key,TStream(Dest),keybit)then*)(*showmessage('encryp 阅读全文

posted @ 2012-08-30 18:35 garfieldtom 阅读(9221) 评论(0) 推荐(0)