您当前的位置:天天ASP学习ASP编程基础教程 → 文章内容

asp字符串加密解密函数

作者:本站  来源:本站整理  发布时间:2018-06-11 9:23:01
<%  
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  
%> 
  • 上一篇文章:ASP BASE64加解密
  • 下一篇文章:已经没有了
  • 文章评论 (评论内容只代表网友观点,与本站立场无关!)