近是要做一个项目，要求把字符串要求先加密后解密，在网上找了段程序，改了下
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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。