<?  
 
 
02 $url=str_replace('/file.php/','',$_SERVER["REQUEST_URI"]);//得出需要转换的网址。这里我就偷懒，不做安全检测了，需要的自己加上去  
03 $downfile=str_replace(" ","%20",$url);//替换空格之类，可以根据实际情况进行替换  
04 $downfile=str_replace("http://","",$downfile);//去掉http://  
05 $urlarr=explode("/",$downfile);//以"/"分解出域名  
06 $domain=$urlarr[0];//域名  
07 $getfile=str_replace($urlarr[0],'',$downfile);//得出header中的GET部分  
08 $content= @fsockopen("$domain", 80, $errno, $errstr, 12);//连接目标主机  
09 if(!$content){//链接不上就提示错误  www.2cto.com
10 die("对不起，无法连接上$domain 。");  
11 }  
12 fputs($content, "GET $getfile HTTP/1.0rn");  
13 fputs($content, "Host: $domainrn");  
14 fputs($content, "Referer: $domainrn");//伪造部分  
15 fputs($content, "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)rnrn");  
16 while(!feof($content)) {  
17 $tp.=fgets($content, 128);  
18 if(strstr($tp,"200 OK")){ //这里要说明一下。header的第一行一般是请求文件的状态。具体请参照HTTP 1.1状态代码及其含义hi.baidu.com/110911/blog/item/21f20d2475af812ed50742c5.html这里是正常的文件请求状态，只需直接转向就可以。其他状态的继续执行程序  
19 header("Location:$url");  
20 die();  
21 }  
22 }  
23 //302 转向，大部分的防盗链系统都是先判断referfer，对了的话再转向真实的地址。下面就是获取真实的地址。  
24 $arr=explode("n",$tp);  
25 $arr1=explode("Location: ",$tp);//分解出Location后面的真时地址  
26 $arr2=explode("n",$arr1[1]);  
27 header('Content-Type:application/force-download');//强制下载  
28 header("location:".$arr2[0]);//转向目标地址  
29 die();  
30 ?>
[代码] 这段程序只能针对使用referer来判断是否盗链的防盗链系统，使用其他特殊方法防盗链的，这个估计就不适用了
1 $txt=$_GET['url'];  
2 echoreferfile($txt,'http://www.jb51.net/');  
3   
4 functionreferfile($url,$refer='') {  
5 $opt=array('http'=>array('header'=>"Referer:$refer"));  
6 $context=stream_context_create($opt);  
7 Header("Location:".$url);  
8 returnfile_get_contents($url,false,$context);  
9 }
[代码] php代码
<?php  
02 $host= "pakey.net"; //你要访问的域名  
03 $target= "/test.asp"; //你要访问的页面地址  
04 $referer= "http//uuwar.com/"; //伪造来路页面  
05 $fp= fsockopen($host, 80, $errno, $errstr, 30);  
06 if(!$fp){  
07 echo"$errstr($errno)<br />\n";  
08 }else{  
09 $out= "  
10 GET $targetHTTP/1.1  
11 Host: $host 
12 Referer: $referer 
13 Connection: Close\r\n\r\n";  
14   
15 fwrite($fp, $out);  
16 while(!feof($fp)){  
17 echofgets($fp, 1024);  
18 }  
19 fclose($fp);  
20 }  
21 ?>
   

摘自 lonely blog