changer un octetRésolu

Question

Bonsoir a tous, alors je voudrais modifier un octet de l'executable,mais j'ai vue quelque source de delphicool sue se sujet mais sa n'a pas marcher car je pense que j'ai du m'y prend mal ? voila l'exemple donnais : procedure TForm1.Button1Click(Sender: TObject); begin

var FB : File Of Byte;

b : Byte;

begin

assignfile(FB , 'exe.exe'); //l'executable a patcher

Reset(FB);

b := $74; //ici son les bit a remplacer par l'original

D seek(FB,$12345); // ladresse a patcher

Write(FB,b); // et ici il ecrit puis

closefile(FB); //il ferme apres avoir fini

End;

merci a lui en tout cas alors si une personne saurais comment faire sa serais sympa!pour l'executer? merci a tous d'avance. bonne soiree.

japee · Accepted Answer

Salut,

Ne dis pas "ça ne marche pas", précise le problème du mieux possible :

- ça ne compile pas,
- je n'obtiens pas le résultat recherché,
- j'ai un message d'erreur ".........",
- ça plante à l'exécution à telle ligne,
etc... etc...

Le code ci-dessus fonctionne correctement si tu corriges la ligne 9 :

seek(FB,$12345); // <- y'avait un D en trop 

Bonne prog'

hackeur13 · Answer

Bonjour japee,

oui desoler,l'erreur que j'ai est des que je compile sa plante a la ligne 

Reset(FB);  

et des fois j'ai une erreur en disant que I/O error 32 

auriez vous une idees?

merci d'avance.

fbalien · Answer

Si çà plante sur le reset (fb)
c'est que soit :
- ton fichier et protegé ou pris par un autre process
- ton fichier n'existe pas /!\ il faut le chemin complet 'c:\exe.exe' et pas seulement 'exe.exe'

Cirec · Answer

Salut,

"et des fois j'ai une erreur en disant que I/O error 32 "
---------------------------
Error #32 ==
Le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus
---------------------------

Message obtenu avec :

ShowMessage(SysErrorMessage(GetLastError));

 
@+
Cirec

<hr siz="" />

hackeur13 · Answer

merci bien a vous, sa marche sans probleme!

bonne journee.

Changer un octet

5 réponses

Votre réponse

Discussions similaires