SoloCodigo

Programación General => Pascal => Mensaje iniciado por: sonnyalejandro en Domingo 20 de Abril de 2008, 09:39

Título: Conversion De Caracteres
Publicado por: sonnyalejandro en Domingo 20 de Abril de 2008, 09:39

hola a todos....

quisiera saber si se puede al momento de digitar cualquier cadena por ejemplo

forever que se vaya convirtiendo en asterico pa que vaya quedando de esta manera
ejemplo: password: ******

es que se me ocurrio una pequeña idea que cuando compile el programa me salga un mensaje pidiendo un password pero no doy para convertir dichas letras en asterisco para que se vea mas real.........

el codigo es algo asi ...... si tiene errores despues los corrijo solo es para que me ayuden.....

porgram pass;
uses crt;
var
clave,clave1:string;
clave='forever';
begin
repeat
write('digite la clave: ');
read(clave1);
until clave1=clave
end.


gracias por su colaboracion

Título: Re: Conversion De Caracteres
Publicado por: Enko en Domingo 20 de Abril de 2008, 18:57

Deberías usar la funcion ReadKey que lee un caracter y no lo escribe en la pantalla.
La idea seria, lees un caracter, lo sumas a la cadena contrasеña y dibujas un * hasta que se ingrese la tecla ENTER.

Código: Text

1.  
2. const
3.     RETURN = #27;
4. var
5.     Pass: String;
6.     Ch: Char;
7. begin
8.     Pass := '';
9.     Ch := ReadKey;
10.     while(Ch <> RETURN) do
11.     begin
12.        Pass := Pass + Ch;
13.        Write('*');
14.        Ch := ReadKey;
15.     end;
16.     Writeln;
17.     Writeln(Pass);
18.     Readln;
19. end.
20.  
21.