#!/usr/bin/perl
use strict;
use warnings;
my @topPorts = (52, 67, 68, 69, 123, 135, 137, 138, 139, 161, 162, 445, 500, 514,520,631,1434,1900,4500,49152);
my $nc = "/bin/nc";
my $outFile;
my $target;
if(@ARGV < 2) {
print("Usage: $0 <target> <output file> \n");
print("Example: perl $0 10.10.10.10 udp_scan.txt \n");
print("cat udp_scan.txt | grep -v \"?\" \n");
exit(1);
}
($target, $outFile) = @ARGV;
print("Performing Top 20 UDP Port Scan against: $target \n");
print("Output File: $outFile \n");
open(FILE, ">", $target) or die("$!");
close(FILE);
print("Running: ");
foreach my $port (@topPorts) {
open(NETCAT, "-|", "$nc -nv -u -z -w 1 $target $port 2>>$outFile") or die("$!");
close(NETCAT);
print(".");
}
print(" DONE!\n");
Comments
0 B
|👍
/👎
0 B
|👍
/👎