InSanE ScanneR v0.1 - Port Scanner

[Suicide]

#############################################
#!/usr/bin/perl
############################
################################################## #########################
#
# Coded By RooT The InSaNe | InSa[N]e.-
# www.Hacking-Truths.NeT
# www.BestCrackz.Altervista.org
# gr33tz : Italians , CrashOver , Hackman , FixXxeR And Krokie !
#
################################################## #########################
#
use IO::Socket;

$victim = $ARGV[0];
$timeout = 5;


if($ARGV[0] eq $ARGV[1])

{
print ("\n\nWelcome In The InSaNe ScanneR\n");
print;
print ("Usage: perl InSaNeScanneR.pl <TargeT>\n\n");
exit;
}


print q{
-[----------------------------------------------------------------------]-
InSaNe ScanneR v 0.1
-[----------------------------------------------------------------------]-

RRRRRR RRRRRR - http://www.Hacking-Truths.NeT
RR RR RRRRRR RRRRRR RR - http://BestCrackz.Altervista.Org
RRRRRR RR RR RR RR RR - Coded By RooT The InSaNe | InSa[N]e.-
RR RR RR RR RR RR RR - Gr33tz : Crash.Over, Hackman & FixXeR
RR RR RRRRRR RRRRRR RR - NjoY ... !

-[----------------------------------------------------------------------]-
};

print scalar("@ports");
print;
print "\n - Port Scanner Status : Ok\n - Start Scanning On : $victim\n\n\n";

# Port List For The Scan !

@ports = ( 21, 22, 23, 25, 69, 110, 137, 138, 139, 145, 150, 156, 183, 184, 190, 194, 218,
260, 385, 406, 443, 444, 445, 505, 529, 543, 546, 562, 565, 574, 602, 614, 637,
660, 662, 689, 1080, 1112, 1863, 1186, 1194, 1214, 1241, 1689, 2054, 2273, 2421,
3074, 3306, 3352, 4001, 4658, 4662, 5050, 5100, 5900, 6346, 6621, 6622, 8118, 16588);

# List Of Avaible Services

@services = ("Ftp", "Ssh", "Telnet", "Smtp", "Tftp", "Pop3", "Netbios-ns",
"Netbios-dgm", "Netbios-ssn", "UAAC Protocol", "SQL-NET", "SQL Service",
"OCBinder", "OCServer", "Gateway Access Control Protocol", "IRC", "Netix Message Posting Protocol",
"Open Port", "IBM Application", "Interactive Mail Support", "https", "Simple Network Paging Protocol",
"Mic*ft DS", "mailbox-lm", "IRC Serv", "klogin", "dhcpv6-client", "chcmd", "whoami",
"FTP Software Agent System", "xmlrpc-beep", "SSLshell", "lanserver", "MacOS Server Admin", "PFTP", "NMAP",
"Socks", "Icp", "MSN Messanger", "Mysql Cluster", "OpenVPN", "KaZaa", "Nessus", "Firefox",
"WebLogin", "MySQL Instant Manager", "G-Talk", "Xbox Game", "MySQL", "Scalable SQL", "Jap", "PlayStation2 App",
"Emule", "Yhaoo Messenger", "Yhaoo Msn Webcam", "VNC Server", "gnutella-svc", "KFtp", "Multicast FTP",
"Privoxy", "Shareaza");


for ($z=0;$z<219;$z++) {
$n=0;
$port = @ports[$z];
$service = @services[$z];
$socket = IO::Socket::INET->new(PeerPort => "$port",
PeerAddr => $victim,
Proto => "tcp",
Timeout => $timeout) || $n++;
close $socket;
if ($n == 0) {
print (" Target $victim : $service on the port $port\n");
$n==0;
}
}

# EnD Code !