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