function encode(soStr)
for i=1 to len(soStr)'加密方法1
TempNum=hex(asc(mid(soStr,i,1)))
if len(TempNum)=4 then
encode=encode & "%"& left(cstr(TempNum),2) & "%"& right(cstr(TempNum),2)
else
Randomize
encode=encode &"%"& chr(72+int(rnd*18))& chr(72+int(rnd*18)) & "%" & cstr(TempNum)
end if
next
end function
function decode(x)
x=replace(x,"%","")'解密方法1
for i=1 to len(x)
if asc(mid(x,i,1))>=72 then
x=replace(x,mid(x,i,1),"0")
end if
next
for i=1 to len(x) step 4
decode=decode& chr(int("&H" & mid(x,i,4)))
next
end function
asp网页地址加密解密函数
最新推荐文章于 2023-12-05 11:20:45 发布