可逆加密解密程序(ASP版)

近是要做一个项目，要求把字符串要求先加密后解密，在网上找了段程序，改了下
Dim str:str = "*(^#123"

Response.Write(str&"<br />")

str = Encrypt(str)

Response.Write(str&"<br />")

str = Decrypt(str)

Response.Write(str)

''解密函数

''加密函数

Function Encrypt()Function Encrypt(ecode)

Dim texts

dim i

For i=1 To Len(ecode)

texts = texts & Chr(Asc(Mid(ecode,i,2))+i-1) '减相应的值才能还原:)

Next

Encrypt = texts

End Function