Script en Perl para generar varios passwords de fortaleza considerable.

g33k, Recomendados, Trabajo, Vida Diaria Emitir blablazo

Como administradores de sistemas varias veces nos miramos en la necesidad de generar passwords de fortaleza considerable y hay los casos cuando ademas de todo necesitamos generar varios de ellos , ya sea para escoger algunos o uno de esta lista generada o para varios hosts o equipos.

Este script busca suplir esa necesidad, el mismo es algo flexible mediante las variables $numPasswords y $largoPassword las cuales nos permiten indicar cuantos passwords, queremos generar y de que largo queremos los mismos, si queremos ir un poco mas allá , podemos incluso jugar con la serie de caracteres que se incluirán dentro de los passwords con solo agregar o quitar los mismos dentro de la cadena que se asigna a la variable $serie.

He aquí es Script:

 

#!/usr/bin/perl
#
# DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
# Version 2, December 2004
#
#Copyright (C) 2004 Sam Hocevar
#
#Everyone is permitted to copy and distribute verbatim or modified
#copies of this license document, and changing it is allowed as long
#as the name is changed.
#
# DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
# TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
#
# 0. You just DO WHAT THE FUCK YOU WANT TO.
#
# Author = Jorge Dardón jdardon[at]xelalug[dot]org
#

$numPasswords= 19;
$largoPassword=12;

for ($i = 0; $i <= $numPasswords; $i++) {
print ($i+1)." ";
print generatePassword($largoPassword) . "\n";
}
exit;

sub generatePassword {
$largo = shift;
$serie = 'abcdefghijkmnpqrstuvwxyz123456789ABCDEFGHJKLMNPQRSTUVWXYZ0123456789';
$password = '';
while (length($password) < $largo) {
$password .= substr($serie, (int(rand(length($serie)))), 1);
}
return $password
}

 

 

Enlace de interés | Perl

Creative Commons License
Esta obra está bajo una licencia de Creative Commons.

Leave a Reply

WP Theme & Icons by N.Design Studio
Entradas RSS Blablazos RSS Log in