如何插入反盗链的图片？

168

如何插入反盗链的图片？
现在各大网站的软件不但使用盗链措施，而且图片也防止别人引用。新浪博客、网易相册、百度空间都是这样。
转引别人的文章还得把图片先下载下来再传到自己空间里再插入到日志里。真累死人。
今天从网上找了段代码可破解这种图片盗链。
将下面代码另存为 tu.asp 存放到你的网站根目录
程序代码

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

复制代码

使用方法：在需要引用些网站的图片时，图片地址前加上如下代码
http://您的域名/img.asp?url=
例: http://www.120cctv.cn/img.asp?url=

破解盗链图片的php脚本
有朋友问是否有php的。其实php的更简单：
代码：

1. <?
2. $pics=file($p);
3. for($i=0;$i {
4. echo $pics[$i];
5. }
6. ?>

复制代码

复制上面这段简单的代码到你的记事本，重命名为pic.php等，然后就可以用如下方式调用了：
http://你的域名/pic.php?p=图片的绝对地址