加密与解密函数
<%functiondecrypt(dcode)
dimtexts
dimi
fori=1tolen(dcode)
texts=texts&chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
endfunction
functionencrypt(ecode)
Dimtexts
dimi
fori=1tolen(ecode)
texts=texts&chr(asc(mid(ecode,i,2))+i)
next
encrypt=texts
endfunction
%>
<%=decrypt(123123)%>
<ahref="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a>
<%abc=encrypt(request("id"))%><%=abc%>
网站建设 IT知识 IT知识教程 asp加密解密函数decrypt 
最新文章
热门文章
猜你喜欢
