facebook facebook twitter rss

I.C.S.G Port Scanner

Author: Iran Cyber Security Group , Published: 13-07-2015
#!/usr/bin/perl

use IO::Socket::INET;

#I.C.S.G Port Scanner
#
#Coded By WH!T3 W01F
#
#Iran Cyber Security Group
#
#Iran-Cyber.Org
#
#Love To: root3r | MOHAMAD-NOFOZI | KamraN HellisH | JOK3R | Pi.Hack |

print q {
_____ _____ _ ____
|_ _| / ____| | | / __ \
| | _ __ __ _ _ __ ______ | | _ _| |__ ___ _ __ | | | |_ __ __ _
| | | '__/ _` | '_ \ |______| | | | | | | '_ \ / _ \ '__| | | | | '__/ _` |
_| |_| | | (_| | | | | | |___| |_| | |_) | __/ | _ | |__| | | | (_| |
|_____|_| \__,_|_| |_| \_____\__, |_.__/ \___|_| (_) \____/|_| \__, |
__/ | __/ |
|___/ |___/

};
sleep(3);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n";
print "\t +=============================================================+\n";
print "\t | I.C.S.G Port Scanner |\n";
print "\t | Author: WH!T3 W01F |\n";
print "\t | Iran-Cyber.Org |\n";
print "\t | Spc Tnx: root3r|MOHAMAD-NOFOZI|KamraN HellisH|JOK3R|Pi.Hack |\n";
print "\t +=============================================================+\n";
sleep(1);
menu:;
print "\nType Host Address (IP Or SiteUrl) : ";
$target=<STDIN>;
chomp ($target);
print "\n\t Choose The Menu : \n";
print "\n";
print "\t 1-Basic Mode(Quick).\n\n";
print "\t 2-Advanced Mode.\n\n";
print "\t 3-Exit\n\n";
print "\tChoose : ";
$menu=<STDIN>;
chomp ($menu);
if ($menu==3) {
print "\nHave A Good Time.Bye.\n";
sleep(2);
exit;
}
if ($menu==2) {
print "\nProcessing ...\n";
$closed1=0;
$port=1;
while ($port<=65535){
$socket = IO::Socket::INET->new(PeerAddr=>"$target",PeerPort=>"$port",Proto=>"tcp") or $closed1++;
close $socket;
if ($closed1==0){
print "\n\nFound An Open Port ! : ";
print "$port\n";
}
$closed1=0;
$port++;
}
print "Scan Finished.\n\n";
after1:;
print "Now You Want To Back To Menu(1) Or Exit(0) ? ";
$after1=<STDIN>;
chomp ($after1);
if ($after1==1) {
goto menu;
}
if ($after1==0) {
print "\n\nHave A Good Time.Bye.\n";
exit;
}
if ($after1 != 1 or 0) {
print "\nInValid ID\n";
sleep(2);
goto after1;
}
}
if ($menu==1) {
print "\nProcessing ...\n";
$closed2=0;
@ports=(20,21,22,23,24,25,35,37,53,80,88,130,135,161,162,443,445,530,546,547,561,1433,1434,1701,1723,2082,2087,2121,2222,3306,3389,8080);
foreach $port2(@ports){
$socket = IO::Socket::INET->new(PeerAddr=>"$target",PeerPort=>"$port2",Proto=>"tcp",Timeout=>"0.5") or $closed2++;
close $socket;
if ($closed2==0){
print "\n\nFound An Open Port ! : ";
print "$port2\n";
}
$closed2=0;
}
print "\nScan Finished.\n\n";
after2:;
print "Now You Want To Back To Menu(1) Or Exit(0) ? ";
$after2=<STDIN>;
chomp ($after2);
if ($after2==1) {
goto menu;
}
if ($after2==0) {
print "\nHave A Good Time.Bye.\n";
exit;
}
if ($after2 != 1 or 0) {
print "\nInValid ID\n";
sleep(2);
goto after2;
}
}
if ($menu != 1 or 2 or 3) {
print "\nInValid ID\n";
sleep(2);
goto menu;
}

Like us on Facebook :