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