Pascal/Turbo Pascal - Codificar contraseñas

   
Vista:

Codificar contraseñas

Publicado por soulblazer laura-ps00@hotmail.com (19 intervenciones) el 09/09/2011 22:56:42
El profesor quiere que haga un programa que codifique las contraseñas, o sea que ponga asteriscos en vez del texto (*) y que el sistema sea capaz de usar el backspace para borrar caracteres de la contraseña.

No me está funcionando, aparecen los asteriscos pero no los borra cuando presiono backspace.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Codificar contraseñas

Publicado por ramon (2072 intervenciones) el 17/09/2011 17:30:18
{Algo como esto o mas completo}

program claves;
uses
crt;
var
clave : string;
i : integer;
tecla : char;

begin
clrscr;
i := 1;
gotoxy(10,10);write('Entre Clave : ');
gotoxy(23,10);
repeat
tecla := readkey;
if tecla in[#48..#57,#65..#90,#97..#122,#164,#165] then
begin
clave[i] := upcase(tecla);
clave[0] := chr(i);
gotoxy(22 + i,10);write('*');
i := i + 1;
end;
if tecla = #32 then
begin
i := i - 1;
if i < 1 then
i := 1;
clave[i] := ' ';
clave[0] := chr(i);
gotoxy(22 + i,10);write(' ');
end;
until tecla = #13;
clrscr;
gotoxy(10,10);write('Su clave es : ',clave);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Codificar contraseñas

Publicado por soulblazer laura-ps00@hotmail.com (19 intervenciones) el 05/11/2011 17:44:33
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar