[代码]把网址变为 %77%77%77%2E%65%6E%6A%6F%79%77%6F%72%6B%2E%63%6E 形式的代码

懑梵

做XX站 隐藏地址

eric-jian

hliang0813

原帖由 y 于 2008-4-17 22:43 发表

                               
登录/注册后可看大图

url2asc=lambda s:''.join([ '%%%x'%ord(i) for i in s ])
print url2asc('www.jgwy.net')
#python比之vbs的无比优越性...

哈哈

wode998

原帖由 懑梵 于 2008-4-19 19:29 发表

                               
登录/注册后可看大图

做XX站 隐藏地址

redsnow

- -  又见此贴~我竟再次无语凝噎

幽鬼狼魂

1. <%Dim s
   
2. s = "www.enjoywork.cn" '定义字符串变量 asp真不严谨
   
3. Response.Write "http://" & UrlToAsc(s) '调用urltoasc方法传进去一个字符串变量前面连接普通字符串http
   
4. Function UrlToAsc(url)'定义方法名称
   
5.         Dim i'定义变量i
   
6.         For i = 1 To Len(url)'定义变量从1至传进来字符串的总字符数进行循环
   
7.                 UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))'一个一个加密一个一个赋值连接
   
8.         Next
   
9. End Function%>

复制代码

华山三少

原帖由 懑梵 于 2008-4-19 19:29 发表

                               
登录/注册后可看大图

做XX站 隐藏地址

飞影gg

未找到服务器

Firefox  无法在 %77%77%77%2e%65%6e%6a%6f%79%77%6f%72%6b%2e%63%6e 找到该服务器。

jichang

cnys