Absturz bei Zugriff auf PByte

[Clemens L.]

Delphi-Quellcode:

  procedure _load_decrypt;
  var
    p: PByte;
    i: Integer;
    l: Integer;
    old: Cardinal;
  begin
    l := Integer(@_load_code_end) - Integer(@_load_code);
    p := @_load_code;

    VirtualProtect(p, l, PAGE_EXECUTE_READWRITE, old);

    for I := 0 to L - 1 do
    begin
      p^ := p^ xor $DF;
      inc(p);
    end;

    VirtualProtect(p, l, old, old); 
  end;

So hat es funktioniert, vielen Dank!

MfG,
Clemens