Seguridad Wireless - Wifi
General => Universo Wireless => Mensaje iniciado por: hazelwood en 16-04-2008, 21:15 (Miércoles)
-
Hola, sabeis como se puede hacer un diccionario que empiece en aaaaaaaa y termine en zzzzzzzz pasando por todas las combinaciones de todas las letras posibles??
gracias
-
perfectamente en C, VB, y mil lenguajes mas, solamente es una buqle.
-
un favor, nececito crear un diccionario con numeros telefonicos por ejemplo que empiece en 000000 y acabe el 999999 pero con distintos prefijos por ejemplo 084 , 984 , se que se puede en vb pero no se como , asi tendria todos los numeros telefonicos de mi ciudad por ejemplo tendria que quedar asi:
084000000
084000001
hasta el 084999999
podrias pasarme algun codigo para visual o para usar en la consola de linux?
-
que poco buscais,la verdad cada vez quereis todo mas facil y masticadito :-\
https://foro.seguridadwireless.net/enlaces-descarga-aplicaciones-wireless-linux/creadores-de-diccionarios/
-
Menos mal que tiene chincheta y estaba unos post mas arriba que si no...
https://foro.seguridadwireless.net/universo-wireless/generador-de-diccionario-stringenerator1-1/
FluiD
-
gracias por los anteriores vinculos y por no decir "USA GOOGLE", pero los codigos en phjyton y perl son un poco complicados y el string generator no puede poner prefijos a cademas numericas, me pasar algun comando en vb?
gracias de antemano
-
gracias por los anteriores vinculos y por no decir "USA GOOGLE", pero los codigos en phjyton y perl son un poco complicados y el string generator no puede poner prefijos a cademas numericas, me pasar algun comando en vb?
gracias de antemano
solo sabes pedir? busca
-
El codigo no es mio y no se el nombre de quien lo programo...
Te hago un copy and paste:
#####################################
#!/usr/local/bin/perl
my $tiempoe= time();
my $primer = $ARGV[0];
my $ultimo = $ARGV[1];
open(DICCIONARIO,">diccionario.txt")|| die "No se puede crear\n";
my $caracteres = length($ultimo);
for ($i=$primer;$i != $ultimo+1;$i++)
{
my $ceros = $caracteres - length($i);
if ($ceros > 0) {
for($e=1;$e != $ceros+1;$e++)
{
$i = "0".$i;
}
print DICCIONARIO $i."\n"
}
else
{
print DICCIONARIO $i."\n"
}
}
close(DICCIONARIO);
my $tiempot = time()-$tiempoe;
print "Proceso Terminado\n";
print "Tiempo insumido: $tiempot seg.\n";
###############################################
Copialo en un archivo de texto y ejecuta:
perl Nombre_script num_comienzo num_final
Y te crea un un archivo llamado diccionario.txt desde el numero de inicio que le digas hasta el numero final.
FluiD