[skrypt] Geolokalizacja adresów IP Opcje

[Bastion]

Napisalem skrypt korzystajacy z bazy danych openGeo ( http://opengeo.niwidu.org/ ) . Dodalem do niej wlasne rekordy informacyjne takie jak gmina , i lokalizacje na mapie Polski. W chwili obecnej rozpoznowane jest 18000 adresow IP. Chetnych zaprazam pod ten adres http://www.dna.ltd.pl/ScoutX/ w celu sprawdzenia czy dziala. Apeluje takze o rejestracje na http://opengeo.niwidu.org/ w przypadku jesli twoj adres IP nie zostal wykryty. Baza openGeo posiada obecnie zarejestrowanych 22000 adresow. Zrdodla jak i przerobiona baze danych udostepnie juz wkrotce.

[Bakus]

To ja może dorzucę coś od siebie...

http://dev.idn.net.pl/dns.php

Kod

Info dla: 83.27.6.1
Array
(
    [inetnum] => 83.27.0.0 - 83.27.127.255
    [netname] => NEOSTRADA-ADSL
    [descr] => Neostrada Plus Wroclaw
    [country] => PL
)

[PHP] pobierz, plaintext 
<pre>
<?php
	$target = $_SERVER[&#092;"REMOTE_ADDR\"];
	$server = &#092;"whois.ripe.net\";
	print &#092;"<b>Info dla:</b> \" . $target . \"<br />\";
	$target = gethostbyname($target);
	if (! $sock = fsockopen($server, 43, $num, $error, 20))
	{
		unset($sock);
		$msg .= &#092;"Timed-out connecting to $server (port 43)\";
	}else{
		fputs($sock, &#092;"$targetn\");
		while (!feof($sock))
		{
			$buffer .= fgets($sock, 10240); 
		}
		fclose($sock);
	}
	$buffer = explode(&#092;"n\", $buffer);
	foreach($buffer as $line)
	{
		$line = preg_replace('/s+/', ' ', $line);
		$line = explode(&#092;":\", $line);
		$line[1] = trim($line[1]);
		if($line[0] == &#092;"inetnum\" || $line[0] == \"netname\" || $line[0] == \"descr\" || $line[0] == \"country\")
		{
			if(empty($data[$line[0]]))
			{
				$data[$line[0]] = $line[1];
			}else{
				$data[$line[0]] .= &#092;" \" . $line[1];
			}
		}
		if($line[0] == &#092;"country\")
		{
			break;
		}
	}
	print_r($data);
?>
</pre>
[PHP] pobierz, plaintext