30 80/tcp closed http
30 443/tcp closed https
30 8080/tcp open http-proxy
50 80/tcp open http
50 443/tcp filtered https
50 8080/tcp filtered http-proxy
70 80/tcp open http
70 443/tcp filtered https
70 8080/tcp filtered http-proxy
####
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
1.0.0.9
1.0.0.10
1.0.0.11
1.0.0.12
1.0.0.13
1.0.0.14
1.0.0.15
1.0.0.16
1.0.0.17
1.0.0.18
1.0.0.19
1.0.0.20
1.0.0.21
1.0.0.22
1.0.0.23
1.0.0.24
1.0.0.25
1.0.0.26
1.0.0.27
1.0.0.28
1.0.0.29
1.0.0.30
1.0.0.31
1.0.0.32
1.0.0.33
1.0.0.34
1.0.0.35
1.0.0.36
1.0.0.37
1.0.0.38
1.0.0.39
1.0.0.40
1.0.0.41
1.0.0.42
1.0.0.43
1.0.0.44
1.0.0.45
1.0.0.46
1.0.0.47
1.0.0.48
1.0.0.49
1.0.0.50
1.0.0.51
1.0.0.52
1.0.0.53
1.0.0.54
1.0.0.55
1.0.0.56
1.0.0.57
1.0.0.58
1.0.0.59
1.0.0.60
1.0.0.61
1.0.0.62
1.0.0.63
1.0.0.64
1.0.0.65
1.0.0.66
1.0.0.67
1.0.0.68
1.0.0.69
1.0.0.70
1.0.0.71
1.0.0.72
1.0.0.73
1.0.0.74
1.0.0.75
1.0.0.76
1.0.0.77
1.0.0.78
1.0.0.79
1.0.0.80
1.0.0.81
1.0.0.82
1.0.0.83
1.0.0.84
1.0.0.85
1.0.0.86
1.0.0.87
1.0.0.88
1.0.0.89
1.0.0.90
1.0.0.91
1.0.0.92
1.0.0.93
1.0.0.94
1.0.0.95
1.0.0.96
1.0.0.97
1.0.0.98
1.0.0.99
####
IP port state protocol
1.0.0.29 80/tcp closed http
1.0.0.29 443/tcp closed https
1.0.0.29 8080/tcp open http-proxy
1.0.0.49 80/tcp open http
1.0.0.49 443/tcp filtered https
1.0.0.49 8080/tcp filtered http-proxy
1.0.0.69 80/tcp open http
1.0.0.69 443/tcp filtered https
1.0.0.69 8080/tcp filtered http-proxy
####
port-state-service+IP-disk-goto.pl
port-state-service+IP-disk-sub.pl # former port-state-service+IP-disk.pl (above)
port-state-service+IP-disk-while.pl
port-state-service+IP-mem-list-direct.pl
port-state-service+IP-mem-hash-direct.pl
port-state-service+IP-mem-array.pl # former port-state-service+IP-mem.pl (above)
port-state-service+IP-mem-array-delete.pl
port-state-service+IP-mem-array-delete-xtra.pl
port-state-service+IP-mem-hash-direct-delete.pl
port-state-service+IP-mem-hash-direct-delete-xtra.pl
port-state-service+IP-mem-hash-indirect.pl
port-state-service+IP-mem-list-indirect.pl
port-state-service+IP-mem-list-splice.pl
port-state-service+IP-mem-list-splice-xtra.pl
####
port-state-service+IP-disk-goto.pl
port-state-service+IP-mem-list-direct.pl
port-state-service+IP-mem-hash-direct.pl
port-state-service+IP-disk-while.pl
port-state-service+IP-mem-array-delete.pl
port-state-service+IP-mem-array-delete-xtra.pl
port-state-service+IP-mem-hash-direct-delete.pl
port-state-service+IP-mem-hash-direct-delete-xtra.pl
port-state-service+IP-mem-hash-indirect.pl
port-state-service+IP-mem-list-indirect.pl
port-state-service+IP-mem-list-splice.pl
port-state-service+IP-mem-list-splice-xtra.pl
####
die "perl port-state-service+IP-disk-sub.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;
}
}
####
die "perl port-state-service+IP-disk-goto.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=$&;
goto get_IP;
CONT:
}
}
close F0; close F1; close F2;
goto END;
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";
goto CONT;
}
goto CONT;
END:
####
die "perl port-state-service+IP-mem-list-direct.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;
push @IP,$& 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-mem-hash-direct.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-mem-array.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-while.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=$&;
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";
}
}
}
close F0; close F1; close F2;
####
die "perl port-state-service+IP-mem-array-delete.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 ;
if (/[0-9]+\//) {
$temp = $IP[$line_no - 1] if $IP[$line_no - 1] ne "";$IP[$line_no - 1] = "";
print F2 $temp, "\t$line\n";$IP[$line_no - 1] = "";
}
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-array-delete-xtra.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";$x = $y = 0;
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 ;
if ($y > $x) {
for ($z = $x;$z < $y;$z++) {
delete $IP[$z];
}
}
if (/[0-9]+\//) {
$temp = $IP[$line_no - 1] if $IP[$line_no - 1] ne "";$IP[$line_no - 1] = "";
print F2 $temp, "\t$line\n";$IP[$line_no - 1] = "";
}
$x = $y;
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-hash-direct-delete.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 ;
$temp = delete $IP{$line_no - 1} if $IP{$line_no - 1};
print F2 $temp, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-hash-direct-delete-xtra.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";$x = $y = 0;
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 ;
$temp = delete $IP{$line_no - 1} if $IP{$line_no - 1};
$y = $line_no - 1;
if ($y > $x) {
for ($z = $x;$z < $y;$z++) {
delete $IP{$z};
}
}
print F2 $temp, "\t$line\n" if /[0-9]+\//;
$x = $y;
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-hash-indirect.pl " if $#ARGV < 2;
sub idx {
print F2 $IP{$line_no - 1}, "\t$line\n" if /[0-9]+\//;
}
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 ;
&idx;
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-list-indirect.pl " if $#ARGV < 2;
sub idx {
print F2 $IP[$line_no - 1], "\t$line\n"
}
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;
push @IP,$& 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 ;
&idx;
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-list-splice.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;
push @IP,$& 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";$temp_IP = "";$y = $z = 0;
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 ;
if (/[0-9]+\//) {
if ($y != ($line_no - 1)) {
$temp_IP = splice(@IP, $line_no - 1 - $z++, 1);$y = $line_no - 1;
}
print F2 $temp_IP, "\t$line\n";
}
}
close F0; close F2;
####
die "perl port-state-service+IP-mem-list-splice-xtra.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;
push @IP,$& 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";$temp_IP = "";$w = $x = $y = $z = 0;
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 ;
if (/[0-9]+\//) {
if ($y != ($line_no - 1)) {
$temp_IP = splice(@IP, $line_no - 1 - $z++, 1);$y = $line_no - 1;
splice(@IP, $x - $w, $w = abs($y - $x - $w - 1));
$z += ($y - $x - 1);$x = $y;
}
print F2 $temp_IP, "\t$line\n";
}
}
close F0; close F2;