[Truco Delphi] Generar una contraseña Aleatoria.
Descripcion:
Permite generar una contraseña aleatoria, donde LEN es la longitud que se desea que contenga la Contraseña a generar.
function RandomPassword(PLen:Integer):String; var str:String; begin Randomize; //cadena con todos los posibles Caracteres a usar. str:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; Result:=''; repeat Result:=Result+str[Random(Length(str))+1]; until(Length(Result)=PLen) end;
Ejemplo de uso:
Edit1.Text:= RandomPassword(10);
Saludos!