Шифрование кода программы

[Kolik317]

Так я же говорю, что в конечном экзешнике я метку удалю вручную, и буду пользоваться для расшифровки pointer'om, а метка мне нужна в начале только чтобы опередилить этот pointer, что шифровать от сих до сих. Ток сейчас у меня чего-то и с метками не выходит, или я где-то что-то с pointer'ами недогоняю.
Еще проблема я не знаю, как определить адреса шифрования от куда до куда, без меток. Можно по процедурам до и после, но в статье из первого поста написано что оно не работает.

В общем я сейчас пробовал с метками, и ничего не вышло. Шифровал пока что как в той статье тупо через xor $25

procedure StartPointProc;
begin
 asm
  DB 000h, 034h, 0F4h, 02Ah, 000h, 03Dh, 0FFh, 0CAh
 end;
  exit;
 StartPointProc;
 EndPointProc;

end;

procedure ProtectedProc;
begin
 ShowMessage('Trial period has expired');
end;

procedure EndPointProc;
begin
 asm
  DB 001h, 035h, 0F5h, 02Bh, 001h, 03Eh, 000h, 0CBh
 end;
  exit;
 StartPointProc;
 EndPointProc;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 ptrAddr: Pointer; {Адрес процедуры CheckTrial}
 dwOldProtect: DWORD;
begin
 ptrAddr := pointer(451216);
 VirtualProtect(pointer(451216), 4096, PAGE_READWRITE, @dwOldProtect);
 while ptrAddr <> pointer(451307) do
 begin
  Byte(ptrAddr^) := Byte(ptrAddr^) xor $25;
  inc(Integer(ptrAddr));
 end;
protectedproc();
 exit;
 StartPointProc;
 EndPointProc;
end;

А вот шифрованный HEX, прикреплен)

Кстати я не понял, как сделать PE??)) В 16тиричном коде нету P . Сори за нубасерство))

В ошибке говорит Access violation 0046ef25. Write of adress 006e290(=451216, начало шифрованного кода).

[Kolik317]

ДАДАДАДА я это сделал хоть как-то, вчера перед сном осенило что я настолько чайник, что сразу не допер, что в памяти адреса другие будут, щас сделал с динамическим поиском метки, всё работает. Только наверно что-то лишнее дешифрую, когда второй раз жму на кнопку Enternal Exception выдает.

Думаю, что если делать без меток, и в Поинтеры процедуры расшифровки писать что-то типа Pointer(Integer(@self) + Х), предварительно Х посчитав через хекс редактор и калькулятор)