2011年12月31日
支持Delphi2009/2010的DES加密单元
摘要： 支持Delphi2009/2010的DES加密单元作者：garfieldtom来源：博客园发布时间：2009-11-12 15:27阅读：444 次原文链接 [收藏] 原来在D7/D2007下使用过一个DES的加密单元，但到了D2009/D2010后因为String被映射为unicodestring，不再是AnsiString，所以加密解密字符串失去了作用。经过修改，可以正确使用了，主要修改其中的string，显示指定为AnsiString，char，显示指定为AnsiChar.unit DESCrypt;interfaceusesSysUtils,Classes;typeTByte32 = 阅读全文
posted @ 2011-12-31 10:32 马儿快跑 阅读(2972) 评论(0) 推荐(2) 编辑
DES加密
摘要： unit Des;interfaceuses SysUtils;type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: String): String; function EncryStrHex(Str, Key: String): String; function DecryStrHex(StrHex, Key: String): String;const BitIP: 阅读全文
posted @ 2011-12-31 10:32 马儿快跑 阅读(390) 评论(0) 推荐(0) 编辑