Entrée au clavier sous forme ******

Version imprimable

29/10/2002, 20h17
Upal

Entrée au clavier sous forme ******

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 :roll:
29/10/2002, 21h29
tintin22

un bout de code peut-être, pour pouvoir t'aider!
29/10/2002, 21h34
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 ...
29/10/2002, 22h51
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+
29/10/2002, 23h24
Eric Sigoillot

Tiens ! Notre Rigolo de Kermess est parmi nous ! :wink:

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+
30/10/2002, 10h26
Upal

ok merci je vais essayer 8)
30/10/2002, 15h25
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+
30/10/2002, 18h24
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
30/10/2002, 20h40
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+

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

Code:

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 :)

13/02/2003, 21h30
stimbo

j'ai vu ça

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

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:

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:

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

Code:

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:

Type lettres = Set Of Char;

Voila, essaye c'est pas compliqué !

@++ Mathieu

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

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+