Utilisation de ReadProcessMemory

Version imprimable

15/09/2007, 15h51
devoluti0n

Utilisation de ReadProcessMemory

Bonjour !!
J'aurai besoin d'un coup de patte.
J'ai appris à modifier des valeurs contenues dans la mémoire en utilisant writeprocessmemory.

Je souhaiterai maintenant pouvoir lire une zone définie 'array of byte' afin de pouvoir éxécuter des actions conditionnelles tel que :

Si à l'adresse xxxxx, la valeur = xx xx xx xx xx alors ....

Donc en résumé, pouvoir récuperer la valeur à une adresse donnée.
Et surtout pouvoir par la suite stockée la valeur lue dans une variable.
Merci!
16/09/2007, 14h28
devoluti0n

Je ne suis peut être pas dans la bonne rubrique... en vue du peu de réponses.

Citation:

BOOL ReadProcessMemory(

HANDLE hProcess, // handle of the process whose memory is read
LPCVOID lpBaseAddress, // address to start reading
LPVOID lpBuffer, // address of buffer to place read data
DWORD nSize, // number of bytes to read
LPDWORD lpNumberOfBytesRead // address of number of bytes read
);

apparemment, ce que tu lis est copié dans un buffer dont tu fournis l'adresse, et on te renvoie la longueur effectivement lue

style (non vérifié...)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 var SizeToRead: Cardinal; BytesRead: PCardinal; Buf: PByteArray; begin GetMem(Buf, MaxSize); if ReadProcessMemory(Hndl, Addr, Buf, SizeToRead, BytesRead) then begin if BytesRead<SizeToRead then ShowMessage('il en manque !'); for i:=1 to BytesRead do ShowMessage('Octet '+IntToStr(i)+' = '+IntToStr(Buf^[i-1])); end; FreeMem(Buf);

17/09/2007, 22h04
devoluti0n

Je n'ai pas éssayé encore (manque de temps), mais d'aprés ce que tu me dit, je récupererai la longeur lue.

Mais imaginons que les adresses xxxx1 jusqu'a xxx20 contiennent une chaine de caracteres.

J'aurai aimé pouvoir récuperer les valeurs de chaque adresse afin de pouvoir par éxemple par la suite le convertir en texte et l'afficher dans un label.

Donc mon but est vraiment de pouvoir récuperer les valeurs afin de les traiter.

Merci encore.
18/09/2007, 09h14
tourlourou

je pense que récupérer les valeurs dans un tableau d'octets permet réellement de les traiter ensuite ! le traitement dépendant de ce qui est sensé s'y trouver : booléen, string, record...

pour un string, soit tu sais que de l'adresse x à x+n tu as une chaîne, qui se trouvera donc dans ton buffer : en tirer un string ou un pchar ne devrait pas être insurmontable, soit tu sais qu'une chaîne démarre en x, et là, il faut que tu lises par petits bouts, que tu cherches le #0 final etc

Bon je suis re de retour sur ce projet et donc j'aurai re besoin d'aide car je m'en sors pas. :D

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 var Form1: TForm1; Buf : Pointer; implementation {$R *.dfm} procedure ReadMem(Address: pointer; SizeToRead: cardinal); var BytesRead : Cardinal; Handle : hWnd; begin Handle:= FindWindow(nil, 'Spider'); ReadProcessMemory(Handle, Address, Buf, SizeToRead, BytesRead); end; procedure TForm1.Button1Click(Sender: TObject); begin ReadMem(ptr($1012F60), 3); Memo1.text := string(buf); end;
Mais visiblement il ne récupere rien du tout car la mémo reste vide :S
Ou se trouve le probleme ?
Merci :yaisse2:

Edit: en rajoutant getmem j'obtien quelque chose mais pas du tout ce que je suis sencé recevoir xD

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure ReadMem(Address: pointer; BytesRead: cardinal); var hProc : THandle; hWin : hWnd; ProcId : Cardinal; begin hWin:= FindWindow(nil, 'Spider'); if hWin <> 0 then begin GetWindowThreadProcessId(hWin, @ProcId); hProc:= OpenProcess(Process_All_Access, False, ProcId); ReadProcessMemory(hproc, Address, Buf, Sizeof(buf), BytesRead); end else showmessage('Spider solitaire n''est pas lancé'); end; procedure TForm1.Button1Click(Sender: TObject); begin ReadMem(Ptr($1012F60), 1); Label1.caption := string(buf); end;
Je ne capte absolument rien :(.
En gros je voudrai que quand je clic sur mon bouton, mon label affiche la valeur récupérée, qui ici corréspond au score du spider solitaire :).
donc une valeur dont je n'ai qu'un byte à lire, et je ne comprends pas pourquoi ça ne lit rien. Je compte sur votre aide :)
Re merci d'avance

