asp加密解密函数

<%
'加密
function encode(x)
for i=1 to len(x)
TempNum=hex(asc(mid(x,i,1)))
if len(TempNum)=4 then
encode=encode & cstr(TempNum)
else
encode=encode & "00" & cstr(TempNum)
end if
next
end function
'解密：
function decode(x)
for i=1 to len(x) step 4
decode=decode & chr(int("&H" & mid(x,i,4)))
next
end function
%>
<%=encode("http://www.gangzi.org/")%><br>
<%=decode("007700770077002E00670061006E0067007A0069002E006F00720067")%>