Пропатчить процесс

Delphi , Программа и Интерфейс , Процессы и Сервисы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{....}

 var
   WindowName: Integer;
   ProcessId: Integer;
   ThreadId: Integer;
   buf: PChar;
   HandleWindow: Integer;
   Write: Cardinal;

    {....}

 const
   WindowTitle = 'a program name';
   Address = $A662D6;
   PokeValue = $4A;
   NumberOfBytes = 2;

    {....}


 procedure TForm1.Button1Click(Sender: TObject);
 begin
   WindowName := FindWindow(nil, WindowTitle);

   if WindowName = 0 then
   begin
     MessageDlg('Program not running.', mtWarning, [mbOK], 0);
   end;

   ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
   HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

   GetMem(buf, 1);
   buf^ := Chr(PokeValue);
   WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
   FreeMem(buf);
   CloseHandle(HandleWindow);
 end;

Перевод контента на русский язык:

Это фрагмент кода на языке Pascal, который appears to be designed для взаимодействия с другим процессом. Цель кода seems to be найти конкретное окно с заголовком "a program name" и если найдено, то вставить значение в память целевого процесса.

Вот подробный анализ того, что код делает:

1. Он определяет несколько переменных:
   • WindowName: целочисленная переменная, которая будет хранить.handle целевого окна.
   • ProcessId: целочисленная переменная, которая будет хранить ID процесса, владеющего целевым окном.
   • ThreadId: целочисленная переменная, которая будет хранить ID потока, связанного с целевым окном.
   • buf: указатель на буфер символов, который будет использоваться для хранения одиночной байтовой значения.
   • HandleWindow: целочисленная переменная, которая будет хранить.handle к целевому процессу.
   • Write: кардинальная (целочисленная) переменная, которая будет хранить количество байт, написанных в память целевого процесса.
2. Он определяет несколько констант:
   • WindowTitle: строковая константа с заголовком "a program name".
   • Address: адресная константа, установленная на $A662D6.
   • PokeValue: байтовое значение константы, установленной на $4A.
   • NumberOfBytes: целочисленная константа, установленная на 2.
3. Процедура Button1Click вызывается при клике кнопки с надписью "Button1".

Внутри этой процедуры код делает следующее:

1. Он находит handle окна, соответствующего заголовку "a program name", используя функцию FindWindow.
2. Если не найдено окно, он отображает диалоговое окно сообщения с текстом "Program not running.".
3. Он получает ID процесса, связанного с целевым окном, используя функцию GetWindowThreadProcessId.
4. Он открывает целевой процесс, используя функцию OpenProcess, и присваивает полученный handle переменной HandleWindow.
5. Он выделяет память для буфера одиночной байтовой значения, используя функцию GetMem, устанавливает значение этого байта в PokeValue (которое равно $4A) с помощью функции Chr и хранит его в буфере.
6. Он использует функцию WriteProcessMemory для записи содержимого буфера в память целевого процесса на адрес, указанный константой Address.
7. Он освобождает выделившуюся память, используя функцию FreeMem.
8. Наконец, он закрывает handle к целевому процессу, используя функцию CloseHandle.

В целом, этот код предназначен для взаимодействия с другим процессом и вставки конкретного значения в его память. Однако без дополнительной информации о том, что окно "a program name" используется для, трудно определить, является ли это код легитимным или зловредным.

В качестве альтернативы может быть полезно рассмотреть другие методы взаимодействия с процессами или окнами, такие как использование API, специально предназначенных для этого (например, SetForegroundWindow или SendMessage). Эти подходы могут обеспечить более контролируемое и гибкое взаимодействие, минимальизируя риск неожиданных последствий.

Программа на языке Delphi выполняет патчинг процесса Windows, модифицируя его память с помощью функций WriteProcessMemory и OpenProcess.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессы и Сервисы ::