Forum programmazione

[BlaCk-aRRow]

Code: Select all

#!/usr/bin/perl
#BlaCk-aRRow
#Inject-IT.org

use IO::Socket


print q{
---------------------------------------------------------------

#Simple PortScanner - 1ncr3as3 Th3 P0rt 1f u W4nt#

---------------------------------------------------------------

# BlaCk-aRRow #

---------------------------------------------------------------
};

   print "Inserisci Ip: \n";
   $ip=<STDIN>;chomp($ip);

   @myports = ("21","22","23","25","59","80","113","135","445","1025","5000",
                               "5900","6660","6661","6662","6663","6665","6666","6667","6668",
                                "6669","7000","8080","8018"
                               );

   for my $porta (@myports)

      {
                print "Sto Scansionando $porta\n";   
        
      my $sock=IO::Socket::INET->new(
         PeerAddr => $ip,
         PeerPort => $porta,
         Proto => 'tcp',
         timeout => 4);
   

      if($sock) {
          push(@founds, $porta);
      close($sock);

      
      }   
}

print " Ho Trovato Le Porte: @founds\n";


Greetz dree,r0y,xero..

[xero]

alla fine hai fatto un lavoro carino

[BlaCk-aRRow]

Grazie