Evitar Debug
 

Hola estoy tratando de evitar que lean mis programas con ollydbg para buscar variables y contraseñas y el siguiente codigo que tengo no funciona :

Código Delphi [-]
function IsDebuggerPresent(): Boolean;
type
  TDebugProc = function(): Boolean; stdCall;
var
  FMODULE: HMODULE;
  Proc: TDebugProc;
begin
  Result  := False;
  FMODULE := LoadLibrary('kernel32.dll');
  if (FMODULE <> 0) then
  begin
    @Proc := GetProcAddress(FMODULE, 'IsDebuggerPresent');
    if Assigned(Proc) then
      Result := Proc();
    FreeLibrary(FMODULE);
  end;
end;

if IsDebuggerPresent() then
begin
//Exit
ExitProcess(0);
//Halt(0);
end;

Puedo leer todo con ollydbg sin ningun problema intente usando halt o exit normal pero aun asi todo sigue igual , ¿ alguien sabe cual es el problema ?

Lepuke,

:rolleyes:

Espero sea útil :)

Nelson.