<%

A_Key=split("96,44,63,80",",")'定义密钥

'*********加密的过程*********

FunctionEnCrypt(m)

DimstrChar,iKeyChar,iStringChar,I

k=0

forI=1toLen(m)

iKeyChar=Cint(A_Key(k))

iStringChar=Asc(mid(m,I,1))'获取字符的ASCII码值

iCryptChar=iKeyCharXoriStringChar'进行异或运算

'对密钥进行移位运算

Ifk<3Then

k=k+1

Else

k=0

EndIf

c=c&Chr(iCryptChar)

next

EnCrypt=c

EndFunction

'*********解密的过程*********

FunctionDeCrypt(c)

DimstrChar,iKeyChar,iStringChar,I

k=0

forI=1toLen(c)

iKeyChar=Cint(A_Key(k))

iStringChar=Asc(mid(c,I,1))

iDeCryptChar=iKeyCharXoriStringChar'进行异或运算

'对密钥进行移位运算

Ifk<3Then

k=k+1

Else

k=0

EndIf

strDecrypted=strDecrypted&Chr(iDeCryptChar)

next

DeCrypt=strDecrypted

EndFunction

%>