一段防盗连的PHP代码

$ADMIN[defaulturl] = http://www.163.com/404.htm;  //盗链返回的地址 
$okaysites = array("http://www.163.com/","http://163.com") ; //白名单  
$ADMIN[url_1] = http://www.163.com/download/;  //下载地点1 
$ADMIN[url_2] = "";//下载地点2，以此类推

$reffer = $HTTP_REFERER; 
if($reffer) { 
$yes = 0; 
while(list($domain, $subarray) = each($okaysites)) { 
if (ereg($subarray,"$reffer")) { 
$yes = 1; 
} 
} 
$theu = "url"."_"."$site"; 
if ($ADMIN[$theu] AND $yes == 1) { 
header("Location: $ADMIN[$theu]/$file"); 
} else { 
header("Location: $ADMIN[defaulturl]"); 
} 
} else { 
header("Location: $ADMIN[defaulturl]"); 
}

?>

使用方法:将上述代码保存为dao4.php, 
比如测试用的validatecode.rar在站点http://163.com/download里面, 
则用以下代码表示下载连接.

文件名?site=1&file=文件

赞 (0)

相关推荐

  • 一段防盗连的PHP代码

    $ADMIN[defaulturl] = http://www.163.com/404.htm;  //盗链返回的地址  $okaysites = array("http://www.163.com/","http://163.com") ; //白名单   $ADMIN[url_1] = http://www.163.com/download/;  //下载地点1  $ADMIN[url_2] = "";//下载地点2,以此类推 $reffer

  • 用Python写一段用户登录的程序代码

    如下所示: #!/usr/bin/env python #coding: utf8 import getpass db = {} def newUser(): username = raw_input('username: ') if username in db: #添加打印颜色 print "\033[32;1m%s already exists![0m" % username else: #屏幕不显示密码,调用getpass.getpass() password = getpas

  • 3段Python图像处理的实用代码的分享

    3段Python图像处理的实用代码的分享

    目录 前言 边缘检测 将照片变成素描风格 判断形状 前言 今天给大家分析3个计算机视觉方向的Python实用代码,主要用到的库有: opencv-python numpy pillow 要是大家所配置的环境当中没有这几个模块的话,可先用pip命令下载安装: pip install opencv-python numpy pillow 边缘检测 边缘检测的基本思想就是简化图像信息,使用边缘线代表图像所携带信息,而这次我们要用到的则是Canny边缘检测算子,在Opencv当中需要调用的是cv.can

  • Asp限制IP访问 阻止某一个IP段禁止访问本站的代码

    复制代码 代码如下: <% ''获取访问者的地址 ip=Request.ServerVariables("REMOTE_ADDR") ''允许的IP地址段为10.0.0.0-10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.writecheckip(ip,allowip1,allowip2) functioncheckip(ip,allowip1,allowip

  • 一段巧妙的css debug代码

    想法很简单,代码很简洁,效果也不错,蛮有用(这种高级东东 IE 自然又是不认识的). 复制代码 代码如下: * { outline: 2px dotted red }   * * { outline: 2px dotted green }   * * * { outline: 2px dotted orange }   * * * * { outline: 2px dotted blue }   * * * * * { outline: 1px solid red }   * * * * * *

  • 一段病毒常用的VBS代码

    复制代码 代码如下: On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell") Set curfolder=fso.GetFolder(".") curdristr=Left(WScript.Scr

  • php IP及IP段进行访问限制的代码

    192.168.1.1 单个IP 192.168.1.* 这样代理 192.168.1.1-192.168.1-255 192.158.1.2-20 这样是代表192.158.1.2-192.158.1.20 也可以这样写 192.168.1.[1|2|3] 嘿嘿-一个方法不知道想法是否周全,拿出来大家讨论 使用 以下是引用片段: $oBlock_ip = new block_ip(); $oBlock_ip->checkIP(); 以下是引用片段: 复制代码 代码如下: <?php clas

  • 一段ASP的HTTP_REFERER判断代码

    只要不是HTTP_REFERER来源于(google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com)这些网址来源的请求,就通通转发至404 复制代码 代码如下: <% Dim a, reg a = Request.ServerVariables("HTTP_REFERER").Item Set reg = New RegExp reg.Pattern = "^http://(?:[^.]*\.)

  • 获取SQL Server表字段的各种属性实例代码

    复制代码 代码如下: -- SQL Server 2000 SELECT a.name AS 字段名, CASE WHEN EXISTS (SELECT 1 FROM sysobjects WHERE xtype = 'PK' AND parent_obj = a.id AND name IN (SELECT name FROM sysindexes WHERE indid IN (SELECT indid FROM sysindexkeys WHERE id = a.id AND colid

  • 一段php加密解密的代码

    <?php   $key = "This is supposed to be a secret key !!!"; function keyED($txt,$encrypt_key)   {   $encrypt_key = md5($encrypt_key);   $ctr=0;   $tmp = "";   for ($i=0;$i<strlen($txt);$i++)   {   if ($ctr==strlen($encrypt_key)) $c

随机推荐