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=><%abc=encrypt(request("id"))%><%=abc%>

上一个：asp获取当前网页地址的代码
下一个：asp创建表，复制表 字段类型附录