ntpscan.pl

#!/usr/bin/perl

    use Net::IP;
    use Net::Ping;
    use IO::Select;
    use IO::Socket::INET;
    use Term::ANSIColor;
    use vars qw( $PROG );
    ( $PROG = $0 ) =~ s/^.*[\/\\]//;

    if ( @ARGV == 0 ) {
            print "Utilisation : perl $PROG.pl [Start Ip Range ] [End IP Range] [Port (123 for NTP & 161 for SNMP) ] [Threads] [Timeout] [Outpout .txt]\n";
        exit;
    }
    my $threads  = $ARGV[3];
    my @ip_team  = ();
    $|= 1;
    my $ip   = new Net::IP ("$ARGV[0] - $ARGV[1]") or die "Error Range IP .". Net::IP::Error() ."\n";



    while ($ip) {
    push @ip_team, $ip++ ->ip();
    if ( $threads == @ip_team ) { Scan(@ip_team); @ip_team = () }
    }
    Scan(@ip_team);


    sub Scan
    {
    my @Pids;

            foreach my $ip (@_)
            {
            my $pid        = fork();
            die "Fork Error ! $!\n" unless defined $pid;

                    if  (0 == $pid)
                    {


                                    alarm 1;



my $icmp_timeout=2;

$icmp_sock = new IO::Socket::INET(Proto=>"icmp");
$read_set = new IO::Select();
$read_set->add($icmp_sock);


my $buf="hello";





    my $sock = new IO::Socket::INET(PeerAddr=>$ip,
    PeerPort=>$ARGV[2],
    Proto=>"udp",
    Timeout => $ARGV[4]);

    $sock->send("$buf");
    close($sock);


    ($new_readable) = IO::Select->select($read_set, undef, undef, $icmp_timeout);

    $icmp_arrived = 0;

    foreach $socket (@$new_readable)
    {

         if ($socket == $icmp_sock)
         {

              $icmp_arrived = 1;
              $icmp_sock->recv($buffer,50,0);
         }
    }





                                    open (MYFILE, ">>$ARGV[5]");
                            if ( $icmp_arrived == 0 ) {
                    print MYFILE "$ip\n";
                     print "IP FOUND   :  $ip\n";
                    close (MYFILE);}

                    exit
                    }
                    else
                    {
                    push @Pids, $pid
                    }
            }

    foreach my $pid (@Pids) { waitpid($pid, 0) }
    }