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

Soyez le premier à donner votre avis sur cette source.

Vue 8 084 fois - Téléchargée 845 fois

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/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Nono40
Messages postés
1000
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
Il faut en fait laisser Random(36) : comme tu le dis 0<=Random(x)<X, pour que le '0' sorte, il faut mettre Random(36)+1.
cs_Yoann
Messages postés
26
Date d'inscription
lundi 1 octobre 2001
Statut
Membre
Dernière intervention
28 juillet 2004
-
Exact

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.