[TOOL] NTP Fingerprinting Utility

From: SecuriTeam (support_at_securiteam.com)
Date: 11/27/05

  • Next message: SecuriTeam: "[TOOL] TFTP Filename Bruteforcer" 
    To: list@securiteam.com
Date: 27 Nov 2005 13:02:09 +0200

    The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
    - - promotion

    The SecuriTeam alerts list - Free, Accurate, Independent.

    Get your security news from a reliable source.
    http://www.securiteam.com/mailinglist.html

    - - - - - - - - -

      NTP Fingerprinting Utility
    ------------------------------------------------------------------------

    SUMMARY

    DETAILS

    ntp-fingerptint is an active fingerprinting utility specifically designed
    to identify the OS the NTP server is running on.

    Tool source:
    To download the tool please visit:
    <http://www.arhont.com/digitalAssets/211_ntp-fingerprint.tar.gz>
    http://www.arhont.com/digitalAssets/211_ntp-fingerprint.tar.gz

    #!/usr/bin/perl
    use IO::Socket;
    use Net::hostent;
    use Getopt::Std;

    my $VERSION = "0.1";

    sub usage { # print a short 'usage` message and exit
      print "usage: perl $0 -t <timeserver>\n";
      print"################################\n";
      print"# NTP finger version $VERSION #\n";
      print"# Becase we need it... #\n";
      print"# http://www.arhont.com/index-5.html #\n";
      print"################################\n";
      print"\n";
      

      exit;
    }

    use vars qw($opt_h $opt_t); # command line options

    print "$0, $PgmName, V $VERSION \n";
      # handle the commandline options
      getopts('ht'); # look for -h and -t
      $opt_h && usage; # -h print usage message and exit
      
      (!$ARGV[0]) && usage; # no server: print usage message and exit

      my $server = $ARGV[0];
      my $serverIPv4 ="";
      if (gethostbyname($server)) {
        $serverIPv4 =
    sprintf("%d.%d.%d.%d",unpack("C4",gethostbyname($server)));
      }

    my $timeout = 2;

    my $ntp_msg; # NTP message according to NTP/SNTP protocol specification

     sub get_ntp {
      
      # open the connection to the ntp server,
      # prepare the ntp request packet
      # send and receive

        my ($remote);
        my $ntp_msg;

    $ntp_msg = pack "C*", (0x16, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00,
    0x00,0x00, 0x00, 0x00, 0x00);

        # open the connection to the ntp server
        $remote = IO::Socket::INET -> new(Proto => "udp", PeerAddr => $server,
                                          PeerPort => 123,
                                          Timeout => $timeout)
                                      or die "Can't connect to \"$server\"\n";
                        
    # send the ntp-request to the server
        $remote -> send($ntp_msg) or return undef;
            

    # receive the ntp-message from the server

           sysread( $remote, $ntp_msg, 4096 ) or
           do { print "Receive error from $server \n"; exit};
           close $remote;
    print "#It was possible to gather the following information\n#from the
    remote NTP host $server #\n ";
            $ntp_msg =~ s/^\s+//;
            $ntp_msg =~ s/\"//g;
     @fields = split(/,/, $ntp_msg);
     foreach (@fields) {
      if ($_=~/version/) {
      $_=~s/mversion=//i;
      $_=~ s/^\s+//;
        print "# NTP daemon:$_ #\n";
      }
      if ($_=~/processor/) {
        $_=~s/processor=//i;
      $_=~ s/^\s+//;
        print "# Processor:$_ #\n";
      }
      if ($_=~/system/) {
      $_=~s/system=//i;
      $_=~ s/^\s+//;
        print "# Operating system:$_ #\n";
      }
       }

     }

    sub ntp_installed
        {
    my $ndata;
    my $timeout = 2;

         
    $ndata = pack "C*",(0xDB, 0x00, 0x04, 0xFA, 0x00, 0x01,
           0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00,
        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
        0x00, 0x00, 0xBE, 0x78, 0x2F, 0x1D, 0x19, 0xBA,
        0x00, 0x00);
    $remote = IO::Socket::INET -> new(Proto => "udp", PeerAddr => $server,
                                          PeerPort => 123,
                                          Timeout => $timeout);
                                     
                                          
                        if ($remote)
                        {
    # send the ntp-request to the server
        $remote -> send($ndata);
            
         
    # receive the ntp-message from the server
    $SIG{ALRM} = \&timed_out;
      alarm ($timeout);
     eval { $remote -> recv($ndata, length(4096),0);
                  close $remote;
                  alarm (0);
                  }
                 
                 }
             if ($ndata)
        {
         
            return (1);
                       
            
    }
    return (0);
    }

           

    sub get {
    my $nlist;
    if (ntp_installed)
    {
    print "************* NTP server found at host $server **************\n";
     get_ntp;
    print "*************************************************************\n";
    }

    }

    $opt_t && get ;

    ADDITIONAL INFORMATION

    The information has been provided by arhont.com.
    To keep updated with the tool visit the project's homepage at:
    <http://www.arhont.com/ViewPage7422.html>
    http://www.arhont.com/ViewPage7422.html

    ========================================

    This bulletin is sent to members of the SecuriTeam mailing list.
    To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
    In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

    ====================
    ====================

    DISCLAIMER:
    The information in this bulletin is provided "AS IS" without warranty of any kind.
    In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.

  • Next message: SecuriTeam: "[TOOL] TFTP Filename Bruteforcer"

    Relevant Pages