asp加密解密函数decrypt
来源:
中文源码网 浏览:186 次 日期:2024-05-07 18:51:07
【下载文档: asp加密解密函数decrypt.txt 】
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)%>
">111111111 <%abc=encrypt(request("id"))%><%=abc%>