Discussion :

[Upal]

Voilà je cherche à faire un programme d'authentification avec login et mot de passe.
J'ai déjà tout fait et cela marche très bien (en grosse partie grâce à Pascail) mais j'aimerais l'améliorer : je voudrais que lorsque l'utilisateur entre son mot de passe, s'affichent à l'ecran des étoiles...
J'ai essayé d'effacer la ligne et chaque fois que l'utilisateur frappe une touche et d'afficher une * mais ça bugge à mort, j'ai jamais vu ça !!
Merci de votre aide

[tintin22]

un bout de code peut-être, pour pouvoir t'aider!

[charly]

sa depant si tu es en mode text ou en mode graphique .... en mode text , sa ne doit pas etre compliquer d intercepter les touches et en mode graphique , tu peux bidouiller , je pense , sa depant aussi du compilot , mais je suppose que c est tp7 ...

[M.Dlb]

C'est simple : tout ce passe avec Readkey, de l'unité crt. Tu fais une boucle repeat ou while qui récupère chaque touche tapée, et les place dans une string. Ce qu'il faut savoir, c'est que Readkey lit une touche au clavier mais ne l'affiche pas à l'écran. Donc quand l'utilisateur du programme tape une touche, il te suffit d'afficher une étoile au lieu de la lettre qu'il tape. En mode texte, tu peux te débrouiller avec gotoxy, mais en mode graphique il faut utiliser outtextxy en incrémentant x de la taille de la police+1 ( soit en général 9 ), pour que le tout soit à peu près beau... N'oublie pas aussi que pour faire un truc sympathique, il "faut" gérer les touches spéciales du type "retour", "suppr", "echap".... et évidemment "Entrée".
a+

[Eric Sigoillot]

Tiens ! Notre Rigolo de Kermess est parmi nous !

Tout comme l'a dit Wormful, il te suffit d'intercepter les touches avec ReadKey.
Néanmoins, il n'est pas nécessaire d'utiliser GotoXY. Write suffira.

Il te suffit de changer tous les codes clavier au-dessus de 32 en étoile, et d'afficher normalement ceux en-dessous (dits codes de contrôle).

A+

[Upal]

ok merci je vais essayer 8)

[M.Dlb]

Gotoxy peut être utile pour gérer les touches spéciales. Quoique... Ca doit marcher sans peut-être... Oh faites comme vous voudrez, les deux marchent !!
a+

[Pascail]

En tout cas, fait gaffe a la touche retour( backspace ), ( je crois que c'est le code #8 ), si la personne se trompe :-!

@++ Mathieu

[Eric Sigoillot]

Aucun problème avec les touches de contrôle si tu es en mode texte ! Il suffit de les balancer à la sortie standard pour que l'action nécessaire s'effectue.

Pour reprendre l'exemple du retour arrière (code #8 ), il suffit de faire Write( #8 ); pour revenir d'une position en arrière.
De la même manière, Write( #10 ); descend le curseur d'une ligne.

A+

[badrou]

salut
j'ait essayer avec le code suivant j'ais un tout petit probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program pass ;
uses wincrt ;
 
 type
mot =string[25];
var
i,nf:integer;
nom : mot;
begin
writeln ('******************************************************************************** ');
writeln ('****                              top secret                                **** ');
writeln ('******************************************************************************** ');
write ('tapper le mot du pass :  ');
repeat
 i:=0;
repeat
i:=i+1;
 
  nom[i] := Readkey;
  Write('*');
  until (chr(13)=nom[i]);
 ClrScr;
if nom <>'323255'then{ ici le mot de pass est 323255chr(13)}
    begin
    writeln( 'le mot de pass que vous vener de rentrer est incorecte ');
 
      write ('retapper le:  ');
    end
 else
     begin
      writeln ('*-*/bienvenu dans le programme oficielle\*-* ' );
      writeln ('votre nom est "pascal" ');
 end;
 until(nom='323255');
  write ('ok');
end.

quand je l'execute a l'entré du mot de pass il fait la lecture du mot de pass plus chr(13)(dans l'exemple)et lui ajoute
et c'est pas ca ce que je veut
je croi que j'etait claire
il te sufi de resoudre mon probleme pour resoudre le tien
merci de m'eclairer et couriger mes fotes

[stimbo]

j'ai deja vu un prog de saisie de mot de passe ds ce forum
il est ds le sujet de "comment crypter" je crois
ya un source de pascail en fin je crois que c'est lui
il saisit la cle d'encryptage sous forme de * vous devrez examiner le source
allez bye

[Pascail]

Le source n'est pas de moi, mais enfin ...

http://www.developpez.net/forums/vie...omment+crypter

La partie de code interessante est celle là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
         Repeat 
            {$I-} 
            key[lettre] := readkey; 
            {$I+} 
            If ((Ord(key[lettre]))=13) Then Begin MP_long := MP_long-1; break; End; 
            If (IOresult=1) Or (MP_long=0) Then Writeln('Pas d''entr‚e...'); 
            Textcolor(14); 
            Write('*'); 
            If (key[lettre] = espace) or (key[lettre] in alphabmaj) or (key[lettre] in alphabmin) 
               or (key[lettre] in chiffres) Then valeur_entree_valide := True 
            Else 
               Begin 
                  valeur_entree_valide := False; 
                  break; 
               End; 
            MP_long := MP_long+1; 
            lettre := lettre + 1; 
         Until ((Ord(key[lettre]))=13);

Il suffit de bien l'étudier, c'est pas compliquer du tout, et d'aller voir le code original,pour les variables !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Const alphabmaj : lettres = ['A'..'Z']; 
      alphabmin : lettres = ['a'..'z']; 
      chiffres : lettres = ['0'..'9']; 
      espace = ' ';

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Var   carBin            : Array[1..8] Of Byte; 
      key               : Array[1..15] Of Char; 
      cpt ,cpt0, cpt1, debut, I, lettre  : Integer; 
      erreur, MP_long, mult, nbcar, nbr  : Integer; 
      position, R, reste, resultat       : Integer; 
      Caractere, PosBit, Register, RegChar, RegStr : String; 
      valeur_entree_valide         : Boolean; 
      ert : real;

Tout mettre, ça ne sert pas a grand chose ...
et, pis : un type important !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Type  lettres = Set Of Char;

Voila, essaye c'est pas compliqué !

@++ Mathieu

[Eric Sigoillot]

Il est toujours pas plié ce problème ? C'est pourtant pas si compliqué que ça... Enfin je pensais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
var
  Pass: string;
  Ch: Char;
begin
Pass := '';
repeat
Ch := ReadKey;
case Ch of
#8: begin
    Write( #8);
    Delete(Pass, Length(Pass), 1);
    end;
#13: ; { On ne fait rien ici... }
else 
  begin
  Pass := Pass + Ch;
  Write('*');
  end;
end;
until Ch = #13;
WriteLn;
WriteLn('Mot de passe entré : ', Pass);
end;

C'est à améliorer, mais un début...

A+