Soyez le premier à donner votre avis sur cette source.
Vue 8 428 fois - Téléchargée 910 fois
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;
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.