nithir / Scanner de port en perl
0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность
| 1 | #!/usr/bin/perl |
| 2 | # Easy port scanner |
| 3 | # I wrote this in the 90s to help learn socket programming |
| 4 | # ./quickscan -h for usage |
| 5 | use Socket; |
| 6 | $| = 1; # so \r works right |
| 7 | my ($ip, $protocol, $port, $myhouse, $yourhouse, $log); |
| 8 | $protocol = getprotobyname('tcp'); |
| 9 | ($ip, $port, $port_stop, $log) = @ARGV; |
| 10 | if ($ip eq "-h") { |
Новее
Позже