28,390
社区成员
发帖
与我相关
我的任务
分享
<%
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
%>
<%
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
%>