Password logique2(avec nombres d'essai limité)

Soyez le premier à donner votre avis sur cette source.

Vue 7 421 fois - Téléchargée 1 243 fois

Description

-Une Form
-Un Bouton
-Utilise: Form1.OnActivate

Source / Exemple :


var
  Form1: TForm1;
  I:integer;{var utiliser pour nbr de fois}

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var pass: string;{variable password}
begin
i:=(i+1);{chaque fois que l'ont appuie sur le bouton on ajoute1 à I}
if i < 3{si on esayer moins de trois fois}
then
begin
    pass := inputbox('Activez les autres options','Entrez votre mots de pass :','');
    if pass = '1213'{si le mots de pass et juste}
    then{alors}
        begin
             form2.show;{Effectue les opérations dans se cas ouvre la form2}
        end
    else{sinon}
        if pass = ''{si la personne n'a rien entré}
        then{alors}
            begin
                 beep;
                 messagedlg('Veuillez entrer un mots de pass... Encore : '+IntToStr(2-I)+' essai',mtWarning,[mbOK],0);{entrer un mots de pass}
            end
        else{sinon}
            if (pass <> '') and (pass <>'1213'){si mauvais mots de pass}
            then{alors}
                begin
                     beep;
                     messagedlg('Mauvais mots de pass !!! Encore : '+IntToStr(2-I)+' essai',mtError,[mbOK],0);{mauvais mots de pass}
                end
                end
else
    begin
         beep;
         messagedlg('Vous avez fait trop de mots de pass faux !!!',mtError,[mbOK],0);
    end;;;;
            end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=-1;{Donnée au chargement de la form}
end;

end.

Conclusion :


Voilà suite du password logique N°1

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 14 juin 2006
Statut
Membre
Dernière intervention
14 juin 2006

svp a quoi sert se code ? j'comprend rien c'est au qui faut le rentré ? et est que c'est interdit de parler de piratage dans se forum ???
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010

oui il a raison mais c'était un de mes premiers codes sources...
Mais ce n'est pas l'endroit pour faire une polémique !
Messages postés
5
Date d'inscription
jeudi 8 juillet 2004
Statut
Membre
Dernière intervention
22 avril 2005

Shadow>Delphicool a raison...
Messages postés
13
Date d'inscription
dimanche 30 septembre 2001
Statut
Membre
Dernière intervention
7 avril 2002

mais ta gueule toi arrete de nous saouler avec ton cracking
C'est cool de mettre un code de ce style pour les personne qui ne savent pas comment proteger une appli.

Mais sache qu'un crackeur te cracke ton application en 2 secondes avec une tel protection.
Tous les messge qui disent "attention...." sont des pistes pour le crackeur.

Pour faire mumuse et apprendre c'est cool, mais pour proteger une appli c'est pas bon

Une bonne protection ne fait pas tant de chichi

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.