4 respuestas en este tema

[sir.dev.a.lot]

[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.

delphi

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:

delphi

Edit1.Text:= RandomPassword(10);

Saludos!

 

[egostar]

Gracias por todos los trucos que has subido amigo sir.dev.

 

Y aprovechando tu generosidad y éste truco, podríamos hacer un ejercicio haciendo que dicha contraseña obligue a que se genere por lo menos 1 número, 1 mayúscula y que evite números repetidos.

 

Veamos quien crea la solución más interesante 

 

Saludos

[Delphius]

¡Hey Eliseo, no abuses del muchacho y haz tu propio trabajo! ¡Pero che!

 

Esto me hizo acordar de este hilo, y como en Lazarus si quisieramos ponernos más puntillosos (o quisquillosos) como para incluir Ñ y otros caracteres "raros" las cosas serían un pelín diferente.

 

Saludos,

[egostar]

¡Hey Eliseo, no abuses del muchacho y haz tu propio trabajo! ¡Pero che!

 

Esto me hizo acordar de este hilo, y como en Lazarus si quisieramos ponernos más puntillosos (o quisquillosos) como para incluir Ñ y otros caracteres "raros" las cosas serían un pelín diferente.

 

Saludos,

 

 

jajaja, no no, lo he dicho para que todos participen a partir de lo que sir.dev ya ha hecho, no le estoy pidiendo mas trabajo

 

Saludos

[sir.dev.a.lot]

                       , Bien.... Vamos a participar mas.

 

Estoy viendo como se estan animando....

 

Saludos!