IP 来源查询 php源代码 (转)

本文介绍了一款用于追踪IP来源的PHP代码,该代码利用《追捕》数据库进行快速查询,通过折半查找算法实现高效定位。代码适用于网页访问者地理位置的显示及日志记录。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

IP 来源查询 php源代码 (转)[@more@]

《追捕》现在已经响当当了,他的成功,在于它的数据库的维护的毅力,

很多软件都在用它的数据,有些改了名字,变成xxx.dat了,嗬嗬,我觉得不太可取,有点儿不地道的感觉。

我的代码也用到了他,改不改名字无所谓了,关键尊重人家的劳动就好了。

 

在网页上增加一个段简单的代码,就可以显示来访者的地点。

还可以在自己的网站里面写一个个性化的日志,记录ip也记录地点。

效果可以查看 www.fogsun.com 的左边下角.

PHP
/**********************************************************************
ip 来源追踪 Ver 1.1a
*  作者 耙子 Mailto:pazee@21cn.com">pazee@21cn.com  http://www.fogsun.com
*  2002/08/10
*
* 程序中的数据库来自《追捕》,请把追捕中wry.dll 拷贝到函数当前目录。
* 追捕的数据库是个的dbf文件,只不过它的扩展名字变成了dll。
* 2000年我在一个偶然的机会发现了他的dll的真实格式,后来的很多文章也提到了此格式,
* 《追捕》的数据文件目前应用非常广泛,很多查IP来源程序的基本都用到了他的数据库。
* 比如有个去广告,能显示IP来源的qq就使用了他。
* 2001年初写过一个php的函数,但是需要php的dbf模块支持,很多网站并不提供此模块。
* 现在的版本采用二进制的文件读写,不依赖php的dbf的支持了,没有用到
* 任何shell命令.
* 由于数据文件本身是有序的,所以非常方便的采用了折半查找的算法,
* 速度很快,目前的20020325版本的数据库,大约有记录28905条,最多比较14次。
*
* 在此感谢《追捕》作者“冯志宏”
* 有任何问题请于我联系,谢谢! pazee@21cn.com 
*
*
* 声明:
* 你可以随意传播、复制、修改此程序,但是请保留此段文字。
* 代码请勿用在商业软件上、请勿用在不正当的地方(这是《追捕》的要求),
*  再次表示谢谢。
***********************************************************************/

// define path of wry.dll
define("DBFILENAME", "wry.dll"); 


class TRec
{
  var $StartIP;
  var $EndIP;
  var $Country;
  var $Local;
}

class TWru
{
  var $ip;
 var $fp;
 var $Rec;
  var $DATAFIELDBEGIN= 0xc2;
  var $RECORDLENGTH;
 
 // Check IP and Format IP
 function FormatIP($ip)
 {
  $ret= ereg("^([0-9]+).([0-9]+).([0-9]+).([0-9]+)$", $ip, $IPSection);
  if ($ret == false)
  return -1; // Invild IP
  $this->ip= '';
  for ($i=1; $i<=4; $i++)
 if ($IPSection[$i] > 255)
  return -1;
 else
  $this->ip.= sprintf("%03.0f", $IPSection[$i]). (($i<4) ? '.' : '');
  return 0;
 }
 
 // read a record from DB 
  function ReadRec($RecNo)
  {
  $this->Seek($RecNo);
  $buf= fread($this->fp, $this->RECORDLENGTH);
  if (strlen($buf) == 0)
  {
  return 1;
  }
  $this->Rec->StartIP= (substr($buf, 0, 17));
  $this->Rec->EndIP= trim(substr($buf, 17, 22));
  $this->Rec->Country= trim(substr($buf, 17+22, 13));
  $this->Rec->Local= trim(substr($buf, 17+22+13, 47));
  return 0;
  }
 
 // Go to Record Number
  function Seek($RecNo)
  {
  return fseek($this->fp, $RecNo * $this->RECORDLENGTH + $this->DATAFIELDBEGIN, SEEK_SET);
  }
 
  // Where_are_you Main Fucntion
 /*********************************************
 * 使用说明
 * 参数:
 *  IP 合法IP地址即可
 *  szLocal 是保存返回的结果字符串的
 * 返回值:
 *  此函数有返回值,可以根据返回值自行处理结果
 *  0: 查找成功
 *  -1: 无效的IP
 *  1: 打开数据库文件失败
 *  2: 数据文件错误(没找到有效记录)
 *  3: 未知 IP
 **********************************************/
 function wru($ip, &$szLocal)
  {
  $this->Rec= new TRec;
  $nRet= 0;
  $this->RECORDLENGTH= 17 + 22 + 13 + 47 + 12 + 1; 
  if ($this->FormatIP($ip) != 0)
  {
  $szLocal= "InvalidIP";
  return -1;
  }
 
  $this->fp= fopen(DBFILENAME, "rb");
  if ($this->fp == NULL) {
  $szLocal= "OpenFileError";
  return 1;
  }
 
  // Get Record Count
  fseek($this->fp, 0, SEEK_END);
  $RecordCount= floor((ftell($this->fp) - $this->DATAFIELDBEGIN) / $this->RECORDLENGTH);
  if ($RecordCount <= 1)
  {
  $szLocal= "FileDataError";
  $nRet= 2;
  }
  else
  {
  $RangB= 0;
  $RangE= $RecordCount;
  // Match ...
  while ($RangB < $RangE-1)
  {
  $RecNo= floor(($RangB + $RangE) / 2);
  $this->ReadRec($RecNo);
  if (strcmp($this->ip, $this->Rec->StartIP) >=0 && strcmp($this->ip, $this->Rec->EndIP) <=0 )
  break;  //Found match record
  if (strcmp($this->ip, $this->Rec->StartIP) > 0)
  $RangB= $RecNo;
  else
  $RangE= $RecNo;
  }
  if (!($RangB < $RangE-1))
  {
  $szLocal= "UnknowLocal!";
  $nRet= 3;
  }
  else
  { // Match Success
  $szLocal= $this->Rec->Country;
  $szLocal.= $this->Rec->Local;
  }
  }
  fclose($this->fp);
  return $nRet;
  }
}

/*******************************************************************
* 变更记录:
* 2002/08/10 完成版本 1.0a
* 2002/08/12 增加FormatIP成员函数,提供了对IP的标准格式化,支持
*  202.96.128.68 这类的写法,类的内部自动转为 202.096.128.068,
*  同时提供了完整的对IP地址的有效检查。规则是4个整数部分均不超
*  过255的自然数。
* ********************************************************************/

?>


  // Test Code.
  $wru= new TWru;
  $szResult="";
  $ip= "202.96.134.133";
  //  $ip= $REMOTE_ADDR;
  $wru->wru($ip, $szResult);
  echo $ip."
";
  echo $szResult;
//---------------------------------------------------------------------------
?>


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992796/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992796/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值