所属类别：.NET

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

可逆加密组件====================== 使用方法 ==========================Dim objEncryptSet objEncrypt = Server.CreateObject("myEncrypt.clsEncrypt")Dim strReturn'加密后文本Dim strValue '加密前文本'加密开始'设置密钥(此行可以省略)objEncrypt.KeyCode="1111"'开始加密strReturn = objEncrypt.Encrypt(strValue)'解密'设置密钥(如果加密时没有设置，此行可以省略)objEncrypt.KeyCode="1111"'开始解密strReturn = objEncrypt.UnEncrypt(strValue)注意：strReturn可能返回以下值-3 : 密钥长度超过10-2 : 表示文本设置了密钥，但是解密时没有指定密钥-1 : 表示文本设置了密钥，但是解密时指定的密钥与原先设置的密钥不一样注意：密钥需要小于10个字符且必须为键盘上的字符，否则可能导致无法正确解密====================== 版本历史 ============================================20041130:修正大文本溢出错误更改特殊字符处理方式，理论上提高执行速度1000倍增加密钥，进一步增加安全性20041126:临时解决双引号字符加密和解密问题，但是导致效率降低20041125:目前的可逆算法处理中文的时候都有些问题我现在用的在VB中使用没有问题，但是在ASP中因为少了个函数所以解密不能实现我专门写了个组件和测试文件如果你可以使用组件的话直接用我的那个组件就可以了另外附上组件的完整代码有一个小问题就是因为ASP中双引号的特殊用途对有双引号字符加密和解密会有问题2004-11-30Babyt@mail.csdn.net阿泰完整代码下载地址http://www.facesun.cn/portal/download/encrypt.rar关闭本页

....