3 80/tcp closed http
3 443/tcp closed https
3 8080/tcp open http-proxy
5 80/tcp open http
5 443/tcp filtered https
5 8080/tcp filtered http-proxy
7 80/tcp open http
7 443/tcp filtered https
7 8080/tcp filtered http-proxy
####
1.0.129.197
1.0.131.49
1.0.131.74
1.0.138.143
1.0.138.154
1.0.139.72
1.0.129.191
1.0.129.192
1.0.129.193
####
1.0.XXX.XXX
1.0.0.X
10.00.00.XX
100.000.000.XXX
01.00.00.XX
001.000.000.XXX
####
1.0.129.197
1.0.131.49
1.0.131.74
1.0.138.143
1.0.138.154
1.0.139.72
1.0.129.191
1.0.129.192
1.0.129.193
####
1.0.0.0
1.0.0.1
1.0.0.2
1.0.0.3
1.0.0.4
1.0.0.5
1.0.0.6
1.0.0.7
1.0.0.8
####
10.00.00.00
10.00.00.01
10.00.00.02
10.00.00.03
10.00.00.04
10.00.00.05
10.00.00.06
10.00.00.07
10.00.00.08
####
100.000.000.000
100.000.000.001
100.000.000.002
100.000.000.003
100.000.000.004
100.000.000.005
100.000.000.006
100.000.000.007
100.000.000.008
####
01.00.00.00
01.00.00.01
01.00.00.02
01.00.00.03
01.00.00.04
01.00.00.05
01.00.00.06
01.00.00.07
01.00.00.08
####
001.000.000.000
001.000.000.001
001.000.000.002
001.000.000.003
001.000.000.004
001.000.000.005
001.000.000.006
001.000.000.007
001.000.000.008
####
IP port state protocol
1.0.131.74 80/tcp closed http
1.0.131.74 443/tcp closed https
1.0.131.74 8080/tcp open http-proxy
1.0.138.154 80/tcp open http
1.0.138.154 443/tcp filtered https
1.0.138.154 8080/tcp filtered http-proxy
1.0.129.191 80/tcp open http
1.0.129.191 443/tcp filtered https
1.0.129.191 8080/tcp filtered http-proxy
####
IP port state protocol
1.0.0.2 80/tcp closed http
1.0.0.2 443/tcp closed https
1.0.0.2 8080/tcp open http-proxy
1.0.0.4 80/tcp open http
1.0.0.4 443/tcp filtered https
1.0.0.4 8080/tcp filtered http-proxy
1.0.0.6 80/tcp open http
1.0.0.6 443/tcp filtered https
1.0.0.6 8080/tcp filtered http-proxy
####
IP port state protocol
10.00.00.02 80/tcp closed http
10.00.00.02 443/tcp closed https
10.00.00.02 8080/tcp open http-proxy
10.00.00.04 80/tcp open http
10.00.00.04 443/tcp filtered https
10.00.00.04 8080/tcp filtered http-proxy
10.00.00.06 80/tcp open http
10.00.00.06 443/tcp filtered https
10.00.00.06 8080/tcp filtered http-proxy
####
IP port state protocol
100.000.000.002 80/tcp closed http
100.000.000.002 443/tcp closed https
100.000.000.002 8080/tcp open http-proxy
100.000.000.004 80/tcp open http
100.000.000.004 443/tcp filtered https
100.000.000.004 8080/tcp filtered http-proxy
100.000.000.006 80/tcp open http
100.000.000.006 443/tcp filtered https
100.000.000.006 8080/tcp filtered http-proxy
####
IP port state protocol
01.00.00.02 80/tcp closed http
01.00.00.02 443/tcp closed https
01.00.00.02 8080/tcp open http-proxy
01.00.00.04 80/tcp open http
01.00.00.04 443/tcp filtered https
01.00.00.04 8080/tcp filtered http-proxy
01.00.00.06 80/tcp open http
01.00.00.06 443/tcp filtered https
01.00.00.06 8080/tcp filtered http-proxy
####
IP port state protocol
001.000.000.002 80/tcp closed http
001.000.000.002 443/tcp closed https
001.000.000.002 8080/tcp open http-proxy
001.000.000.004 80/tcp open http
001.000.000.004 443/tcp filtered https
001.000.000.004 8080/tcp filtered http-proxy
001.000.000.006 80/tcp open http
001.000.000.006 443/tcp filtered https
001.000.000.006 8080/tcp filtered http-proxy
####
3 PORT state protocol
3 80/tcp closed http
3 443/tcp closed https
3 8080/tcp open http-proxy
5 80/tcp open http
5 443/tcp filtered https
5 8080/tcp filtered http-proxy
7 80/tcp open http
7 443/tcp filtered https
7 8080/tcp filtered http-proxy
####
03 80/tcp closed http
003 443/tcp closed https
0003 8080/tcp open http-proxy
005 80/tcp open http
00005 443/tcp filtered https
0000005 8080/tcp filtered http-proxy
0007 80/tcp open http
0000007 443/tcp filtered https
000000007 8080/tcp filtered http-proxy
####
die "perl port-state-service+IP-mem.pl " if $#ARGV < 2;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=0;
while () {
while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
$IP[$line_no++] = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while () {
while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;
####
die "perl port-state-service+IP-disk.pl " if $#ARGV < 2;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$line_stop=0;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while () {
while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
s/\r\n//;s/\t+/\t/;chomp;
if (/^[0-9]+/) {
$line_port=$';
$line_no=$&;
&get_IP;
}
}
close F0; close F1; close F2;
sub get_IP {
while (($line_stop < $line_no) && ($line_IP = )) {
$line_stop++ if $line_IP =~ /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
if ($line_stop == $line_no) {
$line_IP =~ s/^[\t\ ]+//g;$line_IP =~ s/[\t\ ]+$//g ;$line_IP =~ s/\n$//g;
$line_port =~ s/^[\t\ ]+//g;$line_port =~ s/[\t\ ]+$//g ;
print F2 "$line_IP\t$line_port\n";
return;
}
}