服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp字符串加密解密函数

asp字符串加密解密函数

2019-10-14 11:19asp代码网 ASP教程

asp字符串加密解密函数

  1. <%   
  2. A_Key=split("96,44,63,80",",") '定义密钥   
  3. '*********加密的过程*********   
  4. Function EnCrypt(m)   
  5. Dim strChar,iKeyChar,iStringChar,I   
  6. k=0   
  7. for I = 1 to Len(m)   
  8. iKeyChar =Cint(A_Key(k))   
  9. iStringChar = Asc(mid(m,I,1)) '获取字符的ASCII码值   
  10. iCryptChar = iKeyChar Xor iStringChar '进行异或运算   
  11. '对密钥进行移位运算   
  12. If k<3 Then   
  13. k=k+1   
  14. Else   
  15. k=0   
  16. End If   
  17. c = c & Chr(iCryptChar)   
  18. next   
  19. EnCrypt = c   
  20. End Function   
  21. '*********解密的过程*********   
  22. Function DeCrypt(c)   
  23. Dim strChar, iKeyChar, iStringChar, I   
  24. k=0   
  25. for I = 1 to Len(c)   
  26. iKeyChar =Cint(A_Key(k))   
  27. iStringChar = Asc(mid(c,I,1))   
  28. iDeCryptChar = iKeyChar Xor iStringChar '进行异或运算   
  29. '对密钥进行移位运算   
  30. If k<3 Then   
  31. k=k+1   
  32. Else   
  33. k=0   
  34. End If   
  35. strDecrypted = strDecrypted & Chr(iDeCryptChar)   
  36. next   
  37. DeCrypt = strDecrypted   
  38. End Function   
  39. %>  

延伸 · 阅读

精彩推荐