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="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a> 
<%abc=encrypt(request("id"))%><%=abc%>