上海师范大学第二专业:ASP帮忙解释一下这个函数

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/14 08:49:34
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