28/10/2007, 01h27
Jipété
Yep !
Code:

1 2 if not ReadProcessMemory(hproc, Address, Buf, Sizeof(buf), BytesRead) then ShowMessage(SysErrorMessage(GetLastError));
me retourne

Citation:

L'accès à cet emplacement de la mémoire n'est pas valide

quand je remplace simplement 'Spider' par 'Calculatrice'.

Si ça peut t'inspirer...
--
jp

Bon,

Honteuseument pompé chez Torry, je n'ai plus d'erreur comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  Buf: array[0..8] of Char;
 
function ReadMem(Address: pointer; BytesRead: cardinal): string;
var
  hProc       : THandle;
  hWin        : hWnd;
  ProcId      : Cardinal;
  ret: DWORD;
begin
  hWin:= FindWindow(nil, 'Calculatrice');
  if hWin <> 0 then
  begin
    ret := GetWindowThreadProcessId(hWin, @ProcId);
    if ret = 0 then ShowMessage(SysErrorMessage(GetLastError));
    hProc:= OpenProcess(Process_All_Access, False, ProcId);
    if hProc = 0 then ShowMessage(SysErrorMessage(GetLastError));
    if not ReadProcessMemory(hproc, Address, @Buf, 8, BytesRead)
      then ShowMessage(SysErrorMessage(GetLastError));
    Buf[8] := #0;
    CloseHandle(hProc);
    result := StrPas(Buf);
  end else
    showmessage('Spider solitaire n''est pas lancé');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.caption := ReadMem(Ptr($1012F60), 1);
end;

Mais ça n'affiche rien. Évidement, je n'ai pas la moindre idée d'à quoi correspond ce $1012F60 dans le contexte de la calculatrice.
--
jp

Et avec ça, de là, c'est tout bon (mais je ne sais pas ce que je lis, ;))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  WindowName  :  integer;
  ProcessId  :  integer;
  ThreadId  :  integer;
  buf2  :  PChar;
  HandleWindow  :  Integer;
  write  :  cardinal;
 
Const
  WindowTitle  =  'Calculatrice';
  Address  =  $100579C;
  PokeValue  =  $0;
  NumberOfBytes  =  1;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  WindowName  :=  FindWindow(nil, WindowTitle);
  If  WindowName  =  0  then
    MessageDlg('The  game  must  be  running  in  the  background.  Run  it  now,  and  then  try  again.',  mtwarning,[mbOK],0);
 
  ThreadId  :=  GetWindowThreadProcessId(WindowName, @ProcessId);
  HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
 
  GetMem(buf2, 1);
  buf2^  :=  Chr(PokeValue);
  readProcessMemory(HandleWindow, ptr(Address), buf2, NumberOfBytes, write);
  Label1.caption := IntToStr(ord(buf2^));
  FreeMem(buf2);
  closehandle(HandleWindow);
end;

HTH,
--
jp

28/10/2007, 12h07
devoluti0n

Merci, on approche du but! :D
Cepandant il y a quelque chose qui cloche, car il ne récupere qu'un byte, hors, j'aimerai pouvoir récuperer des valeurs d'une adresse a à une adresse b.

C'est là que j'ai vraiment du mal en fait :(

J'ai trouvé :), c'est parfais, merci les gars !

En fait non, c'est pas bon....

J'ai 2 erreurs qui m'epechent d'avancer.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
  Form1                             :  TForm1;
  WindowName,ProcessId,HandleWindow :  Integer;
  Buffer                            :  PChar;
  Write                             :  Cardinal;
 
implementation
 
{$R *.dfm}
 
 
procedure ReadMem(Address: pointer; SizeToRead: cardinal);
begin
  WindowName  :=  FindWindow(nil, 'monprog');
  GetWindowThreadProcessId(WindowName, @ProcessId);
  HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
  GetMem(Buffer, 4);
  ReadProcessMemory(HandleWindow, Address, Buffer, SizeToRead, Write);
  Unit1.Form1.Label1.caption := Buffer;
 
  FreeMem(Buffer);
  Closehandle(HandleWindow);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
readmem(ptr($9529D1), 50);
end;

Et j'ai plein de bug d'accés violation au niveau des pointers, etc...
pensez vous savoir pourquoi ?