Discussion :

[devoluti0n]

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!

[devoluti0n]

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

[tourlourou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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);

[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.

[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

[devoluti0n]

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

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[devoluti0n]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jipété]

Yep !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

me retourne

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

[Jipété]

Bon,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jipété]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[devoluti0n]

Merci, on approche du but!
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 !

[devoluti0n]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?