Password

[tugadigital]

Boas pessoal

Ando agora a aprender PASCAL e queria uma cena.

Por exemplo:

Um programa com password, onde peço a password ao utilizador, como faço para quando ele começar a escrever, apareçam estrelas em vez de letras/números ?

Fiquem

Tks 

[electron++]

tens que usa um Readkey e quando o utilizador digitar o carácter tens que apagar a linha onde esta a ser digitada a password e ao mandares o carácter para um vector, conta o  numero de elementos do vector e escrever o numero de caracteres correspondente.

tens que ter cuidado com as teclas [enter] e  [backspace].

Já existe um código em C++ que faz exactamente isso, é so uma questão de dares uma olhadela ao código e tiras uma ideia daquilo que tens que fazer.

Tópico=> http://www.portugal-a-programar.pt/index.php?showtopic=15184

[joaovasco]

exemplo:

function LeadingZero(w:Word):String;

var

  s:String;

begin

  Str(w:0,s);

  if Length(s)=1then

    s:='0'+s;

  LeadingZero:=s;

end;

begin

    textbackground(blue);

    clrscr;

    textcolor(white);

    writeln('Insira a password sff.');

    c:=10;

    for x:=1 to 4 do

    begin

          gotoxy (c,5);

          car:=readkey;

          pas[x]:=car;

          gotoxy(c,5);

          writeln('*');

          c:=c+1;

    end;

    if(pas[1]='e')and(pas[2]='t')and(pas[3]='p')and(pas[4]='s')or(pas[1]='E')and(pas[2]='T')and(pas[3]='P')and(pas[4]='S')then

    begin

          clrscr;

                    textcolor(white);

          textbackground(red);

          gotoxy(25,21);writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');

          gotoxy(25,22);writeln('º    Password Correcta!!!    º');

          gotoxy(25,23);writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

          delay(1300);