SKFREE :: View topic - Skript na vypisanie IP smerovanych cez SIX

SKFREE

Skripty - Skript na vypisanie IP smerovanych cez SIX

Robert - 15.12.2005 - 00:04
Post subject: Skript na vypisanie IP smerovanych cez SIX

Velmi stary skript, ktory stale funguje, ale vykonanie trva velmo dlho (15-20min).

#!/usr/bin/perl

require 5.004;

use IO::Socket;

sub GetNeighbors {

my $remote_host = "www.six.sk";
my $remote_port = 80;

my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or return -1;

my $line;
my @neighbors = ();

print $socket "GET /lg.html HTTP/1.0\n";
print $socket "Referer: http://www.six.sk\n";
print $socket "Host: www.six.sk:80\n";
print $socket "\n";

while ($line = <$socket>) {
if ($line =~ /<option value=\"(.+)\">/) {
push @neighbors, $1;
}
}

close $socket;
return @neighbors;
}

sub normalize {

$route = shift;
unless ($route =~ /\//) {
$route =~ /^(\d+)\./;
$prefix = $1;
if ($prefix <128) {
$route .= '/8';
}
elsif ($prefix < 192) {
$route .= '/16';
}
elsif ($prefix < 240) {
$route .= '/24';
}
}
return $route;
}

sub GetRoutes {

my $neighbor = shift;

my $remote_host = "www.six.sk";
my $remote_port = 80;

my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or return -1;

my $line;
my $pre = 0;
my @routes = ();

my $query = "query=routes&isp=$neighbor&addr=";
my $length = length($query);

print $socket "POST /cgi-bin/nph-lg HTTP/1.0\n";
print $socket "Referer: http://www.six.sk/lg.html\n";
print $socket "Host: www.six.sk:80\n";
print $socket "Content-Length: $length\n";
print $socket "\n";
print $socket "$query\n";

while ($line = <$socket>) {
if ($line =~ /^<pre>/) {
$pre = 1;
next;
}
if ($pre && $line =~ /^\*..(\S+)/) {
$route = normalize($1);
push @routes, $route;
next;
}
if ($line =~ /^<\/pre>/) {
$pre = 0;
next;
}
}

close $socket;
return @routes;
}

# collect all neighbors
@neighbors = GetNeighbors();

# collect all routes through the neighbors
foreach $neighbor (@neighbors) {
push @groutes, GetRoutes($neighbor);
}

# print out all the routes
foreach $route (@groutes) {
print "$route\n";
}

andyproxis - 17.05.2008 - 10:39
Post subject:

vie mi niekto potvrdit, ci tento skript este bezi ? resp. ma niekto lepsie riesenie ?

potrebujem mat aktualnu databazu ip rozsahov smerovanych do sixu - aby som vedel znackovat packety podla toho ci su SIX resp. zbytok internetu...

vdaka za feedback