Securebit
سه شنبه 15 تیر 1389, 13:06 عصر
این کد را از روی فایل کامپایل شده نوشتم که قابل دور زدن توسط پلاگین Strong OD نیست!
function Anti_SOD:Boolean;
var
A: DWORD;
B: DWORD;
C: DWORD;
F: DWORD;
begin
C := 0;
asm
RDTSC
mov dword ptr [A],eax
end;
try
RaiseException(STATUS_INVALID_HANDLE, 0, 0, nil);
except
Inc(C);
end;
asm
RDTSC
mov dword ptr [B],eax
end;
if (C = 0) or not(B - A >= $1000) or (B - A > $25000) then
begin
ShowMessage('Debugger Detect');
end else
ShowMessage('Debugger Not Found');
end;
function Anti_SOD:Boolean;
var
A: DWORD;
B: DWORD;
C: DWORD;
F: DWORD;
begin
C := 0;
asm
RDTSC
mov dword ptr [A],eax
end;
try
RaiseException(STATUS_INVALID_HANDLE, 0, 0, nil);
except
Inc(C);
end;
asm
RDTSC
mov dword ptr [B],eax
end;
if (C = 0) or not(B - A >= $1000) or (B - A > $25000) then
begin
ShowMessage('Debugger Detect');
end else
ShowMessage('Debugger Not Found');
end;