Pascal (codificar texto)

[Shia]

Hola!.. ¿Como estan?

tengo una duda, necesito hacer una función o procedimiento, para codificar texto, asi como cuando uno entra al correo que coloca su login y luego su contraseña y mientas se va escribiendo la contraseña vallan saliendo los asteriscos, y aparte se guarde la clave. ya que si esta correcta pueda entrar al programa.

Yo no tengo mucha idea de como hacer eso, intente hacer con un for y un readkey, pero no me funciono, (no se por que). Bueno si alguien tiene alguna idea, le agradeceria me ayudara. Hasta luego..

[VBCode]

Se me ocurrio esto preo te anticipo que no tengo Pascal para probarlo, o sea no se si anda o tiene errores.


Function LeerContrasena:string;
Var Kb:Char;
Cadena:String;
Begin
Cadena:=' ';
Repeat
if Keypressed then
Begin
Kb:=Readkey;
if Kb <>Chr(13)
Begin
Cadena:=Cadena+Kb;
Write('*');
End;
End;
Until Kb = Chr(13)
LeerContrasena:=Cadena;
End;

Despues en el programa principal ya sabras lo que tenes que hacer, Cualquier cosa pregunta de nuevo.

[Shia]

Hola...

Hmm... me guie por lo que me mostraste y por otro y logre sacar uno que me guardara la contraseña y salieran los asteriscos.

Gracias!

Oye una pregunta ¿Sabes trabajar con modo grafico?

[Shia]

A propocito.. ¿Sabes Como puedo pasar un .pas a .exe? intente cambiadole la extención pero no sirve..

Hasta luego

[VBCode]

No se trabajar modo grafico ya que odio pascal, pero en todos lados lo tuve que aprender porque todo el mundo lo enseña como primera herramienta de programacion, fijate si te sirve de algo los ejemplos de la unit Graph para modo grafico.
Podes generar un .exe con Built que esta an el menu de archivo o algo asi.