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