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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Triangulo
- Buscador de imagenes
- Bingo

Codificar contraseñas

Publicado por ramon (2075 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