Gerar uma string aleatoria

[Valdiney F. Lima 0]

Pessoal eu gostaria de gerar uma estring aleatoria para usá-la como senha...

 

eu tenho essa função em PHP:

function geraSenha(){ 	$pass_length=8; 	$p1=array('b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'); 	$p2=array('a','e','i','o','u'); 	$p3=array('1','2','3','4','5','6','7','8','9'); 	$p4=array('#','%','&','###','%'); 	$s1=19; 	$s2=5; 	$s3=9; 	$s4=5; 	$c1='121'; 	$c2='212'; 	$c3='12'; 	$c4='3'; 	$comb='4'; 	for ($p=0;$p<$pass_length;) { 	mt_srand((double)microtime()*1000000); 	$strpart=mt_rand(1,$comb); 	if($strpart<>$previous) { 	$pass_structure.=${'c'.$strpart}; 	$p=$p+strlen(${'c'.$strpart}); 	} 	$previous=$strpart; 	} 	for ($g=0;$g<strlen($pass_structure);$g++) { 	mt_srand((double)microtime()*1000000); 	$sel=substr($pass_structure,$g,1); 	$pass.=${'p'.$sel}[mt_rand(0,-1+${'s'.$sel})]; 	} 	return $pass; 	} 	for ($t=0;$t<100;$t++) { 	}

Gostaria de fazer algo parecido em Delphi...

Alguém já tem uma função parecida ou que faça a mesma coisa.

[Valdiney F. Lima 0]

Problema resolvido:

 

Function geraNome( max: integer ):string;var  i:integer;  r:string;const  str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';begin  for i:=1 to max do	r := r + str[random(length(str))+1];  Result := r;end;

 

Abraços