Générateur de mots de passe aléatoire

Télécharger le projet
Commenter

Description

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