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

Este Workaround tambien aplicaria para Opensolaris el cual sucede cuando desde consola intentamos un pkg install, el error es similar a este>

Errors were encountered while attempting to retrieve package or file data for
the requested operation.
Details follow:

1: Framework error: code: 28 reason: Operation too slow. Less than 1024 bytes/sec transfered the last 30 seconds
URL: ‘http://pkg.oracle.com/solaris/release/solaris/file/1/fdfbf1fb0f4d58d0567b49422ed1d2ce25de85ec’. (happened 2 times)

En la consola que estamos ejecutando el pkg solo basta con exportar esta variable de entorno>

export PKG_CLIENT_TIMEOUT=300

Hace poco tuve que depurar de un listado de como 500+ ip’s (lista_ips.txt) cierto segmento el cual no me interesaba y que me fuera a dejar las ip’s distintas del mismo a otro listado (ips_dep.txt) , pues para esto decidí hacerlo con Perl.

El script es bastante flexible si se quisiera hacer el listado al revés , solo hace falta cambiar !~ por != y listo ya tenemos la obtención de cierto segmento en lugar de su depuración.

Bueno, se los dejo

#!/usr/bin/perl

foreach my $ip (@lineas)
{
chop $ip;
if ($ip !~ m/$regexp/is ){
print INFO "$ip\n";
}
}
close(INFO);

Lo confieso tengo problemas con hacer el nudo de la corbata :-S jajaja, bueno pero lo mejor es resolverlo talvez a lo geek o practico , ud’s decidan ¿Como? gracias a la internet, especificamente You Tube

LOL

Con dibujitos por aquello que no este completamente claro….