Codigo sin utilidad

[Casimiro Noteví]

Empezado por seoane

Y no sera que es un complot de todos los que te rodean para que uses menos el ordenador, en cuanto te descuidas te echan zumo de piña al monitor

Pues no sé qué contestar, la verdad es que estoy teniendo mala suerte con este asunto, ya estoy cansado y ahora otra vez las llamadas telefónicas, reclamaciones, esperas, vueltas a llamar, en fin, lo típico con los "informales" vendedores informáticos

Empezado por seoane

Te cuento que, en la ultima versión, tienes la posibilidad de introducir la contraseña sin que se vea por pantalla en vez de introducirla por la linea de comandos. Son todas las mejoras que se me ocurren, y como nadie sugiera nada ...

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?

[[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;

[Casimiro Noteví]

ok.
Por cierto, estupenda tu función de creación de archivo log. La voy a sustituir por la que uso normalmente, más simple, que no tiene control de tamaño ni hilos.

[[seoane]]

Empezado por Casimiro Notevi

Por cierto, estupenda tu función de creación de archivo log.

La pagina tiene rss ... lo digo porque parece que nadie la visita

[Casimiro Noteví]

Empezado por seoane

La pagina tiene rss ... lo digo porque parece que nadie la visita

Pues seré el único que sí

[[cHackAll]]

Hola, soy nuevo en el hilo ... veo que seoane es el iniciador del mismo y al parecer me encontré con un mensaje subliminal

Código Delphi [-]
uses Windows;
var lpText: PChar = #$42#$69#$65#$6E#$76#$65#$6E#$69#$64#$6F#$20#$61#$20#$6D#$69#$20#$77#$65#$62;
begin
 MessageBox(0, lpText, 'http://delphi.jmrds.com', 0);
end.

Saludos en HEX

[[seoane]]

Empezado por cHackAll

... al parecer me encontré con un mensaje subliminal

No pudiste resistir la curiosidad