百度空间、网易相册、QQ空间、新浪博客

  • 时间:
  • 浏览:74
  • 来源:小阿晨资源 - 专注共享天罚娱乐资讯

通用破解图片防盗链高级方法 ,百度空间、网易相册、QQ空间、新浪博客

我测试了测试 ,百度后能 用其他没测试

现在各大网站的软件不但使用盗链方法 ,怎么让图片也除理别人引用。新浪博客、网易相册、百度空间全是以前。

怎么让直接引用你什儿 图片,显示【该图片来源于百度空间】之类话语。以前亲戚朋友的流量是有了,怎么让却苦了亲戚朋友儿,令到亲戚朋友儿不得不找其他的空间来放图片。转引别人的文章还得把图片先下载下来再传到自己空间里再插入到日志里。真累死人。

今天,我教亲戚朋友儿一个多 后能 “破解”你什儿 图片防盗链技术的方法 ,使用起来很简单,直接将图片上传到【百度空间】、【网易相册】、【新浪博客】之类的空间,怎么让找到图片的地址,如

http://hiphotos.baidu.com/anhyx/pic/item/ddcf6259053bfb2a2834f09f.jpg

图片会显示:

怎么让在图片地址的前面换成

http://www.beihaiw.com/pic.php?url=

即可,最后的网址是为

http://www.beihaiw.com/pic.php?url=http://hiphotos.baidu.com/anhyx/pic/item/ddcf6259053bfb2a2834f09f.jpg

图片会显示:

直接引用你什儿 图片就后能 显示了,再就是 会显示【该图片来源于哪里哪里】之类的字了

若你有自己的网站,可将以下段代码另存为 tu.asp 存放上去你的网站根目录,可破解你什儿 图片盗链,方法 同上。

<%

Dim url, body, myCache

url = Request.QueryString("url")

Set myCache = new cache

myCache.name = "picindex"&url

If myCache.valid Then

body = myCache.value

Else

body = GetWebData(url)

myCache.add body,dateadd("d",1,now)

End If

If Err.Number = 0 Then

Response.CharSet = "UTF-8"

Response.ContentType = "application/octet-stream"

Response.BinaryWrite body

Response.Flush

Else

Wscript.Echo Err.Description

End if

‘取得数据

Public Function GetWebData(ByVal strUrl)

Dim curlpath

curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))

Dim Retrieval

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", strUrl, False,"",""

.setRequestHeader "Referer", curlpath

.Send

GetWebData =.ResponseBody

End With

Set Retrieval = Nothing

End Function

‘cache类

class Cache

private obj ‘cache内容

private expireTime ‘过期时间

private expireTimeName ‘过期时间application名

private cacheName ‘cache内容application名

private path ‘url

private sub class_initialize()

path=request.servervariables("url")

path=left(path,instrRev(path,"/"))

end sub

private sub class_terminate()

end sub

public property get blEmpty

‘有无为空

if isempty(obj) then

blEmpty=true

else

blEmpty=false

end if

end property

public property get valid

‘有无可用(过期)

if isempty(obj) or not isDate(expireTime) then

valid=false

elseif CDate(expireTime)<now then

valid=false

else

valid=true

end if

end property

public property let name(str)

‘设置cache名

cacheName=str & path

obj=application(cacheName)

expireTimeName=str & "expires" & path

expireTime=application(expireTimeName)

end property

public property let expires(tm)

‘重设置过期时间

expireTime=tm

application.lock

application(expireTimeName)=expireTime

application.unlock

end property

public sub add(var,expire)

‘赋值

if isempty(var) or not isDate(expire) then

exit sub

end if

obj=var

expireTime=expire

application.lock

application(cacheName)=obj

application(expireTimeName)=expireTime

application.unlock

end sub

public property get value

‘取值

if isempty(obj) or not isDate(expireTime) then

value=null

elseif CDate(expireTime)<now then

value=null

else

value=obj

end if

end property

public sub makeEmpty()

‘释放application

application.lock

application(cacheName)=empty

application(expireTimeName)=empty

application.unlock

obj=empty

expireTime=empty

end sub

public function equal(var2)

‘比较

if typename(obj)<>typename(var2) then

equal=false

elseif typename(obj)="Object" then

if obj is var2 then

equal=true

else

equal=false

end if

elseif typename(obj)="Variant()" then

if join(obj,"^")=join(var2,"^") then

equal=true

else

equal=false

end if

else

if obj=var2 then

equal=true

else

equal=false

end if

end if

end function

end class

%>

闪电博客试验后发现新浪博客的图片未必灵,百度空间是后能 的,有知道意味分析和方法 的请告诉闪电博客,谢谢!

转载请注明来自:[闪电博客]http://shandian.biz/1488.html

转载请注明出处 AE博客|墨渊 » 百度空间、网易相册、QQ空间、新浪博客 - 通用破解图片防盗链方法