Verificateur de saisie

Soyez le premier à donner votre avis sur cette source.

Vue 5 651 fois - Téléchargée 482 fois

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!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2448
Date d'inscription
samedi 21 février 2004
Statut
Modérateur
Dernière intervention
29 janvier 2010
17
mais les gars je pense plutot que le crackeur verras directement le code non??
il aura un truc comme code objet "le serial" enfin tout depand du compilateur
mais je crois que ce genre de "string" ne se voit pas directement dans les tableau (enfin en c++ toutefois:j'ai tester)
Messages postés
323
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
17 mai 2005

Je suis du même avis, une bonne dongle et tu limites la casse...
Messages postés
63
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
15 décembre 2009

PS :

VIVE L'OPEN SOURCE....

et les programmes libres....

bye...
Messages postés
63
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
15 décembre 2009

C'est vraiment pas sécure comme méthode de verrouillage d'un EXE....

Mais bon... de toute façon tout est piratable...

pour ton verrouillage, tu prends un bon softice, on bon désassembleur... et ton applic est crackée en moins de 5 minute.... d'autant que les programmes générés avec Delphi sont trés bien documenté (désassemblé, on voit tout de façon trés explicite)...

Dés que tu affiches une fenêtre à l'écran (demandant le mot de passe par exemple), c'est crackable...

tu vois quand tu écris :
if Form1.Edit1.Text = '4GZ1BBCC-4GZ1-4GZ1-4GZ1-4GZ1BBCCM7PL' then

ceci est traduit en assembleur par quelque chose du type : Jump if Equal , il suffit de remplacer cette ligne assembleur par l'instruction Jump if Not Equal...

Et ton programme sera ouvert à tous sauf ceux qui taperons le bon code !!!

Je ne connais pas de solution miracle, je ne suis pas spécialiste dans le domaine...

Moi, ce que je dis c'est que ça sert à rien de protéger des programmes... il vaut mieux faire de l'open source (si c'est pas une application commerciale de grande envergure)... ou si l'on veut vendre, il faut que le logiciel utilise du hard et vendre le hard avec le soft (drivers ou pilote compilés dans l'exe), ça limite vraiment efficacement le piratage !!!
si le pirate à pas ton matériel il peut pas utiliser ton programme (à moins qu'il ne réécrive un driver pour son hard à lui, et là, il ferait mieux de venir bosser avec toi...)

bon. à+
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Hé hé...
Et n'oubliez pas de coder les Strings genre "merçi de vous être enregistré" ou autres "Clé-cd autorisée"...
Un cracker moyen aura vite fait de les repérer... ;)
Sinon, autant distribuer son programme en Freeware :)
Afficher les 10 commentaires

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.