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 该文章在 2015/8/23 23:04:23 编辑过 |
关键字查询
相关文章
正在查询... |