PHP教程之WEB追捕 PHP版 源代码
参加PHP开发学习，或许只是一次偶然的想法吧！只是想在走向社会之前体验、学习在一个公司或者说是项目团队之中如何去更有效的沟通、交流、共同合作，还有就是为毕业实习找工作增加伐码。web|源代码 <?php/**********************************************************************
* IP 来历追踪 Ver 1.1a
* 作者 耙子 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("^(+)\.(+)\.(+)\.(+)$", $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的天然数。
* ********************************************************************/
// Below, It is test code.
$wru= new TWru;
$szResult="";
$ip= "202.96.134.133";
// $ip= $REMOTE_ADDR;
$wru->wru($ip, $szResult);
echo $ip."<br>";
echo $szResult;
//---------------------------------------------------------------------------
?>
怎样学习，大家都知道编程是1门很枯燥的事业，所以大家一定要有兴趣，可能刚开始打算学的时候是因为别人说php有多好，php多么流行，但是后来伴随着学习的深入，你的这些 说php的话，首先得提一下数组，开始的时候我是最烦数组的，总是被弄的晕头转向，不过后来呢，我觉得数组里php里最强大的存储方法，所以建议新手们要学好数组。 建议加几个专业的phper的群，当然啦需要说话的人多，一处一点问题能有人回答你的，当然啦要让人回答你的问题，平时就得躲在里面聊天，大家混熟啦，愿意回答你问题的人自然就多啦。 ,熟悉html,能用div+css，还有javascript，优先考虑linux。我在开始学习的时候，就想把这些知识一起学习，我天真的认为同时学习能够互相呼应，因为知识是相通的。 说php的话，首先得提一下数组，开始的时候我是最烦数组的，总是被弄的晕头转向，不过后来呢，我觉得数组里php里最强大的存储方法，所以建议新手们要学好数组。 装在C盘下面可以利用windows的ghost功能可以还原回来（顺便当做是重转啦），当然啦我的编译目录要放在别的盘下，不然自己的劳动成果就悲剧啦。 其实没啥难的，多练习，练习写程序，真正的实践比看100遍都有用。不过要熟悉引擎 兴趣是最好的老师，百度是最好的词典。 在学习的过程中不能怕麻烦，不能有懒惰的思想。学习php首先应该搭建一个lamp环境或者是wamp环境。这是学习php开发的根本。虽然网络上有很多集成的环境，安装很方便，使用起来也很稳定、 装在C盘下面可以利用windows的ghost功能可以还原回来（顺便当做是重转啦），当然啦我的编译目录要放在别的盘下，不然自己的劳动成果就悲剧啦。 没接触过框架的人，也不用害怕，其实框架就是一种命名规范及插件，学会一个框架其余的框架都很好上手的。 建议加几个专业的phper的群，当然啦需要说话的人多，一处一点问题能有人回答你的，当然啦要让人回答你的问题，平时就得躲在里面聊天，大家混熟啦，愿意回答你问题的人自然就多啦。 写js我最烦的就是 ie 和 firefox下同样的代码 结果显示的结果千差万别，还是就是最好不要用遨游去调试，因为有时候遨游是禁用js的，有可能代码是争取结果被遨游折腾的认为是代码写错。 当然这种网站的会员费就几十块钱。 有位前辈曾经跟我说过，phper 至少要掌握200个函数 编起程序来才能顺畅点，那些不熟悉的函数记不住也要一拿手册就能找到。所以建议新手们没事就看看php的手册（至少array函数和string函数是要记牢的）。 没接触过框架的人，也不用害怕，其实框架就是一种命名规范及插件，学会一个框架其余的框架都很好上手的。 其实没啥难的，多练习，练习写程序，真正的实践比看100遍都有用。不过要熟悉引擎 如果你可以写完像留言板这样的程序，那么你可以去一些别人的代码了， 有位前辈曾经跟我说过，phper 至少要掌握200个函数 编起程序来才能顺畅点，那些不熟悉的函数记不住也要一拿手册就能找到。所以建议新手们没事就看看php的手册（至少array函数和string函数是要记牢的）。
页:
[1]