Thema: Delphi try ... except

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#15

Re: try ... except

  Alt 14. Feb 2006, 23:26
Lies dir das mal durch: http://www.michael-puff.de/Developer...acking_1.shtml

Und guck dir mal diesen Code an:
Delphi-Quellcode:
  asm
    pushad
    call @SetupSEHAndRaiseException
    mov ecx, dword ptr [esp+12]
    mov eax, fs:[$30]
    movzx eax, byte ptr [eax+$2]
    and eax, eax
    jnz @NoAddOpCodeSize
    mov dword ptr [ecx+$B8], offset @AfterExceptionCause
    @NoAddOpCodeSize:
    mov dword ptr [ecx+$04], eax
    mov dword ptr [ecx+$08], eax
    mov dword ptr [ecx+$0C], eax
    mov dword ptr [ecx+$10], eax
    mov dword ptr [ecx+$14], eax
    and dword ptr [ecx+$18], $155
    and dword ptr [ecx+$C0], $FFFFFEFF
    xor eax, eax
    ret
    @SetupSEHAndRaiseException:
    xor eax, eax
    push dword ptr fs:[eax]
    mov fs:[eax], esp
    @KillCode:
    and dword ptr [eax+$18], $155
    @AfterExceptionCause:
    pop dword ptr fs:[$0]
    add esp, $4
    popad
  end;
Wior der Code ausgeführt, crasht der Debugger. Läßt sich aber auch umgehen, wenn man weiß, wie. Lass dir gesagt sein, dass es keinen hundertprozentigen Crack-Schutz gibt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat