减小字体
增大字体- ·上一篇文章：asp下经常用到的代码
- ·下一篇文章：asp过滤不文明字符的函数
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)%>
%=decrypt("sdfasdfs")%>
">111111111
<
%abc=encrypt(request("id"))%>
<
%=abc%>
<
%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)%>
%=decrypt("sdfasdfs")%>
">111111111
<
%abc=encrypt(request("id"))%>
<
%=abc%>
asp加密解密函数decrypt
