Discussion :

[[ZiP]]

Bonjour,

Savez-vous comment faire pour chercher une signature dans un fichier de type exécutable ?

Elle pourrait être de la forme 01 EF 03 AB 05 ou 01 EF ?? AB 05.

Quelle méthode utiliseriez-vous ?

Utiliseriez vous les expressions régulières dans ce cas ou celles-ci non sont pas adaptées à ce genre d'utilisation ?

Merci,
ZiP

[Paul TOTH]

bonjour,

il y a une solution fort simple à adapter en fonction de la taille de l'exe et des besoins

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
 
var
  f: file;
  size : Integer;
  data: string; // RawByteString si Delphi >= 2009
  i : Integer;
begin
  AssignFile(f, 'fichier.exe');
  Reset(f);
  size := FileSize(f);
  SetLength(data, size);
  BlockRead(data[1], size);
  CloseFile(f);
 
  i := Pos(#$01#$EF, data);
  while i > 0 do 
  begin
    if Copy(Data, i + 3, 2) = #$AB#$05 then
     // trouvé !
      Break;
    else
    begin
      data[i] := 'Z'; // ou utiliser PosEx() si disponible
      i := Pos(#$01#$EF, data);
    end;
  end;
end;

[[ZiP]]

Je vais essayer votre proposition de code.

Merci,
ZiP

[samytto]

slt ;

[zip] peut tu me dire comment ta construit ton executable a partir de l'application Delphi ?

[[ZiP]]

Bonjour samytto,

Je n'ai pas encore eu le temps de travailler sur ce point mais je peux te donner la démarche que je vais effectuer :
1. chargement du fichier dans un buffer en mémoire
2. analyse du fichier à la recherche des signatures (je vais tester le code proposé ainsi que l'utilisation des expressions régulières et utiliser le code qui est le plus rapide).

Si quelqu'un a une méthode plus efficace, elle est la bienvenue !

Cordialement,
ZiP

[samytto]

ya pas une option qui permet d'extraire un fichier qui m permettra d'utiliser l'application sur n'importe qu'elle machine independement de Delphi;

comme les fichiers .jar pour JAVA par exemple

merci

[[ZiP]]

samytto pour du multi-système, renseigne toi plutôt dans le forum Java.

Cordialement,
ZiP