LECTURE DE LA MEMOIRE D'UN AUTRE PROCESSUS
fredelem
Messages postés
136
Date d'inscription
dimanche 29 octobre 2006
Statut
Membre
Dernière intervention
1 décembre 2022
-
5 juil. 2011 à 13:50
cs_Jean_Jean Messages postés 615 Date d'inscription dimanche 13 août 2006 Statut Membre Dernière intervention 13 décembre 2018 - 5 juil. 2012 à 14:40
cs_Jean_Jean Messages postés 615 Date d'inscription dimanche 13 août 2006 Statut Membre Dernière intervention 13 décembre 2018 - 5 juil. 2012 à 14:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53350-lecture-de-la-memoire-d-un-autre-processus
https://codes-sources.commentcamarche.net/source/53350-lecture-de-la-memoire-d-un-autre-processus
5 juil. 2012 à 14:40
J'ai été intéressé par ton code que j'ai inclu dans un projet test sous XE2.
Mais le compilateur me génère 29 erreurs du genre:
E2033 : les types des parametres VAR originaux et formels doivent être identiques.
Lorsque je regarde les fonctions en question, par exemple :
function TProcessDataModifier.ReadBytes(size:integer):TByteDynArray;
var readed :cardinal;
begin
setlength(result,size);
ReadProcessMemory(FAccessHandle,pointer(FAdresse),@result[0],size,readed);
inc(FAdresse,size);
end;
le compilateur s'arrête sur la 2ème ligne: ReadProcessMemory(...) que je n'ai pas modifié!
Je fais appel à la fonction dans la fiche principale:
procedure TForm1.FormActivate(Sender: TObject);
begin
// test1.exe qui est un code de D7
ProcessReader := TProcessDataModifier.Create('test1',0);
// Lire une chaîne de 256 octets
With ProcessDataModifier DO
Begin
Showmessage(ReadString(256)); //nombre d'octet à lire
End;
end;
Que se passe-t-il?
26 juil. 2011 à 09:12
if (not ReadProcessMemory (FAccessHandle, pointer (FAdresse), @result[1], size, readed)) then
result:=('Impossible de lire les données')
Else
begin (* reprise du programme original *)
ReadProcessMemory (FAccessHandle, Pointer (FAdresse) , @result[1] , Size,Readed);
setlength(str,readed);
result := String(str);
end;
Effectivement, au lieu d'obtenir "Lire_mem.exe", j'obtiens maintenant "Impossible de lire les données".
J'ai essayé de changer l'adresse de lecture. Après l'exemple que tu donnes (ProcessReader.Adresse := $047Fc87), j'ai essayé d'autres adresses.
Si je passe au dessous de 0460000, j'obtiens "Impossible de lire les données". Si je prends une valeur supérieure, j'obtiens un Showmessage vide. Je suppose que ça représente une longue suite de Chr(0) avec aucun autre caractère. C'est quand même un peu surprenant.
J'avoue que je ne sais pas grand-chose sur la gestion de la mémoire. Est-ce que tu vois une adresse où je pourrais lire quelque chose d'intéressant ?
25 juil. 2011 à 22:53
if(not ReadProcessMemory(FAccessHandle,pointer(FAdresse),@result[1],size,readed))
then raise Exception.Create('Impossible de lire les données');
22 juil. 2011 à 18:23
begin
// Faire de la calculatrice le processus étudié
ProcessReader := TProcessDataModifier.Create('Calc',0);
Mais j'ai essayé de modifier un peu ce Readstring(256). A la place, j'ai mis ReadString(500) et cette fois j'obtiens "Lire_mem.exe", le nom sous lequel j'ai sauvegardé ton programme. Bizarre, ça ne peut pas être contenu dans la mémoire de la calculatrice.
L'argument qui suit Readstring représente-t-il un nombre maximum d'octets à lire ou une adresse de départ ?
8 juil. 2011 à 12:19
6 juil. 2011 à 13:12
WITH ProcessDataModifier DO
j'aurais dÙ écrire:
WITH ProcessReader DO
et supprimer ce FAdresse:=10000
car FAdresse est une variable de type "private".
Après correction, ça marche et le Showmessage me dit :
[System Process]
Eh bien bravo mais j'aimerais bien comprendre à quoi correspond ce que j'ai lu.
6 juil. 2011 à 11:52
????
ça doit planter nécessairement sur une de ces lignes :
ProcessReader := TProcessDataModifier.Create('Calc',0);
With ProcessDataModifier DO
Begin
FAdresse:=10000:
---
End;
end;
6 juil. 2011 à 10:56
Dans mon Unit 1, je crée la procédure FormActivate suivante:
procedure TForm1.FormActivate(Sender: TObject);
begin
// Faire de la calculatrice le processus étudié
ProcessReader := TProcessDataModifier.Create('Calc',0);
// Lire une chaîne de 256 octets à l'adresse 10000
With ProcessDataModifier DO
Begin
FAdresse:=10000:
Showmessage(ReadString(256));
End;
end;
Je lance la calculatrice puis je lance mon application mais je n'obtiens rien, même pas le showmessage! Je demande encore un peu d'aide.
(J'ai vu sur Intenet que CheatEngine, c'est une application et non pas comme je le pensais un mot de Delphi. Moi qui aime bien Démineur, je vais m'intéresser à ce CheatEngine mais pour l'instant, je cherche plutôt à progresser dans l'utilisation de ton logiciel).
6 juil. 2011 à 01:10
si tu as D7 ou +
tu remplaces ContainsText par AnsiContainsText et ça devrait fonctionner
5 juil. 2011 à 20:32
5 juil. 2011 à 18:17
Je voudrais bien utiliser CheatEngine mais Delphi7 ne connaît pas ce mot-là non plus.
5 juil. 2011 à 16:48
5 juil. 2011 à 13:50
A la compilation, j'ai eu deux problèmes: le type RawByteString n'est pas défini et la fonction ContainsText non plus. Il faudrait que tu corriges ces deux oublis.