try ... except

[Luckie]

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.