function eturlencode(v)
dim i,r,c,t,n,h,l
c="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
r=""
for i=1 to len(v)
t=mid(v,i,1)
if abs(asc(t))<&hff then
if instr(c,t)>0 then
r=r&t
else
r=r & "%" & hex(asc(t))
end if
else
n= asc(t)
if n<0 then
n=n+&h10000
end if
h=(n and &hff00) mod &hff
l=n and &hff
r=r & "%" & hex(h) & "%" & hex(l)
end if
next
eturlencode=r
end function

哦，谢谢啊，这是我破解的个色情聊天室的注册算法，呵呵