Code:############################################# #!/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 !