C rien de compliqué, c'est mon deuxième code, ça sert à aider les gens qui n'ont pas d'inspiration (mais alors vraiment pas) pour créer un mot de passe assez sûr et aléatoirement ! Je pense que j'ai été clair !
Ps: Ca utilise la fonction Random et Randomize (pour les débutants comme moi qui la connaissent pas, vous pouvez l'étudier ds ce code). Voilà !
Source / Exemple :
Tout le source est dans le zip !!!
Ici, la source du zip simplifiée de chez simplifiée (g su que après coup, sinon je me serais pas fait autant ch**r ...)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ComCtrls, XPMan, Buttons;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Fichier1: TMenuItem;
Quitter1: TMenuItem;
About1: TMenuItem;
XPManifest1: TXPManifest;
StatusBar1: TStatusBar;
Edit1: TEdit;
UpDown1: TUpDown;
Edit2: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
procedure Quitter1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
Chiflettre, Deflettre, Defchiffre, NbBoucles, Bouclecount: integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Quitter1Click(Sender: TObject);
begin
Application.Terminate
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Bouclecount := 0;
NbBoucles := StrToInt(Edit2.Text);
Edit1.Text := '';
repeat
Randomize;
Chiflettre := Random(2);
Case Chiflettre of
0:
begin
Randomize;
Inc(Bouclecount);
Edit1.Text := Edit1.Text + IntToStr(Random(10));
end;
1:
begin
Randomize;
Inc(Bouclecount);
Edit1.Text := Edit1.Text + chr(Random(26)+65);
end;
end;
until Bouclecount = NbBoucles;
end;
procedure TForm1.About1Click(Sender: TObject);
begin
Form2.Show;
end;
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.