El dÃa de hoy se manifestó la necesidad de generar una serie de claves aleatorias para un proyecto en el que me he involucrado recientemente, la idea es que la entrada que tenemos corresponde más o menos al siguiente formato:
username_1
username_2
...
username_nLa salida que se desea obtener debe cumplir con el siguiente formato:
username_1 pass_1
username_2 pass_2
username_3 pass_3
...
username_n pass_nEn este caso debÃa cumplir un requisito fundamental, las contraseñas deben ser suficientemente seguras.
No pensaba en otra cosa que usar el lenguaje de programación Perl para realizar esta tarea, asà fue, hice uso del poderÃo que brinda Perl+CPAN y en menos de 5 minutos ya tenÃa la solución al problema planteado, el tiempo restante me sirvió para comerme un pedazo de torta que me dió mi hermana, quien estuvo de cumpleaños el dÃa de ayer.
En primer lugar, debemos instalar el módulo String::MkPasswd, el cual nos permitirá generar contraseñas de manera aleatoria. Si usted disfruta de una distribución decente como Debian1 la instalación del módulo es realmente trivial.
# aptitude install libstring-mkpasswd-perlAdemás, si usted se detiene unos segundos y lee la documentación del módulo String::MkPasswd2, se dará cuenta que la función mkpasswd() toma un hash de argumentos opcionales. Si no le pasa ningún argumento a esta función estará generando constraseñas aleatorias con las siguientes caracterÃsticas:
- La longitud de la contraseña será de 9.
- El número mÃnimo de dÃgitos será de 2.
- El número mÃnimo de caracteres en minúsculas será de 2.
- El número mÃnimo de caracteres en mayúsculas será de 2.
- El número mÃnimo de caracteres no alfanuméricos será de 1.
- Los caracteres no serán distribuidos entre los lados izquierdo y derecho del teclado.
Ahora bien, asumiendo que el fichero de entrada es users.data, la tarea con Perl es resumida en una lÃnea de la siguiente manera.
perl -MString::MkPasswd=mkpasswd -nli -e 'print $_, " ", mkpasswd()' users.dataLa lÃnea anterior hace uso de la función mkpasswd del módulo String::MkPasswd para generar las contraseñas aleatorias para cada uno de los usuarios que se encuentran en el fichero de entrada users.data, además, la opción -i3 permite editar el fichero de entrada in situ, ahora bien, quizá para algunos paranoicos (me incluyo) no sea suficiente todo esto, asà que vamos a generar contraseñas aleatorias aún más complicadas.
#!/usr/bin/perl -li
use strict;
use warnings;
use String::MkPasswd qw(mkpasswd);
while(<>){
chomp;
print $_, " ", mkpasswd(
-length => 16,
-minnum => 5,
-minlower => 5,
-minupper => 3,
-minspecial => 3,
-distribute => 1
);
}
En esta ocasión el la función mkpasswd() generará claves aún más complejas, dichas claves cumplirán con las siguientes condiciones.
-length- La longitud total de la contraseña, 16 en este caso.
-minnum- El número mÃnimo de digitos. 5 en este caso.
-minlower- El número mÃnimo de caracteres en minúsculas, en este caso 5.
-minupper- El número mÃnimo de caracterés en mayúsculas, en este caso 3.
-minspecial- El número mÃnimo de caracteres no alfanuméricos, en este caso será de 3.
-distribute- Los caracteres de la contraseña serán distribuidos entre el lado izquierdo y derecho del teclado, esto hace más dÃficil que un fisgón vea la contraseña que uno está escribiendo. El valor predeterminado es falso, en este caso el valor es verdadero.
El script mostrado anteriormente lo podemos reducir a una lÃnea, aunque preferà guardarlo en un fichero al que denomine genpasswd.pl por cuestiones de legibilidad.
- Recuerde, Debian es inexorable[regresar]
- Este modulo en particular no solo se encuentra perfectamente integrado con nuestra distribución favorita, sino que además sus dependencias están resueltas. Esto es una simple muestra del poderÃo que ofrece una distribución como Debian.[regresar]
- Para mayor información acerca de las distintas opciones usadas se le sugiere referirse a
man perlrun[regresar]
Últimos comentarios