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. %>