发一个用IP得到真实地址的，是网上找的程序修改后的，直接输出utf-8信息。
发一个用IP得到真实地址的，是网上找的程序修改后的，直接输出utf-8信息。文件最后，带有一个IP纯真库。方便操作。
<?php/**author:xhq*email:xhq6632@126.com*QQ:119948717*/header("Content-type: text/html; charset=utf-8");function getIpss($ip='',$encoding='utf-8'){if(empty($ip)) $ip = _Cv_Get_Ip();if(!preg_match("/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/", $ip)) { return false; }if($fd = @fopen(dirname(__FILE__).'/ip.dat', 'rb')){$ip = explode('.', $ip);$ipNum = $ip*16777216 + $ip*65536 + $ip*256 + $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;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('', unpack('L', $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('', 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';}if($encoding=='utf-8'){$ipaddr = mb_convert_encoding($ipaddr,$encoding,'GB2312');}return $ipaddr;}}?>
页:
[1]