Ver Mensaje Individual
  #6  
Antiguo 26-02-2015
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Otra idea para guardar tu password es el registro de Windows, así quede fuera del alcance de los fisgones de archivos.

Puestos a variar el código, usemos la API de Windows:
Código Delphi [-]
procedure Write(FileName: PCHAR; Buffer: Pointer; Size: integer);
var
  hFile: integer;
begin
  hFile:= CreateFile(FileName, GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
  if hFile <> -1 then
  begin
    _llseek(hFile, 0, FILE_END);
    _lwrite(hFile, Buffer, Size);
    _lclose(hFile);
  end;
end;

Saludos.

Última edición por escafandra fecha: 26-02-2015 a las 10:50:41.
Responder Con Cita