🚀 go-pugleaf

 El otro d�a, Ignacio Arenaza nos estuvo contando:
>     Francisco> para UltraEdit 32 8.2
> 
>     >> 52-68280-31214-882e0b-843090aa28-8bc42-1-e4f76f5-390e22
>     >> Saludos. I�aki.
> 
>    Reinoso> :-O
> 
> No te aflijas, Reinoso, que lo que le he pasado es una cadena de
> caracteres resultante de la concatenacion de los md5sum de
> /etc/profile y /etc/bash.bashrc, aderezado con unos cuantos guiones
> aqui y alla.

S�, md5sum: el keygen universal... casi tan perfecto como gnumagic. :-D

De todas formas no lo va a teclear porque no le has pasado un nombre de 
usuario.

> Si, lo se, tengo muy mala leche...

Ya somos dos. :D

Para la pr�xmia me he permitido hacerte este peque�o pero �til keygen. �no 
hab�a una secci�n de programas in�tiles en ecol? ;-)

---------------------------------------------
#!/usr/bin/perl -w
# Keygen universal by Reinoso G.
# el motor de claves es de iArenaza.

printf "Generador universal del claves shareware. v1.0 NON-REGISTERED\n";
printf "Introduce el nombre del programa: "; 
$i = getc;
sleep 2;
printf "\n\nLa calve es:\n";
chop $i; # que si no luego sale warning

$ruta = "/var/spool/news/es/comp/os/linux/instalacion";
@guion = (3,6,10,20,33,50,60);

$archivo = `ls -1 $ruta`;
@ar = split '\n' , $archivo;

$cuantos = @ar;
$alea1 = int (rand() *  $cuantos);
$alea2 = int (rand() *  $cuantos);

$sum1 = `md5sum $ruta/$ar[$alea1] | cut -d' ' -f 1`;
$sum2 = `md5sum $ruta/$ar[$alea2] | cut -d' ' -f 1`;
chop $sum1;
$clave = $sum1 . $sum2;

foreach (@guion)
{
	substr ($clave,$_,1) = '-';
}

printf $clave;
printf "\n";

---------------------------------------------





-- 
�������������������������������������������������������������������������
��  Reinoso G.  EA4BAO / MiKatp             r einoso.bao@wanadoo.e s   ��
��  http://perso.wanadoo.es/reinoso.bao                                ��
�������������������������������������������������������������������������