Select Code to Download

Select or download this

30        80/tcp   closed http
30        443/tcp  closed https
...
70        80/tcp   open     http
70        443/tcp  filtered https
70        8080/tcp filtered http-proxy

Select or download this

1.0.0.0
1.0.0.1
...
1.0.0.97
1.0.0.98
1.0.0.99

Select or download this

IP        port    state    protocol

...
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

Select or download this

port-state-service+IP-disk-goto.pl
port-state-service+IP-disk-sub.pl            # former port-state-servi
+ce+IP-disk.pl (above)
...
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

Select or download this

port-state-service+IP-disk-goto.pl
port-state-service+IP-mem-list-direct.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

Select or download this

die "perl port-state-service+IP-disk-sub.pl <INPUT_FILE_ports> <INPUT_
+FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    }

}

Select or download this

die "perl port-state-service+IP-disk-goto.pl <INPUT_FILE_ports> <INPUT
+_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
goto CONT;

END:

Select or download this

die "perl port-state-service+IP-mem-list-direct.pl <INPUT_FILE_ports> 
+<INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-hash-direct.pl <INPUT_FILE_ports> 
+<INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    print F2 $IP{$line_no - 1}, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-array.pl <INPUT_FILE_ports> <INPUT
+_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-disk-while.pl <INPUT_FILE_ports> <INPU
+T_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    }
}
close F0; close F1; close F2;

Select or download this

die "perl port-state-service+IP-mem-array-delete.pl <INPUT_FILE_ports>
+ <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...

}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-array-delete-xtra.pl <INPUT_FILE_p
+orts> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    $x = $y;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-hash-direct-delete.pl <INPUT_FILE_
+ports> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    print F2 $temp, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-hash-direct-delete-xtra.pl <INPUT_
+FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    $x = $y;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-hash-indirect.pl <INPUT_FILE_ports
+> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    &idx;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-list-indirect.pl <INPUT_FILE_ports
+> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    &idx;
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-list-splice.pl <INPUT_FILE_ports> 
+<INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    }
}
close F0; close F2;

Select or download this

die "perl port-state-service+IP-mem-list-splice-xtra.pl <INPUT_FILE_po
+rts> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
    }
}
close F0; close F2;