以下是代码片段:
??%
Function Encrypt (id)
StrR=``
Chk=0
For x=1 to len(id)
StrR=StrR&chr(95+x+cint(mid(id,x,1)))
Chk=Chk+Cint(mid(id,x,1))
Next
Chk=Chk mod 26
StrR=StrR&chr(95+chk)
Encrypt=StrR
End Function
Function Decrypt(str)
StrR=``
For x=1 to len(str)-1
u=(asc(mid(str,x,1))-x-95)
StrR=``
For x=1 to len(str,x,1))-x-95
u=(asc(mid(str,x,1))-x-95)
StrR=StrR&u
Next
Chk=Chk mod 26
if right(str,1)????chr(95+chk) then
response.write `验证错误`
response.end
end if
Decrypt=StrR
End Function
%??
|