asp版xor函数.txt

XOR算法的DELPHI实现

<%
stringJMData = "需要处理的数据"
Key = "XXXXXX"

'-------------效果查看-----------------
Response.Write "<p>原始字符串: " & stringJMData & "<p>"
Response.Write "<p>密钥: " & Key  & "<p>"
Response.Write "<p>原始长度: " & Len(stringJMData)  & "<p>"
Response.Write "<p>加密字符串: " & Server.URLEncode(EnCrypt(stringJMData)) & "<p>"
Response.Write "<p>解密字符串: " & DeCrypt(EnCrypt(stringJMData)) & "<p>"
Response.Write "<p>加密长度: " & Len(EnCrypt(stringJMData))  & "<p>"
'---------------------------------------

'XOR加密，YSDdata：目标加密数据
Function EnCrypt(YSData)
   Dim Keydata, Chardata, Stringdata, i
   for i = 1 to Len(YSData)
      Keydata = Asc(mid(Key,i,1))
      Chardata = Asc(mid(YSData,i,1))
      StringData = Keydata Xor Chardata
      JMData =  JMData & Chr(StringData)
   next
   EnCrypt = JMData
End Function

'XOR解密，JMDdata：目标解密数据
Function DeCrypt(JMData)
Dim Keydata, Chardata, Stringdata, j
   for j = 1 to Len(JMData)
      Keydata = Asc(mid(Key,j,1))
      CharData = Asc(mid(JMData,j,1))
      Stringdata = Keydata Xor CharData
      YSData =  YSData & Chr(Stringdata)
   next
   DeCrypt = YSData
End Function
%>