url2asc=lambda s:''.join([ '%%%x'%ord(i) for i in s ])
print url2asc('www.jgwy.net')
#python比之vbs的无比优越性...
哈哈 原帖由 懑梵 于 2008-4-19 19:29 发表 http://www.jgwy.net/images/common/back.gif
做XX站 隐藏地址 ;P - -又见此贴~我竟再次无语凝噎 <%Dim s
s = "www.enjoywork.cn" '定义字符串变量 asp真不严谨
Response.Write "http://" & UrlToAsc(s) '调用urltoasc方法传进去一个字符串变量前面连接普通字符串http
Function UrlToAsc(url)'定义方法名称
Dim i'定义变量i
For i = 1 To Len(url)'定义变量从1至传进来字符串的总字符数进行循环
UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))'一个一个加密一个一个赋值连接
Next
End Function%> 原帖由 懑梵 于 2008-4-19 19:29 发表 http://www.jgwy.net/images/common/back.gif
做XX站 隐藏地址 ;P
:lol :lol 未找到服务器
Firefox无法在 %77%77%77%2e%65%6e%6a%6f%79%77%6f%72%6b%2e%63%6e 找到该服务器。 :D :D :D :L
页:
1
[2]