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
ExitProcess(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 ?