Dim str:str = "*(^#123"
Response.Write(str&"<br />")
str = Encrypt(str)
Response.Write(str&"<br />")
str = Decrypt(str)
Response.Write(str)
''解密函数
Function Decrypt(dcode)
Dim texts
Dim i
For i=1 To Len(dcode)
texts = texts & Chr(Asc(Mid(dcode,i,2))-i+1) '在此随便加个数字改变加密后的值
Next
Decrypt = texts
End Function
''加密函数
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
Response.Write(str&"<br />")
str = Encrypt(str)
Response.Write(str&"<br />")
str = Decrypt(str)
Response.Write(str)
''解密函数
Function Decrypt(dcode)
Dim texts
Dim i
For i=1 To Len(dcode)
texts = texts & Chr(Asc(Mid(dcode,i,2))-i+1) '在此随便加个数字改变加密后的值
Next
Decrypt = texts
End Function
''加密函数
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