Чтение памяти процесса

[Maincore]

Вообщем можно ли реализовать следующее?
Нужно найти следующий текст в памяти чужого процесса "DataX DataY"
так вот текст DataX мне известен, а DataY нет и его мне нужно узнать.
если сделать так найти адрес с текстом DataX и прочитать рядом стоящие адреса? Я получу ли текст DataY?

Пример текста: 'Получено 48 байт'

[p51x]

Я получу ли текст DataY?

Может да, а может и нет...

'Получено 48 байт'

Скорее всего в памяти лежит заготовка для "принтфа" - 'Получено %d байт', а счетчик подставляется. Ну может и слово байт тоже быть параметром.

[Maincore]

Скорее всего в памяти лежит заготовка для "принтфа" - 'Получено %d байт', а счетчик подставляется. Ну может и слово байт тоже быть параметром.

То есть в данном случаем

48

будет находиться совсем в другом адресе?


-------------------------------------------------------------------------------

var
  Form1: TForm1;
  hProc, PID, numberRead : DWORD;
  hWnd : THandle;
  IpBuf : string; 
  ipBase: ^dword;


procedure TForm1.Button1Click(Sender: TObject);
begin
hWnd:=findwindow('#32770','Programm');
GetWindowThreadProcessId(hWnd, @PID); 
hProc:=OpenProcess(PROCESS_VM_READ, False, PID);
ipBase:=ptr($7FFDF22C); 
ReadProcessMemory(hProc, ipBase, Addr(ipbuf), 100, numberRead); 

ShowMessage (Pansichar(ipbuf));

end;

ShowMessage (Pansichar(ipbuf));

Почему вылетает ошибка
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0040404B in module 'Project1.exe'. Read of address 043E041B'. Process stopped. Use Step or Run to continue.


А если убрать ShowMessage то ошибка не вылетает.

[p51x]

будет находиться совсем в другом адресе?

А может и в регистре.

IpBuf : string;

Вы уверены, что стринг просто набор байтов? Вы уверены, что он не юникодовский?

РидПроцесс успешно завершился? Прав хватило? Читали ли вы из 32битного 64битны? ...

[Maincore]

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

А может и в регистре.

IpBuf : string;

Вы уверены, что стринг просто набор байтов? Вы уверены, что он не юникодовский?

РидПроцесс успешно завершился? Прав хватило? Читали ли вы из 32битного 64битны? ...

Собственно нужно нужно прочитать адрес в котором содержатся текст Unicode. Какой тиg буфера нужно использовать?

[Человек_Борща]

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

То есть в данном случаем будет находиться совсем в другом адресе?


-------------------------------------------------------------------------------

var
  Form1: TForm1;
  hProc, PID, numberRead : DWORD;
  hWnd : THandle;
  IpBuf : string; 
  ipBase: ^dword;


procedure TForm1.Button1Click(Sender: TObject);
begin
hWnd:=findwindow('#32770','Programm');
GetWindowThreadProcessId(hWnd, @PID); 
hProc:=OpenProcess(PROCESS_VM_READ, False, PID);
ipBase:=ptr($7FFDF22C); 
ReadProcessMemory(hProc, ipBase, Addr(ipbuf), 100, numberRead); 

ShowMessage (Pansichar(ipbuf));

end;

Почему вылетает ошибка
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0040404B in module 'Project1.exe'. Read of address 043E041B'. Process stopped. Use Step or Run to continue.


А если убрать ShowMessage то ошибка не вылетает.

1. ReadProcessMemory возвращает BOOL, проверяйте, читает ли вообще что-то.
2. Если читает, то под область чтения нужно выделить память.

[Maincore]

Сообщение от Человек_Борща

1. ReadProcessMemory возвращает BOOL, проверяйте, читает ли вообще что-то.

Да да возвращает true;

2. Если читает, то под область чтения нужно выделить память.

GetMem?

А вообще какой алгоритм поиск текста в памяти процесса?
1)получить пид процесса (GetWindowThreadProcessId)
2)открыть процесс (OpenProcess)
а дальше что? ReadProcessMemory?

[p51x]

Для начала неплохо бы получить нужные права и разрешения...

[Человек_Борща]

Ну вот близкая по духу тема уже обсуждалась, вкратце "сброс памяти процесса в файл". Сообщение с решением(44-е сообщение), дальше только срачь.

Открыть процесс пробежаться по страницам памяти и найти все строки...
Как же хранятся строки в памяти, эмм ну в блоге GUnSmooker'а много написано и на эту тему. Затем в резултате найти или руками или регулярным ыражением, сабж.

[Maincore]

Человек_Борща, функция что надо только вот не могу записать данные в MapFile.

делаю так:

if ReadProcessMemory(hProcess, MBI.BaseAddress, Buff, MBI.RegionSize, RecivedBytes) then
              begin
              StrCopy(form1.MapFilePointer,Pansichar(Buff));
              end

не подскажете?