<%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