asp 编码解码函数

<%
functionencode(soStr)
fori=1tolen(soStr)
TempNum=hex(asc(mid(soStr,i,1)))
iflen(TempNum)=4then
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)
endif
next
endfunction

functiondecode(x)
x=replace(x,"%","")
fori=1tolen(x)
ifasc(mid(x,i,1))>=72then
x=replace(x,mid(x,i,1),"0")
endif
next
fori=1tolen(x)step4
decode=decode&chr(int("&H"&mid(x,i,4)))
next
endfunction
%>