Autor
|
Tema: generador claves en perl (Leído 5,807 veces)
|
baronobus
Desconectado
Mensajes: 9
|
dejo aqui un generador de claves en perl por si alguien necesita adaptarselo para algo...este genera claves de 16 caracteres , mezclando letras mayusculas y numeros. guardarlo como generador.pl y ejecutar como #perl generador.pl se ira generando un fichero llamado fichero_wpakey.txt y a medida que va aumentando de peso por el numero de keys ya podeis enfrentarlo a vuestro *.cap de la siguiente manera: #aircrack-ng -w fichero_wpakey.txt *captura.cap suerte (no incluir los corchetes) [ #!/usr/bin/perl my @alpha = ("A", "B", "C", "D", "E","F", "G", "H", "I", "J" , "K" , "L", "M", "N", "O", "O", "Q", "R", "S", "T", "U", "V","W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"); my $i; my $z; my $j; my $x; my $d; my $f; my $k; my $n; my $a; my $b; my $c; my $e; my $g; my $h; my $j; my $l; for ($i=0;$i<=35;$i++) { for ($z=0;$z<=35;$z++) { for ($j=0;$j<=35;$j++) { for ($x=0;$x<=35;$x++) { for ($d=0;$d<=35;$d++) { for ($f=0;$f<=35;$f++) { for ($k=0;$k<=35;$k++) { for ($n=0;$n<=35;$n++) { for ($a=0;$a<=35;$a++) { for ($b=0;$b<=35;$b++) { for ($c=0;$c<=35;$c++) { for ($e=0;$e<=35;$e++) { for ($g=0;$g<=35;$g++) { for ($h=0;$h<=35;$h++) { for ($j=0;$j<=35;$j++) { for ($l=0;$l<=35;$l++) { #for ($x=0;$x<=35;$x++) # { my $WAP_KEY="@alpha[$i]@alpha[$z]@alpha[$j]@alpha[$x]@alpha[$d]@alpha[$f]@alpha[$k]@alpha[$n]@alpha[$a]@alpha[$b]@alpha[$c]@alpha[$e]@alpha[$g]@alpha[$h]@alpha[$j]@alpha[$l]"; open(FILEHANDLE , ">>fichero_wpakey.txt") or die 'cannot open file!'; print FILEHANDLE $WAP_KEY , "\n"; } } } } } } } } } } } } } } } }]
|
|
« Última modificación: 25 Marzo 2012, 23:39 pm por baronobus »
|
En línea
|
|
|
|
MasterPM2
Desconectado
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
creo que se veria mejor si usas la etiqueta de codigo correspondiente Saludos
|
|
|
En línea
|
ANBU暗部 Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3
<firma retirada, no la vuelvas a poner o se te sancionara> <- - Amenazas
|
|
|
baronobus
Desconectado
Mensajes: 9
|
Me encantaria modificarlo como dices pero no veo como...sabes como hacerlo MasterPM2¿
|
|
|
En línea
|
|
|
|
MasterPM2
Desconectado
Mensajes: 425
,.-~´¨¯¨`·~-.¸--$4(_Må§të®-Þåølø™_)-$-,.-~´¨¯¨`·~-
|
hay una dropbox, o mmm no se como se dice en espanol.. cuando estas creando tu mensaje ves 5 lineas principales.. 1) asunto 2)icono del mensaje 3) una serie de opciones para formato de texto, justo al final del extremo derecho de esta linea esta un menu que por defecto dice "GeSHi" cambialo en funcion del lenguaje que utilizas
|
|
|
En línea
|
ANBU暗部 Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3
<firma retirada, no la vuelvas a poner o se te sancionara> <- - Amenazas
|
|
|
baronobus
Desconectado
Mensajes: 9
|
Si ok...
tienes razon..se ve mas bien y mas claro..gracias.
|
|
|
En línea
|
|
|
|
baronobus
Desconectado
Mensajes: 9
|
Ejemplo modificado para algunos routers/wepkeys de jazztel: (no incluir los corchetes) [#!/usr/bin/perl my @alpha = ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9" ); my $a; my $b; my $c; my $d; my $e; for ($a=0;$a<=10;$a++) { for ($b=0;$b<=10;$b++) { for ($c=0;$c<=10;$c++) { for ($d=0;$d<=10;$d++) { for ($e=0;$e<=10;$e++) { my $WAP_KEY="@alpha[$a]@alpha[$b]@alpha[$c]@alpha[$d]@alpha[$e]"; open(FILEHANDLE , ">>wpakey-jazztel.txt") or die 'cannot open file!'; print FILEHANDLE $WAP_KEY , "\n"; } } } } }]
|
|
« Última modificación: 26 Marzo 2012, 00:03 am por baronobus »
|
En línea
|
|
|
|
P4nd3m0n1um
Desconectado
Mensajes: 1.419
|
y si lo ejecutas en paralelo, como con el john o el crunch: perl generador.pl | aircrack-ng -w - *captura.cap
en ves de crear el archivo.
|
|
« Última modificación: 25 Marzo 2012, 23:47 pm por P4nd3m0n1um »
|
En línea
|
|
|
|
baronobus
Desconectado
Mensajes: 9
|
si claro..por supuesto es mas comodo P4nd3m0n1um ..
mi idea era dejar el generador por el motivo q explico al inicio.
salutaciones
|
|
|
En línea
|
|
|
|
explorer
Conectado
Mensajes: 102
Analista/Programador Perl
|
El segundo código, si solo consiste en recorrer los valores numéricos entre 00000 y el 99999, vale ponerlo como #!/usr/bin/perl open my $FILEHANDLE, ">>", "wpakey-jazztel.txt" or die 'cannot open file!'; for my $WAP_KEY ( "00000" .. "99999" ) { print $FILEHANDLE $WAP_KEY , "\n"; }
Además, dejamos fuera del bucle las sentencias open() y close(), por lo que se ejecutará mucho más rápido. En el primer código hay un error: falta la 'P'. Y es demasiado largo para lo que se quiere hacer. Esta es una versión un poco más corta: #!/usr/bin/perl use Modern::Perl '2012'; use autodie; use Algorithm::Combinatorics 'variations_with_repetition'; my @data = ( 'A' .. 'Z', '0' .. '9'); my $iterador = variations_with_repetition(\@data, 16); open $fh, '>', 'fichero_wpakey.txt'; while (my $v = $iterador->next) { say $fh @{$v}; }
P.D.: El fichero resultante es realmente grande... 36^16 = 7,95866111 × 1024. Ocho cuatrillones de claves... Dudo mucho que se pueda generar un archivo de 135 yottabytes, en un ordenador casero...
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Filtrado el patrón de claves WiFi utilizadas por Movistar y Jazztel
Noticias
|
wolfbcn
|
0
|
6,696
|
4 Febrero 2011, 12:59 pm
por wolfbcn
|
|
|
claves de jazztel y wlan solo con la macc. Y FUNCIONA....!!!!
Wireless en Linux
|
ruben_linux
|
1
|
47,344
|
25 Julio 2011, 00:33 am
por ruben_linux
|
|
|
Generador de claves Wifi Telmex ETB Colombia
Hacking Wireless
|
elbarto11
|
0
|
7,133
|
4 Marzo 2012, 15:34 pm
por elbarto11
|
|
|
[RETO-EJERCICIO] Perl: Obtener valor de digitos
Scripting
|
fary
|
1
|
2,454
|
21 Enero 2014, 17:48 pm
por fary
|
|
|
"Hay que utilizar claves fuertes de wifi, de 10 o 15 dígitos, para frenar a ...
Noticias
|
wolfbcn
|
0
|
1,827
|
19 Enero 2017, 21:22 pm
por wolfbcn
|
|