[组件代码共享]可逆加密,支持中文,支持密钥,支持ASP,加密后的密文每次都不同,且可随意改变算法

类别:.NET开发 点击:0 评论:0 推荐:

可逆加密组件

====================== 使用方法 ==========================

Dim objEncrypt
Set 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-30
[email protected]
阿泰

完整代码下载地址
http://www.facesun.cn/portal/download/encrypt.rar

本文地址:http://com.8s8s.com/it/it41743.htm