Prinzipfrage Lizensierungs-Mechanismus

[steffen_d]

Hallo K-H,

Zitat von p80286:

Hallo Steffen,

hast Du Brechis Beitrag übersehen?

Zitat:

Code:

function IsDebuggerPresent: boolean; stdcall; 
asm 
  MOV     EAX, DWORD PTR FS:[$30]    
  TEST    EAX, EAX 
  JS      @@W9X 
@@WNT: 
  MOV     EAX, FS:[$18] 
  MOV     EAX, [EAX+$30] 
  MOVZX   EAX, [EAX+2] 
  RET 
@@W9X: 
  MOV     EAX, [$BFFC9CE4] 
  MOV     ECX, [EAX] 
  CMP     DWORD PTR [ECX+$54], 1 
  SBB     EAX, EAX 
  INC     EAX 
  RET 
end;

Gruß
K-H

Nein, den hab ich nicht übersehen, allerdings ist das ja eine Funktion und wenn ich Michaels Beitrag richtig verstanden habe, dann kann man Funktionsaufrufe als Cracker gut identifizieren.
Deshalb wird ja im Beispiel weiter oben nur die Variable BeingDebugged gefüllt, um eben einen Funktionsaufruf zu umgehen.
Nur weiss ich leider nicht so richtig, wie ich den ASM umschreiben muss, dass im Win9x-Abschnitt eine Variable gefüllt wird.

Gruß
Steffen

[p80286]

Hallo Steffen,

dann oute ich mich mal als AssemblerIgnorant:

Delphi-Quellcode:

asm
    MOV     EAX, DWORD PTR FS:[$30]
    TEST    EAX, EAX
    JS      @@W9X
  @@WNT:
    MOV     EAX, FS:[$18]
    MOV     EAX, [EAX+$30]
    MOVZX   EAX, [EAX+2]
    mov [BeingDebugged], al
    JMP     @@ENDE
  @@W9X:
    MOV     EAX, [$BFFC9CE4]
    MOV     ECX, [EAX]
    CMP     DWORD PTR [ECX+$54], 1
    SBB     EAX, EAX
    INC     EAX
    mov [BeingDebugged], al
  @@ENDE:
  end;

Du mußt nur den ersten Assemblercode durch diesen ersetzen, sollte dann funktionieren.

Ich dachte der Funktionsaufruf würde sich auf IsDebuggerPresent beziehen.

Gruß
K-H

[steffen_d]

Hallo K-H,

DANKE, genau das hab ich gesucht.

Gruß
Steffen

[zero_x]

Hallo steffen_d,

hier findest du noch einige weitere Informationen über die Sicherheit: http://www.delphipraxis.net/internal...t.php?t=142445 .

zero_x