PHP读取纯真IP数据库
整个系统是用 Ajax+php做的,
phperz.com
包里只有二个文件，一个getip.php 是获得客户端ip，及查询ip详情的类。你也可以将此类提出来集成到你的系统里，源码里有详细的注释， phperz~com
ip.php是前台页面
<?php
header("content-type:text/html;charset=GB2312");
//*
//文件头 [第一条索引的偏移量 (4byte)] + [最后一条索引的偏移地址 (4byte)] 8字节
//记录区 [结束ip (4byte)] + [地区1] + [地区2] 4字节+不定长 php程序员之家
//索引区 [开始ip (4byte)] + [指向记录区的偏移地址 (3byte)] 7字节
//注意:使用之前请去网上下载纯真IP数据库,并改名为 "CoralWry.dat" 放到当前目录下即可.
//by 查询吧 www.query8.com
//*
class ipLocation {
var $fp;
var $firstip; //第一条ip索引的偏移地址
var $lastip; //最后一条ip索引的偏移地址
var $totalip; //总ip数
//*
//构造函数,初始化一些变量
//$datfile 的值为纯真IP数据库的名子,可自行修改.
//*
function ipLocation($datfile = "CoralWry.dat"){
$this->fp=fopen($datfile,'rb'); //二制方式打开
$this->firstip = $this->get4b(); //第一条ip索引的绝对偏移地址
$this->lastip = $this->get4b(); //最后一条ip索引的绝对偏移地址
$this->totalip =($this->lastip - $this->firstip)/7 ; //ip总数 索引区是定长的7个字节,在此要除以7, phperz.com
register_shutdown_function(array($this,"closefp")); //为了兼容php5以下版本,本类没有用析构函数,自动关闭ip库.
}
//*
//关闭ip库
//*
function closefp(){
fclose($this->fp);
}
//*
//读取4个字节并将解压成long的长模式
//*
function get4b(){
$str=unpack("V",fread($this->fp,4));
return $str;
}
//*
//读取重定向了的偏移地址
//*
function getoffset(){
$str=unpack("V",fread($this->fp,3).chr(0));
return $str;
}
//*
//读取ip的详细地址信息
//*
function getstr(){
$split=fread($this->fp,1);
while (ord($split)!=0) {
$str .=$split;
$split=fread($this->fp,1);
}
return $str;
}
//*
//将ip通过ip2long转成ipv4的互联网地址,再将他压缩成big-endian字节序
//用来和索引区内的ip地址做比较
//*
function iptoint($ip){
return pack("N",intval(ip2long($ip))); phperz.com
}
//*
//获取客户端ip地址
//注意:如果你想要把ip记录到服务器上,请在写库时先检查一下ip的数据是否安全.
//*
function getIP() {
if (getenv('HTTP_CLIENT_IP')) {
$ip = getenv('HTTP_CLIENT_IP');
}
elseif (getenv('HTTP_X_FORWARDED_FOR')) { //获取客户端用代理服务器访问时的真实ip 地址
$ip = getenv('HTTP_X_FORWARDED_FOR');
}
elseif (getenv('HTTP_X_FORWARDED')) {
$ip = getenv('HTTP_X_FORWARDED');
}
elseif (getenv('HTTP_FORWARDED_FOR')) {
$ip = getenv('HTTP_FORWARDED_FOR');
}
elseif (getenv('HTTP_FORWARDED')) {
$ip = getenv('HTTP_FORWARDED');
}
else {
$ip = $_SERVER['REMOTE_ADDR'];
}
return $ip; www.phperz.com
}
//*
//获取地址信息
//*
function readaddress(){
$now_offset=ftell($this->fp); //得到当前的指针位址
$flag=$this->getflag();
switch (ord($flag)){
case 0:
$address="";
break;
case 1:
case 2:
fseek($this->fp,$this->getoffset());
$address=$this->getstr();
break;
default:
fseek($this->fp,$now_offset);
$address=$this->getstr();
break;
}
return $address;
}
//*
//获取标志1或2
//用来确定地址是否重定向了.
//*
function getflag(){
return fread($this->fp,1);
}
//*
//用二分查找法在索引区内搜索ip
//* php程序员站
function searchip($ip){
$ip=gethostbyname($ip); //将域名转成ip
$ip_offset["ip"]=$ip;
$ip=$this->iptoint($ip); //将ip转换成长整型
$firstip=0; //搜索的上边界
$lastip=$this->totalip; //搜索的下边界
$ipoffset=$this->lastip; //初始化为最后一条ip地址的偏移地址
while ($firstip <= $lastip){
$i=floor(($firstip + $lastip) / 2); //计算近似中间记录 floor函数记算给定浮点数小的最大整数,说白了就是四舍五也舍
fseek($this->fp,$this->firstip + $i * 7); //定位指针到中间记录
$startip=strrev(fread($this->fp,4)); //读取当前索引区内的开始ip地址,并将其little-endian的字节序转换成big-endian的字节序 php程序员站
if ($ip < $startip) {
$lastip=$i - 1;
}
else {
fseek($this->fp,$this->getoffset());
$endip=strrev(fread($this->fp,4));
if ($ip > $endip){
$firstip=$i + 1;
}
else {
$ip_offset["offset"]=$this->firstip + $i * 7;
break;
}
}
}
return $ip_offset;
}
//*
//获取ip地址详细信息
//*
function getaddress($ip){
$ip_offset=$this->searchip($ip); //获取ip 在索引区内的绝对编移地址
$ipoffset=$ip_offset["offset"];
$address["ip"]=$ip_offset["ip"];
fseek($this->fp,$ipoffset); //定位到索引区
$address["startip"]=long2ip($this->get4b()); //索引区内的开始ip 地址 www.phperz.com
$address_offset=$this->getoffset(); //获取索引区内ip在ip记录区内的偏移地址
fseek($this->fp,$address_offset); //定位到记录区内
$address["endip"]=long2ip($this->get4b()); //记录区内的结束ip 地址
$flag=$this->getflag(); //读取标志字节
switch (ord($flag)) {
case 1: //地区1地区2都重定向
$address_offset=$this->getoffset(); //读取重定向地址
fseek($this->fp,$address_offset); //定位指针到重定向的地址
$flag=$this->getflag(); //读取标志字节 php程序员之家
switch (ord($flag)) {
case 2: //地区1又一次重定向,
fseek($this->fp,$this->getoffset());
$address["area1"]=$this->getstr();
fseek($this->fp,$address_offset+4); //跳4个字节
$address["area2"]=$this->readaddress(); //地区2有可能重定向,有可能没有
break;
default: //地区1,地区2都没有重定向
fseek($this->fp,$address_offset); //定位指针到重定向的地址
$address["area1"]=$this->getstr();
$address["area2"]=$this->readaddress();
break;
}
break;
case 2: //地区1重定向 地区2没有重定向 php程序员站
$address1_offset=$this->getoffset(); //读取重定向地址
fseek($this->fp,$address1_offset);
$address["area1"]=$this->getstr();
fseek($this->fp,$address_offset+8);
$address["area2"]=$this->readaddress();
break;
default: //地区1地区2都没有重定向
fseek($this->fp,$address_offset+4);
$address["area1"]=$this->getstr();
$address["area2"]=$this->readaddress();
break;
}
//*过滤一些无用数据
if (strpos($address["area1"],"CZ88.NET")!=false){
$address["area1"]="未知";
}
if (strpos($address["area2"],"CZ88.NET")!=false){
$address["area2"]=" "; php程序员之家
}
return $address;
}
}
//*ipLocation class end
$action=$_GET["action"];
$ip_url=$_GET["ip_url"];
if ($action=="getip"){
$myobj=new ipLocation();
$ip=$myobj->getIP();
$address=$myobj->getaddress($ip);
$myobj=NULL;
$str="<span class='orange'>".$ip."</span> 来自:".$address["area1"]." ".$address["area2"];
echo $str;
}
if ($action=="queryip"){
$myobj=new ipLocation();
$address=$myobj->getaddress($ip_url);
$myobj=NULL;
$str="您查询的IP是：<span class='orange'>".$address["ip"]."</span> 来自：".$address["area1"]." ".$address["area2"];
echo $str;
}
?>
来自: http://hi.baidu.com/dujt/blog/item/c51bb2b1752158530923029a.html
<?php
function convertip($ip) {
if(!preg_match("/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/", $ip)) { //检查IP地址
return '没有找到对应地址或IP输入错误';
}
$dat_path = 'QQWry.Dat'; //这里输入IP数据库的文件位置你只需设置这个路径dat格式QQ纯真IP数据库）
if($fd = @fopen($dat_path, 'rb')) { //打开IP数据文件
//分解IP进行运算，得出整形数
$ip = explode('.', $ip);
$ipNum = $ip * 16777216 + $ip * 65536 + $ip * 256 + $ip;
//获取IP数据索引开始和结束位置
$DataBegin = fread($fd, 4);
$DataEnd = fread($fd, 4);
$ipbegin = implode('', unpack('L', $DataBegin));
if($ipbegin < 0) $ipbegin += pow(2, 32);
$ipend = implode('', unpack('L', $DataEnd));
if($ipend < 0) $ipend += pow(2, 32);
$ipAllNum = ($ipend - $ipbegin) / 7 + 1;
$BeginNum = 0;
$EndNum = $ipAllNum;
//使用二分查找法从索引记录中搜索匹配的IP记录
while($ip1num > $ipNum || $ip2num < $ipNum) {
$Middle= intval(($EndNum + $BeginNum) / 2);
//偏移指针到索引位置读取4个字节
fseek($fd, $ipbegin + 7 * $Middle);
$ipData1 = fread($fd, 4);
if(strlen($ipData1) < 4) {
fclose($fd);
return '- System Error';
}
//提取出来的数据转换成长整形，如果数据是负数则加上2的32次幂
$ip1num = implode('', unpack('L', $ipData1));
if($ip1num < 0) $ip1num += pow(2, 32);
//提取的长整型数大于我们IP地址则修改结束位置进行下一次循环
if($ip1num > $ipNum) {
$EndNum = $Middle;
continue;
}
//取完上一个索引后取下一个索引
$DataSeek = fread($fd, 3);
if(strlen($DataSeek) < 3) {
fclose($fd);
return '- System Error';
}
$DataSeek = implode('', unpack('L', $DataSeek.chr(0)));
fseek($fd, $DataSeek);
$ipData2 = fread($fd, 4);
if(strlen($ipData2) < 4) {
fclose($fd);
return '- System Error';
}
$ip2num = implode('', unpack('L', $ipData2));
if($ip2num < 0) $ip2num += pow(2, 32);
//没找到提示未知
if($ip2num < $ipNum) {
if($Middle == $BeginNum) {
fclose($fd);
return '- Unknown';
}
$BeginNum = $Middle;
}
}
//下面的代码还没读明白，有兴趣的慢慢读
$ipFlag = fread($fd, 1);
if($ipFlag == chr(1)) {
$ipSeek = fread($fd, 3);
if(strlen($ipSeek) < 3) {
fclose($fd);
return '- System Error';
}
$ipSeek = implode('', unpack('L', $ipSeek.chr(0)));
fseek($fd, $ipSeek);
$ipFlag = fread($fd, 1);
}
if($ipFlag == chr(2)) {
$AddrSeek = fread($fd, 3);
if(strlen($AddrSeek) < 3) {
fclose($fd);
return '- System Error';
}
$ipFlag = fread($fd, 1);
if($ipFlag == chr(2)) {
$AddrSeek2 = fread($fd, 3);
if(strlen($AddrSeek2) < 3) {
fclose($fd);
return '- System Error';
}
$AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));
fseek($fd, $AddrSeek2);
} else {
fseek($fd, -1, SEEK_CUR);
}
while(($char = fread($fd, 1)) != chr(0))
$ipAddr2 .= $char;
$AddrSeek = implode('', unpack('L', $AddrSeek.chr(0)));
fseek($fd, $AddrSeek);
while(($char = fread($fd, 1)) != chr(0))
$ipAddr1 .= $char;
} else {
fseek($fd, -1, SEEK_CUR);
while(($char = fread($fd, 1)) != chr(0))
$ipAddr1 .= $char;
$ipFlag = fread($fd, 1);
if($ipFlag == chr(2)) {
$AddrSeek2 = fread($fd, 3);
if(strlen($AddrSeek2) < 3) {
fclose($fd);
return '- System Error';
}
$AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));
fseek($fd, $AddrSeek2);
} else {
fseek($fd, -1, SEEK_CUR);
}
while(($char = fread($fd, 1)) != chr(0))
$ipAddr2 .= $char;
}
fclose($fd);
if(preg_match('/http/i', $ipAddr2)) {
$ipAddr2 = '';
}
$ipaddr = "$ipAddr1 $ipAddr2";
$ipaddr = preg_replace('/CZ88\.NET/is', '', $ipaddr);
$ipaddr = preg_replace('/^\s*/is', '', $ipaddr);
$ipaddr = preg_replace('/\s*$/is', '', $ipaddr);
if(preg_match('/http/i', $ipaddr) || $ipaddr == '') {
$ipaddr = '- Unknown';
}
return '- '.$ipaddr;
} else {
$datadir = DISCUZ_ROOT.'./ipdata/';
$ip_detail = explode('.', $ip);
if(file_exists($datadir.$ip_detail.'.txt')) {
$ip_fdata = @fopen($datadir.$ip_detail.'.txt', 'r');
} else {
if(!($ip_fdata = @fopen($datadir.'0.txt', 'r'))) {
return '- Invalid IP data file';
}
}
for($i = 0; $i <= 3; $i++) {
$ip_detail[$i] = sprintf('%03d', $ip_detail[$i]);
}
$ip = join('.', $ip_detail);
do {
$ip_data = fgets($ip_fdata, 200);
$ip_data_detail = explode('|', $ip_data);
if($ip >= $ip_data_detail && $ip <= $ip_data_detail) {
fclose($ip_fdata);
return '- '.$ip_data_detail.$ip_data_detail;
}
} while(!feof($ip_fdata));
fclose($ip_fdata);
return '- UNKNOWN';
}
}
?>
<?php echo convertip('202.194.110.113'); ?>
页:
[1]