Parsi Coders

نسخه‌ی کامل: Delphi Detected OllyDbg
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
کد:
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;