vb怎么实现url地址的加密解密啊？

有大哥给小弟指点指点么？

以下是asp实现url地址解密的代码 用vb就不能实现url地址的解密了么？
<%
Function URLDecode(enStr) 'URL解码函数 
 dim deStr 
 dim c,i,v 
 deStr="" 
 for i=1 to len(enStr) 
 c=Mid(enStr,i,1) 
 if c="%" then 
 v=eval("&h"+Mid(enStr,i+1,2)) 
 if v<128 then 
 deStr=deStr&chr(v) 
 i=i+2 
 else 
 if isvalidhex(mid(enstr,i,3)) then 
 if isvalidhex(mid(enstr,i+3,3)) then 
 v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2)) 
 deStr=deStr&chr(v) 
 i=i+5 
 else 
 v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1))))) 
 deStr=deStr&chr(v) 
 i=i+3 
 end if 
 else 
 destr=destr&c 
 end if 
 end if 
 else 
 if c="+" then 
 deStr=deStr&" " 
 else 
 deStr=deStr&c 
 end if 
 end if 
 next 
 URLDecode=deStr 
end function 

function isvalidhex(str) 
 isvalidhex=true 
 str=ucase(str) 
 if len(str)<>3 then isvalidhex=false:exit function 
 if left(str,1)<>"%" then isvalidhex=false:exit function 
 c=mid(str,2,1) 
 if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function 
 c=mid(str,3,1) 
 if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function 
end function 
%>

问题解决了。。。还是谢谢大家关注了哈


VB中使用eval函数-

引用："Microsoft Script Control 1.0" 

代码实现： 
 Dim StringCalc As New ScriptControl 
 StringCalc.Language = "VBScript" 
 Msgbox StringCalc.Eval("25+45-sqr(10)") 
 Set StringCalc = Nothing