Динамическое шифрование памяти

[-Jack-]

Всем привет. Достаточно давно натыкался в инете на реализацию динамического шифрования памяти, но сейчас никак не могу найти ...

Смысл метода заключался в том, что в исходнике устанавливаются 2 метки ( начальная и конечная ).

И в любое время можно было ка зашифровать память между этими метками, что приводило к тому, что код между этими метками становился не рабочим.

Так и наоборот - расшифровать, что приводило программу к нормальному ( рабочему ) состоянию.

[Stilet]

И в чем проблема? Криптор хочешь сделать?

[-Jack-]

Проблема в том, что не помню, каким образом выставляются метки и осуществляется их поиск в памяти ...

[Stilet]

А просто адреса хранить в списке не катит? Зачем метить память?

[-Jack-]

Хотелось бы этот метод освоить )))

[ДралсяСошибками]

Если не ошибаюсь, то вроде Багель где-то писал о проверке целостности определённых кусков памяти по меткам и что ему давали файл и он там его ковырял и там чёт один кусок зависел от другого и были там готы и сатанисты и росла там свекла и что-то ещё и в итоге, он всех победил)))

[-Jack-]

		int metka1;
		//
		//здесь то, что хотим упрятать
		//
		int metka2;
		...
		crypt(&metka1, &metka2);

procedure crypt(point: Pointer; point2:Pointer);
var
  dwOldProtect: DWORD;
  pointx: Pointer;
begin
  VirtualProtect(point, 2048, PAGE_READWRITE, @dwOldProtect);
  pointx:= point;
  while pointx<> point2 do
  begin
    Byte(pointx^) := Byte(pointx) xor $23;
    inc(Integer(pointx));
  end;
end;

И в итоге получаю ошибку

access violation at 0x6a6b6869: read of address 0x6a6b6869

... Что то где то накасячилось )))

[f.hump]

жестоко.

Byte(pointx^) := Byte(pointx) xor $23;

^ должен быть и справа?

а зачем нужен pointx?

[Krasiosoft]

Сообщение от -Jack-

Что то где то накасячилось )))

procedure crypt(from_addr: PByte; to_addr:PByte);
var
  dwOldProtect: DWORD;
begin

  VirtualProtect(from_addr, 2048, PAGE_EXECUTE_READWRITE, @dwOldProtect);

  while from_addr <> to_addr do
  begin
    from_addr^:=from_addr^ xor $23;
    inc(from_addr);
  end;

end;

Так не проще будет?

[-Jack-]

Сообщение от f.hump

жестоко.

Byte(pointx^) := Byte(pointx) xor $23;

^ должен быть и справа?

Явных изменений это не принесло, так же ошибка

Сообщение от Krasiosoft

procedure crypt(from_addr: PByte; to_addr:PByte);
var
  dwOldProtect: DWORD;
begin

  VirtualProtect(from_addr, 2048, PAGE_EXECUTE_READWRITE, @dwOldProtect);

  while from_addr <> to_addr do
  begin
    from_addr^:=from_addr^ xor $23;
    inc(from_addr);
  end;

end;

Так не проще будет?

crypt(System::PByte(va), System::PByte(vap));

При попытке вызвать процедуру, получаю уже другую ошибку

First chance exception at $7582C42D. Exception class EAccessViolation with message 'Access Violation'.

Ошибка выбивается на этой строке

    from_addr^:=from_addr^ xor $23;