asp加密解密函数decrypt
2018-09-06 12:02
阅读：309
加密与解密函数
<%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%>
上一篇：atom2rss.asp
下一篇：Asp无组件上传进度条解决方案
评论
亲，登录后才可以留言！