GÉNÉRER UN MOT DE PASSE ALÉATOIREMENT

procedure TForm1.Button1Click(Sender: TObject);
Var st,st2 : string;
nb,i:integer;
begin
st:='abcdefghijklmnopqrstuvwxyz1234567890'; //Contenu que peut avoir le mot de passe
Randomize; //Initialisation
For nb:=0 to 4 do //Le mot de passe contiendra 5 caractères
begin
{Normalement la fonction Random(36) va (0 <= X < 36). Mais si on tombe sur 0 alors
st2 contiendra parfois moins de 5 caractères, il faut donc trouver une parade.
la parade est "Random(36)+1", maintenant le domaine est de(1 <= X < 37)}
i:=Random(36)+1; //Nombre de caractères dans st (1 <= X < 37)
st2:=st2+st[i]; //Ajoute a st2 le caractere correspondant a i dans st
end;
Label1.Caption:=st2; //Affichage dans le Label1
end;    

Télécharger le zip