asp加密解密函数decrypt
发布时间：2016-12-29 来源：查字典编辑
摘要：加密与解密函数111111111
加密与解密函数
<%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%>