Discussion :

[salim_75]

Salut , est ce qu'il ya une possibilté de chercher une valeur Hexa dans un fichier ( Sans conversion des valeurs )

par exemple :

j'ai le fichier : monfichier.exe
je veux chercher la valeur hexa ( 546869732070726F6772616D ) dans ce fichier ( monfichier.exe ), sans conversion ( Hex to str ou autre .... ) .



Merçi

[Paul TOTH]

je ne comprend pas bien la question...mais je vais répondre NON

[droggo]

Gio,

Il suffit d'ouvrir le fichier en binaire, en le considérant comme un fichier de byte, et l'éplucher pour voir si la suite désirée est là.

Je ne vois pas de difficulté là-dedans.

[Paul TOTH]

Tient, finalement j'ai peut-être compris la question

il y a bien conversion d'un Hexa en Str mais c'est la chaine '546869732070726F6772616D' qu'il faut convertir en son équivalent binaire
#$54#$68#$69#$73#$20#$70#$72#$6F#$67#$72#$61#$6D

on plus simplement 'This program'

ensuite c'est juste une recherche de chaine dans un fichier ... non finalement je comprend pas la question

[user 56gt8]

C'est possible à partir d'un filestream , par exemple ce simple code marche très bien pour chercher des FF dans un fichier :

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
buff :byte ;
begin
open1.Execute(self.Handle) ;
if open1.FileName = '' then Exit ;
Myfile := TFileStream.Create(open1.FileName,fmopenread);
for i := 0 to Myfile.Size do
  begin
    Myfile.Seek(i,sofromcurrent);
    Myfile.Read(buff,1);
    if buff = $FF then ShowMessage('FF found at '+inttostr(i));
  end;
Myfile.Free;
end;

en fait 'est exactement ce que disais droggo

[user 56gt8]

Myfile.Seek(i,sofromcurrent);

en fait c'est plutot Myfile.Seek(i,sofrombegining) ;



sinon ca risque de manquer des trucs.

[salim_75]

C'est possible à partir d'un filestream , par exemple ce simple code marche très bien pour chercher des FF dans un fichier :

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
buff :byte ;
begin
open1.Execute(self.Handle) ;
if open1.FileName = '' then Exit ;
Myfile := TFileStream.Create(open1.FileName,fmopenread);
for i := 0 to Myfile.Size do
  begin
    Myfile.Seek(i,sofromcurrent);
    Myfile.Read(buff,1);
    if buff = $FF then ShowMessage('FF found at '+inttostr(i));
  end;
Myfile.Free;
end;

en fait 'est exactement ce que disais droggo

Merçi 56gt8 et si c'est pour plus d'un Byte .

[edam]

un petit recherche vous donne ce lien