Ce programme permet de generer un mot de passe aléatoirement.
Votre mot de passe sera du style "fr15d".

Dans ce prog tout est parametrable :
- le nombre de caractere du mot de passe (en changeant le contenu de la variable st).
- les caracteres possibles du mot de passe (en changeant la boule, c'est a dire le chiffre 4).


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;