Gracias y ahi va la mia!

[Roberto Jimeno]

>    Ya hice una funcion adecuada para mi, basandome principalmente en la de 
>    J. M. Dominguez, pero tenia el problema de que siempre me daba puras "a" 
>    asi es que le hice unos parchecillos. Perdonen lo chafa pero no soy
>    profesional!!

	A mi me pidieron que hiciera algo muy parecido a lo que tu
necesitas, solo que con menos combinaciones. En particular tu programa
puede generar hasta 56^6 = 19770609664 combinaciones distintas,
mientrass que el mio solo genera 26^4 * 100 = 45697600.

	Si tomas mi codigo y lo modificas, puedes hacer algo más
pequeño y bello que el programa que tu escribiste (y que el mío
también). Además es más rapido.

	Por favor observa que si le pasas un parametro, tons genera
ese numero de palabras clave; v.g.:

[jimeno@antares jimeno]$ ./mgp 3
qyQC59
znUV06
uxFG51
[jimeno@antares jimeno]$ cat ./mgp
#!/usr/local/bin/perl

$nl = 26 ;
$plm = 97 ;
$plM = 65 ;
$nd = 10 ;
srand (time () ^$$ + ($$ << 15)) ;

($i = $ARGV[0]) || ($i = 1) ;

while ($i--) {
        $a = chr ($plm + int (rand $nl)) ;
        $b = chr ($plm + int (rand $nl)) ;
        $c = chr ($plM + int (rand $nl)) ;
        $d = chr ($plM + int (rand $nl)) ;
        $e = int (rand $nd) ;
        $f = int (rand $nd) ;
        $pc = "$a$b$c$d$e$f";
        printf "$pc\n";
}
							Suerte!
-- 
-------------------------------------------------------------------------------
Roberto Jimeno.       From The Cher-Speak Dictionary for the totally clue less:
Tscha (TSCHA), excl. 1. Surely you jest. 2. No shit.