Générer un mot de passe aléatoirement

Télécharger le projet
Commenter

Description

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

Ajoutez un composant TLabel et TButton.

Source / Exemple : 


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;

Conclusion :


http://www.delphipage.net/
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Yoann)