免费的破解图片防盗链服务

loveminds

用下面代码，保存为xxx.asp，上传到一个支持ASP的空间

引用地址：http://你的空间.com/img.asp?url=http://你的图片URL

这样就可以让
该图片仅限百度用户交流使用。
此图片来自QQ空间，未经允许，不得引用。
此图片仅限于新浪博客用户交流与沟通。
此图片仅限于网易用户交流沟通使用！
搜狐博客-相册 相逢的人会再相逢，此图片仅限于搜狐站内可见。
等等的杂碎不再让我们烦恼了~
而且可以无限使用那些网站的外链图片！

代码如下：

1. <%
   
2. Dim url, body, myCache
   
3. 
   
4. url = Request.QueryString(”url”)
   
5. 
   
6. Set myCache = new cache
   
7. myCache.name = “picindex”&url
   
8. If myCache.valid Then
   
9. body = myCache.value
   
10. Else
    
11. body = GetWebData(url)
    
12. myCache.add body,dateadd(”d”,1,now)
    
13. End If
    
14. 
    
15. If Err.Number = 0 Then
    
16. Response.CharSet = “UTF-8″
    
17. Response.ContentType = “application/octet-stream”
    
18. Response.BinaryWrite body
    
19. Response.Flush
    
20. Else
    
21. Wscript.Echo Err.Description
    
22. End if
    
23. 
    
24. ‘取得数据
    
25. Public Function GetWebData(ByVal strUrl)
    
26. Dim curlpath
    
27. curlpath = Mid(strUrl,1,Instr(8,strUrl,”/”))
    
28. Dim Retrieval
    
29. Set Retrieval = Server.CreateObject(”Microsoft.XMLHTTP”)
    
30. With Retrieval
    
31. .Open “Get”, strUrl, False,”",”"
    
32. .setRequestHeader “Referer”, curlpath
    
33. .Send
    
34. GetWebData =.ResponseBody
    
35. End With
    
36. Set Retrieval = Nothing
    
37. End Function
    
38. 
    
39. ‘cache类
    
40. 
    
41. class Cache
    
42. private obj ‘cache内容
    
43. private expireTime ‘过期时间
    
44. private expireTimeName ‘过期时间application名
    
45. private cacheName ‘cache内容application名
    
46. private path ‘url
    
47. 
    
48. private sub class_initialize()
    
49. path=request.servervariables(”url”)
    
50. path=left(path,instrRev(path,”/”))
    
51. end sub
    
52. 
    
53. private sub class_terminate()
    
54. end sub
    
55. 
    
56. public property get blEmpty
    
57. ‘是否为空
    
58. if isempty(obj) then
    
59. blEmpty=true
    
60. else
    
61. blEmpty=false
    
62. end if
    
63. end property
    
64. 
    
65. public property get valid
    
66. ‘是否可用(过期)
    
67. if isempty(obj) or not isDate(expireTime) then
    
68. valid=false
    
69. elseif CDate(expireTime)<now then
    
70. valid=false
    
71. else
    
72. valid=true
    
73. end if
    
74. end property
    
75. public property let name(str)
    
76. ‘设置cache名
    
77. cacheName=str & path
    
78. obj=application(cacheName)
    
79. expireTimeName=str & “expires” & path
    
80. expireTime=application(expireTimeName)
    
81. end property
    
82. 
    
83. public property let expires(tm)
    
84. ‘重设置过期时间
    
85. expireTime=tm
    
86. application.lock
    
87. application(expireTimeName)=expireTime
    
88. application.unlock
    
89. end property
    
90. 
    
91. public sub add(var,expire)
    
92. ‘赋值
    
93. if isempty(var) or not isDate(expire) then
    
94. exit sub
    
95. end if
    
96. obj=var
    
97. expireTime=expire
    
98. application.lock
    
99. application(cacheName)=obj
    
100. application(expireTimeName)=expireTime
     
101. application.unlock
     
102. end sub
     
103. 
     
104. public property get value
     
105. ‘取值
     
106. if isempty(obj) or not isDate(expireTime) then
     
107. value=null
     
108. elseif CDate(expireTime)<now then
     
109. value=null
     
110. else
     
111. value=obj
     
112. end if
     
113. end property
     
114. 
     
115. 
     
116. public sub makeEmpty()
     
117. ‘释放application
     
118. application.lock
     
119. application(cacheName)=empty
     
120. application(expireTimeName)=empty
     
121. application.unlock
     
122. obj=empty
     
123. expireTime=empty
     
124. end sub
     
125. 
     
126. public function equal(var2)
     
127. ‘比较
     
128. if typename(obj)<>typename(var2) then
     
129. equal=false
     
130. elseif typename(obj)=”Object” then
     
131. if obj is var2 then
     
132. equal=true
     
133. else
     
134. equal=false
     
135. end if
     
136. elseif typename(obj)=”Variant()” then
     
137. if join(obj,”^”)=join(var2,”^”) then
     
138. equal=true
     
139. else
     
140. equal=false
     
141. end if
     
142. else
     
143. if obj=var2 then
     
144. equal=true
     
145. else
     
146. equal=false
     
147. end if
     
148. end if
     
149. end function
     
150. end class
     
151. %>

复制代码

loveminds

1. <?php
   
2. readfile($_GET['mm']);
   
3. ?>

复制代码

PHP的 使用方法
http://你的空间.com/img.php?mm=http://你的图片URL

鲁齐

感谢分享

jucelin

支持一下

taconet

PHP的 使用方法
你的图片URL
loveminds 发表于 2010-12-4 12:30

感谢分享. 很好用.

ＴＭＤ

jsjcjsjc

这个确实不错~~

bcwl

打开速度有点慢 是该是PHP代理吧  去找找源码