您现在的位置是:网站首页> 编程资料编程资料

asp加密解密函数decrypt_应用技巧_

2023-05-25 511人已围观

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

-六神源码网