Дезасмил IsDebuggerPresent:
mov eax,fs:[018h]
mov eax,[eax+30h]
movzx eax,byte ptr [eax+02]

Как мне можно такую же сделать на Delphi?

| Сообщение посчитали полезным:

какую такую же? непонятно чего ты хочешь...

| Сообщение посчитали полезным:

asm
....
Ассемблерный код
....
end;

-----
StarForce и Themida ацтой!

| Сообщение посчитали полезным:

Жжошь. Этож API, нафига ее делать, юзай и всё.

| Сообщение посчитали полезным:

The IsDebuggerPresent function indicates whether the calling process is running under the context of a debugger.
This function is exported from KERNEL32.DLL.

BOOL IsDebuggerPresent(VOID)

Parameters

This function has no parameters.

Return Value

If the current process is running in the context of a debugger, the return value is nonzero.
If the current process is not running in the context of a debugger, the return value is zero.

| Сообщение посчитали полезным:

Ха, мужики, вы не поняли, что он хочет -- если посмотреть на энту АПИ внимательно, то видно что можно не использовать ее, а просто проверять флажек вручную, используя ассемблерную вставку... Это (теоретически) должно усложнить взлом (типа не видно как палится дебагер, так как вызова АПИ нет), хотя это все не спасет, если флажек правится каким-нибудь плагином к ольке...

-----
Research is my purpose

| Сообщение посчитали полезным:

sniperZ может я и недопонял, что тебе надо, но на всякий случай:

function DebuggerPresent: boolean;
type
TDebugProc = function: boolean; stdcall;
var
Kernel32: HMODULE;
DebugProc: TDebugProc;
begin
Result := False;
Kernel32 := GetModuleHandle('kernel32.dll');
if Kernel32 <> 0 then
begin
@DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent');
if Assigned(DebugProc) then
Result := DebugProc;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if DebuggerPresent then
ShowMessage('debugging')
else
ShowMessage('NOT debugging');
end;

| Сообщение посчитали полезным:

Error_Log! Ты правильно меня понял.

Напишите кто нить эту функцию.

| Сообщение посчитали полезным:

Это на Си

int Dbr; // var integer : Dbr;
_asm //asm
{ //begin
push eax;
mov eax,fs:[018h]
mov eax,[eax+30h]
movzx eax,byte ptr [eax+02]
mov Dbr,eax
pop eax;
} // end
if (Dbr) // он и в африке if
{
printf("debugging");
}

| Сообщение посчитали полезным:

Пасиба,Faza.

| Сообщение посчитали полезным: