Verificateur de saisie

Télécharger le projet
Commenter

Description

Ce code permet de vérifier une saisie faite par un utilisateur.
Si celuil-la fait 3 erreurs le programme s'arrete.
Ceci n'est vraiment pas très sécurisé.
Meme si la cle-cd ne depend d'aucun algorithme vous pouvez mettre un mot de passe
ce n'est pas obligatoirement une cle-cd.
La cle-cd a utilisé est : 4GZ1BBCC-4GZ1-4GZ1-4GZ1-4GZ1BBCCM7PL

Source / Exemple : 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  var essai: integer;

implementation

{$R *.dfm}

procedure done();
begin
if essai = 0 then
MessageBox (0, 'Vous n''avez plus d''essais' , 'Essais épuisés', 0 + MB_ICONHAND);
Form1.close;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
if Form1.Edit1.Text = '4GZ1BBCC-4GZ1-4GZ1-4GZ1-4GZ1BBCCM7PL' then
Form1.Caption := 'Cle-cd autorisée'
else
MessageBox (0, 'ERREUR 001 : Clé-cd erronée' , 'Clé-cd', 0 + MB_ICONHAND);
essai := essai-1;

if essai = 0 then
done();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
essai := 3;

end;

end.

Conclusion :


Si vous avez des suggestions n'hésiter pas!!
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.