<%
'加密
function vencoded(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>chr(13) then
ven=asc(mid(venshop,i,1))+5
if ven>127 or ven<33 then
ven=ven-95
end if
vena=vena&chr(ven)
else
vena=vena&"+"
end if
next
vencoded=vena
end function
'解密
function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>"+" then
ven=asc(mid(venshop,i,1))-5
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="www.123.com"
%>
加密:<%=vencoded(venshopcom)%><br>
解密:<%=vencode(vencoded(venshopcom))%><p>