+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Cracking / Anti Crack (http://parsicoders.com/forumdisplay.php?fid=75)
+--- انجمن: Anti Debug (http://parsicoders.com/forumdisplay.php?fid=76)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=81)
+---- موضوع: Delphi Detected OllyDbg (/showthread.php?tid=833)
Delphi Detected OllyDbg - Amin_Mansouri - 08-31-2011
کد:
var
ollyTitle:string = 'Olly Status';
ollyNotPresent :string = 'No Olly';
ollyPresent:string = 'Olly Detected';
begin
asm
@@detectolly:
xor eax,eax
cmp esi, 0FFFFFFFFh
jnz @@ollyNotPresent
jmp @@ollyPresent
@@ollyNotPresent:
xor eax,eax
push MB_OK
push OllyTitle
push OllyNotPresent
push 0
call MessageBoxA
push eax
call ExitProcess
@@ollyPresent:
xor eax,eax
push MB_OK
push ollyTitle
push OllyPresent
push 0
call MessageBoxA
push eax
call ExitProcess
end;