Codigo sin utilidad

[[seoane]]

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;