当前位置:站长啦网站目录 » 站长资讯 » 站长新闻 » 技术文档 » 文章详细 订阅RssFeed

2018最新破解图片防盗链,破解图片https防盗链,PHP破解图片防盗链的代码asp

来源:破解图片防盗链 浏览:371次 时间:2018-09-02
简介:2018最新破解图片防盗链,破解图片https防盗链, 2018破解图片防盗链的代码php测试通过


2018破解图片防盗链的代码php测试通过

php版的代码比较简单:

复制代码 代码如下:

<?php 
$p=$_GET['p']; 
$pics=file($p); 
for($i=0;$i< count($pics);$i++) 

echo $pics[$i]; 

?> 


然后替换之前的图片

update www_92game_net_ecms_news_data_1 set newstext=REPLACE (newstext,'https://www.gifjia5.com/','http://hao.42824.com/p.php?p=https://www.gifjia5.com/'); 


http://hao.42824.com/p.php?p=
使用方法:将文件保存成i.php上传到根目录 
将不能外链的图片地址改成http://你的域名p.php?p=图片地址 

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 
%>

使用方法:将文件保存成i.asp上传到根目录 
将不能外链的图片地址改成http://你的域名/p.asp?url=图片地址 
为方便大家使用,复制的代码,容易出现错误。特打包下载




分享一下更健康,本文地址: https://top.cnzzla.com/artinfo/45068.html

推荐站点

  • 今天天气今天天气

    今天天气网可以查询全国3259个城区一周天气预报、未来十五天天气预报,及时准确发布中央气象台天气信息,末来十五天天气预报、天气预报查询一周15天的查询气象报告,并且为用户提供生活指数、健康指数、交通指数、旅游指数,及各类天气预报资讯。

    www.jintiantianqi.com
  • 看美女-中国娱乐休闲第一站看美女-中国娱乐休闲第一站

    看美女-提供最新明星美女写真,高清性感美女图片欣赏,明星动态,娱乐八卦,美女图库,奇闻异事等综合类娱乐休闲网站!要放松就去看美女(kanmeinv.cc)!

    www.kanmeinv.cc
  • 站长啦全能搜站长啦全能搜

    站长全能搜为您提供各大搜索引擎入口,集合全世界最大的搜索引擎百度搜索,谷歌搜索,360搜索,搜狗搜索,必应搜索等搜索引擎,帮您一键实现对百度、谷歌、搜狗、必应、360等搜索引擎及视频、图片、音乐、知识、微博、微信、购物等热门网站搜索,方便您快速找到你的搜索!

    so.cnzzla.com
  • 百度超级链官网百度超级链官网

    百度超级链官网“超级链”基于区块链发展的解决方案,能解决现在能源消耗问题,还可以单链支持10万并发。百度目前正基于超级链完成自身企业的区块链转化。百度超级链 可免费领养区块链数字狗莱茨狗

    pet-chain.baidu.com
  • 度宇宙官网度宇宙官网

    度宇宙是继百度超级链、“图腾” 后,再推出的一个区块链项目。度宇宙将为用户打造一个由元素、引力、星球所构建的数字宇宙。用户可以通过多种系统行为获取度宇宙“元素”,并创造和扩建属于自己的星球,在用户星球质量逐渐增加的过程中,诸多新功能将逐步开启,度宇宙APP将于世界杯开幕式前后发布。2018年6月8日,百度推出的区块链原生应用“度宇宙”官网正式上线。 6月15日,区块链APP“度宇宙”正式上线,提供iOS版和安卓版下载。 产品玩法编辑 元素:度宇宙空间中漂浮着各种神奇的元素,需要通过引力将它们不断聚集。 星球:来到度宇宙的居民会有创世力量为其凝聚一颗独一无二星球,它是居民本身的外在实体。 引力:它是度宇宙居民脑力的外化形式,居民的引力越大,就能获得越多的元素。 探索:度宇宙中有各种神秘有趣的星球,在探索中可不断提升自身引力。 注:元素不断汇聚可成为星球,获取元素越多星球质量就越大,质量越大引力就越大,引力越大就能获得更多的元素。当星球的质量达到一定要求的时候,会开启神秘功能。

    duyuzhou.baidu.com