Gracias y ahi va la mia!

[JL]

Saludos!

Gracias a Jose M. Dominguez, Hugo Pablo Leyva y a Daniel Sol Llaven por
su ayuda y consejos!

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!!

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

#!/usr/local/bin/perl

$key2=10;
for($i=0;$i<6;$i++)
{
	$key=0;
	do
	{
# 	El numero 23000000 se me ocurrio
		$key=23000000*rand(srand(time^$$));
# 	Tomo 2 digitos a partir del octavo porque los primeros siempre se
# 	parecian
		$key=substr($key,8,2); 
		$key=int($key)+77;
# 	Con las siguientes pruebas aseguro que sea letra mayuscula o
# 	minuscula
	}until((($key>=65 && $key<=90)||($key>=97 && $key<=122)) &&
$key2!=$key);
# 	Con key2 aseguro que no se repitan 2 caracteres contiguos
	$key2=$key;
	$letra=chr($key);
	$cadena=$cadena.$letra;
}
print "Cadena: $cadena\n";

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

		Hasta Pronto y nuevamente GRACIAS!!!