asp字符串加密解密功能

<
a_key =分裂（96,44,63,80
在加密过程中*********
函数加密（m）
昏暗的strchar，ikeychar，istringchar，我
K = 0
对于i = 1到莱恩（m）
ikeychar = Cint（a_key（k））
istringchar = ASC（MID（M，I，1））得到的字符的ASCII码值
icryptchar = ikeychar异或istringchar的异或运算
移位操作到键
如果k＜3
k＝k＋1
其他的
K = 0
最后如果
C = C Chr（icryptchar）
下一个
加密= C
端功能
*********解密过程
函数解密（c）
昏暗的strchar，ikeychar，istringchar，我
K = 0
对于i = 1到Len（c）
ikeychar = Cint（a_key（k））
istringchar = ASC（中期（C，I，1））
idecryptchar = ikeychar异或istringchar的异或运算
移位操作到键
如果k＜3
k＝k＋1
其他的
K = 0
最后如果
strdecrypted = strdecrypted CHR（idecryptchar）
下一个
解密= strdecrypted
端功能
%>