Cita:
Empezado por Casimiro Notevi
Pues esa versión todavía no la he visto/probado, ¿cómo lo haces?, ¿guardas la clave en un ficherito encriptado?. ¿Cuál es el enlace a la misma?
|
Si el password del ftp o la clave de cifrado no se introducen en la linea de comandos, el programa le pide al usuario que los introduzca por teclado, pero evitando que los caracteres que se teclean se muestren por pantalla.
Prueba con este enlace (lo acabo de actualizar):
http://delphi.jmrds.com/?q=node/39
Para introducir la contraseña utilizo esta función:
Código Delphi
[-]
function ReadPass(Prompt: String): String;
var
Mode: DWORD;
begin
Result:= EmptyStr;
Write(Prompt);
if GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode) then
try
if SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),
Mode and not ENABLE_ECHO_INPUT) then
Readln(Result);
finally
SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode);
end;
Writeln;
end;