<% 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乱码问题解决方案

最近公司有一个日文项目，由于之前使用的是自己开发的中文CMS，并没有将语言包分离，在网站建设调试过程中出现了令人头疼的乱码问题。 乱码出现的原因 由于各个字符编码的储存空间不一样，所以当使用不同的字符读>>>详细阅读

本文标题：asp字符串加密解密函数

地址：http://www.17bianji.com/kaifa2/ASP/32538.html

 1/2    1