jiami.asp

来自「个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 m」· ASP 代码 · 共 26 行

 
<% 
function encrypt(ecode) 
dim texts 
dim i  
for i=1 to len(ecode) 
response.write mid(ecode,i,1)
response.end
texts=texts & chr(asc(mid(ecode,i,1))+i) 
 
encrypt = texts
next
end function  
%> 

<% 
function decrypt(dcode)  
dim texts 
dim i 
for i=1 to len(dcode) 
texts=texts & chr(asc(mid(dcode,i,1))-i) 
next 
decrypt=texts 
end function 
%>