Verificateur de saisie
Soyez le premier à donner votre avis sur cette source.
Vue 5 805 fois - Téléchargée 502 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
Si vous avez des suggestions n'hésiter pas!!
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!!
21 juil. 2004 à 18:09
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)
19 juil. 2004 à 01:16
19 juil. 2004 à 01:11
VIVE L'OPEN SOURCE....
et les programmes libres....
bye...
19 juil. 2004 à 01:10
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. à+
18 juil. 2004 à 14:26
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 :)
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.