大佬教程收集整理的这篇文章主要介绍了织梦CMS如何将IP地址转换为纯真IP数据库,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
function convertip($ip){ $dat_path = DEDEDATA.'/ip/QQWry.dat'; if(!ereg("^([0-9]{1,3}.){3}[0-9]{1,3}$",$ip)){ return 'IP格式错误'; } if(!$fd = @fopen($dat_path,'rb')){ return '无法打开IP数据库'; } $ip = explode('.',$ip); $ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3]; $DataBegin = fread($fd,4); $DataEnd = fread($fd,4); $ipbegin = implode('',unpack('L',$DataBegin)); if($ipbegin < 0) $ipbegin += pow(2,32); $ipend = implode('',$DataEnd)); if($ipend < 0) $ipend += pow(2,32); $ipAllNum = ($ipend - $ipbegin) / 7 + 1; $BeginNum = 0; $EndNum = $ipAllNum; while($ip1num>$ipNum || $ip2num<$ipNum) { $Middle= intval(($EndNum + $BeginNum) / 2); fseek($fd,$ipbegin + 7 * $MiddlE); $iPDAta1 = fread($fd,4); if(strlen($iPDAta1) < 4) { fclose($fd); return 'System Error'; } $ip1num = implode('',$iPDAta1)); if($ip1num < 0) $ip1num += pow(2,32); if($ip1num > $ipNum) { $EndNum = $Middle; conTinue; } $DataSeek = fread($fd,3); if(strlen($DataSeek) < 3) { fclose($fd); return 'System Error'; } $DataSeek = implode('',$DataSeek.chr(0))); fseek($fd,$DataSeek); $iPDAta2 = fread($fd,4); if(strlen($iPDAta2) < 4) { fclose($fd); return 'System Error'; } $ip2num = implode('',$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('',$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('',$AddrSeek2.chr(0))); fseek($fd,$AddrSeek2); } else { fseek($fd,-1,SEEK_CUR); } while(($char = fread($fd,1)) != chr(0)) $ipaddr2 .= $char; $AddrSeek = implode('',$AddrSeek.chr(0))); fseek($fd,$AddrSeek); while(($char = fread($fd,1)) != chr(0)) $ipaddr1 .= $char; } else { fseek($fd,SEEK_CUR); while(($char = fread($fd,1)) != chr(0)) $ipaddr1 .= $char; $ipFlag = 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; } |
以上是大佬教程为你收集整理的织梦CMS如何将IP地址转换为纯真IP数据库全部内容,希望文章能够帮你解决织梦CMS如何将IP地址转换为纯真IP数据库所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。