Perl - Nmap Automation 09-27-2017, 01:58 PM
#1
![[Image: 74e37a9df6.png]](https://puu.sh/xK7Xo/74e37a9df6.png)
Mass scan Nmap IP by AQUIRED ANONYMITY
Code:
#!/usr/bin/perl
system("clear");
print "----------------NMAP AUTOMATION --written by AQUIRED ANONYMITY---------------\n\n";
print "\nENTER THE NAME OF THE SOURCE FILE ";
print "\n--->";
chomp($file=<>);
open(CHECK,"$file") or die("file does not exist: $!");
close(CHECK);
print "\n\nSELECT THE TYPE OF SCAN ";
print "\n\nenter 1 for ping scan ";
print "\nenter 2 for stealth scan ";
print "\nenter 3 for intense scan \n";
print "---> ";
chomp($opt=<>);
system("sleep 1");
print "\n\n";
if($opt==1)
{
print "\n\nPING SCAN\n\n";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -sn $IP");
print "\n$IP scanned\n\n ";
}
close(FILE);
}
elsif($opt==2)
{
print "\n\nSTEALTH SCAN\n\n ";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -sS -Pn $IP");
print "\n$IP scanned \n\n";
}
close(FILE);
}
elsif($opt==3)
{
print "\n\nINTENSE SCAN\n\n ";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -T4 -A -v $IP");
print "\n$IP scanned\n\n ";
}
close(FILE);
}
else
{
print "\n\nwrong option";
}
print "\n\nSCAN COMPLETE\n\n";![[Image: Vs4P58c.png]](https://i.imgur.com/Vs4P58c.png)
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
btw thanks will try on vm 
