asp加密解密函数decrypt

加密与解密函数

<%function decrypt(dcode) 

dim texts

dim i

for i=1 to len(dcode)

texts=texts & chr(asc(mid(dcode,i,2))-i)

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)

next

encrypt = texts

end function

%>

<%=decrypt(123123)%>

<a href="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a>

<%abc=encrypt(request("id"))%><%=abc%>