Petite amélioration du source du mot de passe de quake" (pour débutants)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 644 fois - Téléchargée 35 fois
Contenu du snippet
En fait c'est pas trop compliqué (g réussi à faire ça assez vite en étant débutant) mais ça améliore un peu le source de Quake (Pas le jeu comme l'a cru un de mes potes, Quake est le pseudo d'un programmeur de Codes Sources) qui était une bonne base mais inéficace, merci à lui quand-même pour m'avoir donné une base pour faire ce petit source(désolé pour les erreurs de construction du source, pour compléter la lisibilité j'ai ajouté pas mal de commentaires.
Source / Exemple :
procedure TForm1.FormCreate(Sender: TObject); //Ce code est à rentrer dans la partie Evénements de l'inspecteur d'objets à l'onglet ""OnCreate""
const
MotDePasse = 'Le mot de passe choisi est à rentrer ici';
var
Reponse: string;
DonneReponse: boolean;//Pour les novice, boolean sert à affecter à une variable la valeur true (vrai) ou false (faux)
label label1;
begin
DonneReponse := InputQuery('.::Attention::.', 'Entrez le mot de passe !', Reponse);
if DonneReponse then
begin
if Reponse = MotDePasse then
Form1.Show
else
begin //Dans le cas où l'utilisateur entre un mauvais mot de passe, le programme ouvre la même fenêtre que la première, mais avec un message différent "Entrez un mot de passe valide !"
label1:// cible du goto label1
Reponse := '';
DonneReponse := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Reponse);
if DonneReponse then
begin
if Reponse = MotDePasse then
Form1.Show
else
goto label1 //Ouvre de nouveau la fenêtre avec les instructions en cas de mauvais mot de passe
end
else //si la fenêtre est quittée
Application.Terminate; // ou si on clique sur annuler
end; //le programme se ferme
end
else //idem, mais cette fois ci
Application.Terminate; //c'est pour la deuxième fenêtre, celle qui s'ouvre quand
end; //l'utilisateur a entré un mauvais mot de passe
end.
A voir également
- Petite amélioration du source du mot de passe de quake" (pour débutants)
- Hachage mot de passe - Forum VB.NET
- Formulaire login et mot de passe php ✓ - Forum PHP
- Melangeur de mot - Forum VB.NET
- Mélanger un mot ✓ - Forum Delphi / Pascal
- Mot de passe aléatoire - Forum C
1 mai 2003 à 20:49
1 mai 2003 à 20:33
Sinon, pour le etoiles, je ne crois pas que ce soit possible avec un InputQuery, donc il faut que tu crées une fiche avec un Edit, et tu changes sa propietes PasswordChar. Ensuite, ta fiche renvoie une valeur booleene, comme le ferait un InputQuery.
au fait, ma source ne marche pas... desole...
ca, c'est plus correct:
procedure TForm1.FormCreate(Sender: TObject);
const Mot='antoine';
var rep: string;
DonneRep: boolean;
begin
DonneRep := InputQuery('.::Attention::.', 'Entrez le mot de passe !', Rep);
if Donnerep
then
repeat
if rep<>mot
then
begin
DonneRep := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Rep);
if DonneRep=false then Application.Terminate;
end
else
Showmessage('Mot de passe Correct');
until (rep=mot) or (DonneRep=false)
else
begin
Showmessage('Application Protégée par Mot de Passe');
application.terminate;
end;
end;
end.
1 mai 2003 à 20:13
1 - Pk c'est déconseillé d'utiliser des GOTO ?
2 - Et comment on fait pour que le mot de passe entré apparaisse sous forme de petites étoiles ?
Si qq1 pouvait m'aider ce serait sympa !
Ah, une remarque sur ta source Partagas, elle a pas l'air de fonctionner. Même quand on entre le bon mot de passe, le message d'erreur "Application protégée par mot de passe" s'affiche.
1 mai 2003 à 19:45
procedure TForm1.FormCreate(Sender: TObject);
const Mot='antoine';
var rep: string;
DonneRep: boolean;
begin
if DonneRep = InputQuery('.::Attention::.', 'Entrez le mot de passe !', Rep)
then
repeat
begin
DonneRep := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Rep);
if DonneRep=false then Application.Terminate;
end;
until (rep=mot) or (DonneRep=false)
else
begin
Showmessage('Application Protégée par mot de passe!');
Application.terminate;
end;
end;
end.
mais pour une debutant comme tu dis, moi je trouve ca deja bien. Enfin un debutant qui cherche au lieu d'attendre une reponse toute cuite!
1 mai 2003 à 19:25
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.