asp字符串加密解密函数

答案：<%  
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  
%>

上一个：aspupload 3.0 下载与使用集锦
下一个：asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码