Script en Perl para generar varios passwords de fortaleza considerable.

g33k, Recomendados, Trabajo, Vida Diaria Sin blablazos »

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

Filtrar un listado de ip’s con Perl

g33k, Linux, Recomendados, Trabajo, Vida Diaria 2 Blablazos »

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 = <INFO>;
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);

Xelapan usa GNU/Linux

g33k, Linux, Software Libre/Open Source, Vida Diaria 6 Blablazos »

Me invade la alegría contarles que una empresa Quetzalteca use Software Libre para su día a día, tal vez el merito es del implementador del sistema pero debido a que desconocemos de el, felicitare a Xelapan por usar SL.

Ha aquí la evidencia:

xelapan_gnulinux

Nota: es Ubuntu GNU/Linux

Drupal Camp Centroamericano 2010

Amigos, g33k, planet-centroamerica, Recomendados, Software Libre/Open Source Sin blablazos »

Minidebconf Panama 2010

Amigos, g33k, Linux, planet-centroamerica, Recomendados, Software Libre/Open Source, Vida Diaria 5 Blablazos »

Generalmente no escribo mucho de mi vida privada en el blog sino mas de cosas técnicas, pero creo que en esta ocasión si les comentare que tengo la gran oportunidad de ir a la Minidebconf la cual se llevara a cabo en Panama, al principio se enfoco con gente de Centro America pero al momento hay gente de toda mesoamerica inscrita

La MiniDebConf se realizará en la Ciudad de Panamá los días del 19 al 21 de Marzo. Es una Conferencia de Desarrolladores del Proyecto Debian. Además de un completo programa de conferencias tanto técnicas como sociales, Minidebconf ofrece una oportunidad para los desarrolladores, contribuyentes y otras personas interesadas a reunirse en persona y coordinar las actividades más estrechamente. (esto lo tome del sitio oficial :P )

Bueno ya hace tiempo que estoy intentado aplicar para el proceso de Debian Maintainer por lo que esta es una gran oportunidad de poder alcanzar mas fácilmente esa meta

Si desean mas información acá se las dejo:

http://softwarelibre.ca/wiki/MiniDebconf2010  (wiki del evento)

http://minidebconf.debian.org.sv/  (sitio de inscripción)

http://www.debianart.org/cchost/?ccm=/media/tags/minidebconf  (arte)



[CGSOL 2009] Congreso Guatemalteco de Software Libre

Amigos, g33k, Linux, planet-centroamerica, Recomendados, Software Libre/Open Source, Vida Diaria 7 Blablazos »

Asiste!!!

Congreso Guatemalteco de Software Libre CGSOL 09 from EsPractico.com on Vimeo.

Descarga | Video en formato ogg
Enlace | CGSOL 2009

Habilitar el usuario root en Open Solaris

g33k, planet-centroamerica, Software Libre/Open Source 6 Blablazos »

Por default el usuario root viene deshabilitado en Open Solaris, es por eso que al momento de instalarlo se nos pide otorgarle a un usuario privilegios de root.

Para poderlo activar, debido a razones practicas obviamente no de seguridad, lo podemos realizar tipeando el siguiente comando:

jorge@opensolaris:~# rolemod -K type=normal root

Yo en este caso con ya habia logeado con permisos de root con su , utilizando mi usuario con permisos de root. Terminando de correr el comando ya podemos acceder desde ssh o desde el gdm/consola con este usuario que a mas de alguno se le hace mas practico de activar.

[Linux Tip #6] Dispositivos de Red Virtuales

g33k, Linux, Linux tip, planet-centroamerica, Software Libre/Open Source 3 Blablazos »

Hay ocasiones en donde necesitamos de tener habilitadas varias direcciones ip en nuestra maquina para poder acceder a varias redes, obligandonos a cambiar la ip manualmente cada vez que queremos acceder a un segmento distinto de red. Esta operación se puede volver tediosa y aburrida, en ocasiones la compra de otra tarjeta de red apaga el fuego , pero que hacer cuando no tenemos los recursos disponibles para solventarlo de esta manera?

Eso queda atras si sos usuario de GNU/Linux, ya que en la GRAN mayoria de casos no hay necesidad de instalar nada extra gracias a las herramientas basicas de red que ya incluye cada Distro de Linux.

¿Como logramos esto?

# ifconfig eth0:0 192.168.1.22 netmask 255.0.0.0

Sencillo no? solo tenemos que agregar “:” y el numero de dispositivo virtual que querramos asignar luego del nombre de dispositivo, claro tenemos que tener habilitado el dispositivo eth0 en nuestra maquina(en este caso), si en algun otro caso cambia a lan0 por ejemplo ps el dispositivos sera lan0:0 cambiando el cero por el numero que querramos de dispositivo virtual.

Solo como nota tenemos que tener en cuenta que solo podremos utilizar un gateway, a menos que juguemos un poquito con la tabla de rutas ;) suerte y ojala le saquen provecho!

Ubuntu Release Party

g33k, Linux, planet-centroamerica, Software Libre/Open Source 2 Blablazos »

Reactivando la comunidad Ubuntu en Guatemala decidimos celebrar con esta fiesta de lanzamiento de la versión 9.04 de Ubuntu, la Jaunty Jackalope el conejo cuernudo!

Ubuntu Release Party

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