欢迎各位兄弟 发布技术文章
这里的技术是共享的
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 <%Dim str,strj
str="w123good_AZ"
strj=AsaiMM(str,0)
Response.Write "原来字符:"&str
Response.Write "<br />加密:"&strj
Response.Write "<br />解密:"&AsaiMM(strj,1)
'阿赛密码密钥处理过程
'AsaiMM(处理内容,类型：0加密1解密)
Function AsaiMM(mmcode,mmty)
Dim mmi
For mmi=1 To Len(mmcode)
if mmty=0 then
AsaiMM=AsaiMM&Chr(Asc(Mid(mmcode,mmi,2))+i-3)
else
AsaiMM=AsaiMM&Chr(Asc(Mid(mmcode,mmi,2))-i+3)
end if
Next
End Function
%>
来自 http://www.cms001.com/program/asp/200910115203243.shtml
