Считать память программы

[STest]

Привет.
Хочу написать программу для чтения данных с определенной программы (что то типа ArtMoney). Суть такова: программа запускается и считывает всю память что занимает программа и по определенным адресам вытягивает информацию в мемо. Подскажите как лучше это сделать?

[digitalis]

Хорошая хакерская задача. Я сам когда-то мечтал о такой - прикуп в Marriage подсматривать Только ОС, видимо, не позволит ковыряться в "чужой" памяти. Задача для крутых профи - как-то обойти это.

[Pavia]

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

Только ОС, видимо, не позволит ковыряться в "чужой" памяти.

Позволяет.
ReadProcessMemory(hProcess, pProcBasicInfo.PebBaseAddress, @pPeb, SizeOf(PEB), ReturnLength)
Только надо знать из какого блока читать можно, а из какого нельзя. А для этого разобрать весь процесс по байтам: Как здесь:
http://rouse.drkb.ru/winapi.php#pmm

[STest]

Да вы правы. Нашел код который может сделать все что нужно. Только вот действительно нужно знать что и откуда считывать. Пробовал разобраться используя ArtMoney но не помогло (или плохо разобрался)

procedure TForm1.Button1Click(Sender: TObject);
var
  pe:TProcessEntry32;
  hProc, PID, numberRead : DWORD;
  hWnd  : THandle; // Хэндл окна чата
  IpBuf : Real; // буфер куда поместиться наше значение 
  ipBase: ^dword; // точка входа в памяти
begin
 
 pe.dwSize:=SizeOf(pe);
 hWnd:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  If Process32First(hWnd,pe) then
    While Process32Next(hWnd,pe) do
      if ExtractFileName(pe.szExeFile)='ABC.exe' then
        PID:=(pe.th32ProcessID);
        Edit2.Text:=inttostr(PID);
  hProc:=OpenProcess(PROCESS_VM_READ, False, PID); // подключаемся к процессу зная его ID
  if hProc <> 0 then // условие проверки подключения к процессу
  try
    Edit3.Text:=inttostr(hProc); // заносим в edit Process
    ipBase:=ptr($005C2582); // RVA слова в памяти
    ReadProcessMemory(hProc, ipBase, Addr(ipbuf), sizeof(IpBuf), numberRead); // чтение из памяти строки
    Edit4.Text:=FloatToStr(ipbuf); // заносим в edit Buffer
  finally
    CloseHandle(hProc); // отсоединяемся от процесса
  end;
end;

[Alex11223]

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

ArtMoney

CheatEngine лучше.

[STest]

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

Позволяет.
ReadProcessMemory(hProcess, pProcBasicInfo.PebBaseAddress, @pPeb, SizeOf(PEB), ReturnLength)
Только надо знать из какого блока читать можно, а из какого нельзя. А для этого разобрать весь процесс по байтам: Как здесь:
http://rouse.drkb.ru/winapi.php#pmm

не могу скомпилировать ваш пример

[northener]

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

не могу скомпилировать ваш пример

Версии Дельфи не совместимы.

[STest]

В принципе если покопаться в коде программы и узнать нужные смещения можно получить нужную информацию
Затрону тогда немножко другой вопрос: можно ли получить информацию о процессе другого ПК (по сети)?

[Heneken87]

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

В принципе если покопаться в коде программы и узнать нужные смещения можно получить нужную информацию
Затрону тогда немножко другой вопрос: можно ли получить информацию о процессе другого ПК (по сети)?

Инфу можно получить хоть откуда, важным критерием останется доступ к объекту. В случае с локальным ПК, доступ у Вас есть, поскольку утилиту вы запускаете из прав администратора. Что касается удаленного ПК, то прямого доступа к его памяти и к его процессам у Вас нет. Для этого и делают трояны, которые запускаются на чужом ПК и передают всю необходимую информацию.

P:S https://habr.com/ru/sandbox/40688/
Это все в ознакомительных целях.

[STest]

Спасибо за ответ. буду изувать