El Blog del Jorge » Trabajo

Script en Perl para generar varios passwords de fortaleza considerable.

El Jorge — Wed, 11 May 2011 20:36:25 +0000

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

Arreglar el error “Framework error: code: 28 reason: Operation too slow.” en Solaris

El Jorge — Wed, 11 May 2011 18:50:11 +0000

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

Este Workaorund tambien aplicaria

Filtrar un listado de ip’s con Perl

El Jorge — Sun, 03 Oct 2010 06:44:33 +0000

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


use 5.006;

use strict;

use warnings;
# Archivo de entrada

my $filein = 'lista_ips.txt';

open(INFO, $filein);

my @lineas = ;

close(INFO);
# Archivo de salida

my $fileout = 'ips_dep.txt';

open(INFO, ">>$fileout");
my $re1='(192)';

my $re2='(\\.)';

my $re3='(168)';

my $re4='(\\.)';

my $regexp=$re1.$re2.$re3.$re4;

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

Como hacer un nudo de corbata

El Jorge — Thu, 11 Jun 2009 03:02:16 +0000

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….