Débutant c'est pour vous!voici une source pour une demande de mot de passe.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 235 fois - Téléchargée 37 fois

Contenu du snippet

Source d'un mot de passe pour entrer dans un prog...Conseil la mettre sur la derniere unité.

Source / Exemple :


procedure TForm1.FormCreate(Sender: TObject);     // Cliquer sur form aller sur evenement et cliquer sur create
     const
  MotDePasse = 'se que vous voullez';
  RepQuit='q';
var
  Reponse: string;
  DonneReponse: boolean;
begin
  Reponse := '';
  DonneReponse := InputQuery('Attention', 'Entrez le mot de passe !', Reponse);

    if Reponse = RepQuit then
      Form1.Close;
  if DonneReponse then
    begin
      if Reponse = MotDePasse then
        ShowMessage('Mot de passe correct')
      else
        Form1.Close
    end
  else
    Form1.Close;
end;

A voir également

Ajouter un commentaire Commentaires
Messages postés
41
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2005

C'est une protection assez moyenne, en désassemblant, il est très facile de trouver le passe ou de changer la procédure pour tout débloquer (sauf qu'alors, il faut recompiler !).
Messages postés
50
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
5 février 2004

Moi je débute aussi en programmation DELPHI et j'ai trouvé le source assez simple aussi mais assez inéficace (quand on clique sur annuler ou quand on quitte le inputQuery ça affiche quand-même le form1) alors je l'ais amélioré un peu. Je vais la poster dans mes sources sans oublier de dire que la source est pas complètement de moi ne t'inquiète pas Quake. Avant de poster le source il faut juste que j'essaye de masquer les caractères par des étoiles comme un vrai mot de passe, Je vais essayer de trouver comment on fait.
Messages postés
3
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
28 novembre 2006

Moi j'trouve ça très simple mais pourquoi pas...
j'débute en programmation et je pense que ça peut donner des idées.
Faut bien commencer par quelque chose non ?
Messages postés
1
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
29 avril 2003

c'est peut etre pas compliquer OK met je crois que sa suffit non pourqois se casser le cul a faire plus dur.
Messages postés
103
Date d'inscription
dimanche 19 janvier 2003
Statut
Membre
Dernière intervention
19 septembre 2010

Je veux suggérer une petite remarque :
Je pence qu’on ne peut poster un astuce ou une source sauf si on pence qu’on va apporter un plus

Pour monsieur Quake je veux bien t’encourager mais je veux pas te mentir mais toi aussi tu es débutant vu ce que tu a posté (moi aussi je suis débutant)
Essayons de faire mieux
Afficher les 6 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.