java asp 加密_asp字符串加密解密函数

asp字符串加密解密函数

更新时间：2007年06月30日 00:00:00   作者：

A_Key=split("96,44,63,80",",") '定义密钥

'*********加密的过程*********

Function EnCrypt(m)

Dim strChar,iKeyChar,iStringChar,I

k=0

for I = 1 to Len(m)

iKeyChar =Cint(A_Key(k))

iStringChar = Asc(mid(m,I,1)) '获取字符的ASCII码值

iCryptChar = iKeyChar Xor iStringChar '进行异或运算

'对密钥进行移位运算

If k<3 Then

k=k+1

Else

k=0

End If

c = c & Chr(iCryptChar)

next

EnCrypt = c

End Function

'*********解密的过程*********

Function DeCrypt(c)

Dim strChar, iKeyChar, iStringChar, I

k=0

for I = 1 to Len(c)

iKeyChar =Cint(A_Key(k))

iStringChar = Asc(mid(c,I,1))

iDeCryptChar = iKeyChar Xor iStringChar '进行异或运算

'对密钥进行移位运算

If k<3 Then

k=k+1

Else

k=0

End If

strDecrypted = strDecrypted & Chr(iDeCryptChar)

next

DeCrypt = strDecrypted

End Function

%>

相关文章

Ajax+ASP和Flash+ASP数据读取取方法有些相似的实现方法...2007-02-02

asp转换网页编码的代码，用正则匹配页面的编码声明是gb2312还是别的，然后输出。2010-06-06

能不能在flash动画中给asp传递变量？...2006-08-08

重置TSYS系统中的所有"生成的文件"成"未生成文件"...2007-01-01

ASP XML操作类，想学习xml操作的朋友可以参考下。2009-12-12

asp 常用函数用法...2006-10-10

改进性能和样式的 24个 ASP 技巧...2006-09-09

Discuz!NT 论坛整合ASP程序论坛 实现代码。2009-06-06

数据库记录的删除，delete好还是update好？...2006-10-10

在一张网页如果按以下代码从数据库中读取记录，2008-04-04

最新评论