Discussion :

[Fab4v]

Bonjour à tous !

J'aimerai savoir si il est possible de connâitre le hash md5 de son éxecutable et l'afficher dans un edit ou un label dans l'application. Voici la méthode pour un fichier exterieur avec le composant de DCPcrypt :

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
procedure TForm1.Button1Click(Sender: TObject);
  var
    Hash: TDCP_md5;
    Digest: array[0..19] of byte;  
    Source: TFileStream;
    i: integer;
    s: string;
  begin
    Source:= nil;
    try
      Source:= TFileStream.Create(Edit1.Text,fmOpenRead);  
    except
      MessageDlg('Unable to open file',mtError,[mbOK],0);
    end;
    if Source <> nil then
    begin
      Hash:= TDCP_md5.Create(Self);         
      Hash.Init;                                   
      Hash.UpdateStream(Source,Source.Size);     
      Hash.Final(Digest);                          
      Source.Free;
      s:= '';
      for i:= 0 to 19 do
        s:= s + IntToHex(Digest[i],2);
      Edit2.Text:= s;                              
    end;
  end;

Mais cela ne marche pas quand on passe le nom de l'exe de l'appli, puisque l'éxecutable est démarré, et me génère donc une exception.

Est-ce qu'il existe une solution autre ?

Merci d'avance pour vos réponses !

[Fab4v]

Désolé pour le dérangement, j'ai trouvé tout seul
Et désolé pour le double post, j'ai pas fait attention (désolé les modos)

Je post le résultat pour ceux que ça intéresse :

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
var
  Hash: TDCP_md5;
  i, hd: integer;
  Source: THandleStream;
  Digest: array[0..15] of byte;
  s, md5: string;
 
begin
  Source:= nil;
  try
    hd := CreateFile(PChar(Application.ExeName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
    Source := THandleStream.Create(hd);
  except
 
  end;
  if Source <> nil then
  begin
    Hash:= TDCP_md5.Create(Self);
    Hash.Init;
    Hash.UpdateStream(Source, Source.Size);
    Hash.Final(Digest);
    Source.Free;
    s:= '';
    for i:= 0 to 15 do
      s := s + IntToHex(Digest[i],2);
    md5 := s;
  end;
end;

[the_magik_mushroom]

essai avec ça :

Code :

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

1
2
3
4
5
6
7
 
var 
f: File;
 
AssignFile(f, application.ExeName);
Reset(f, 1);
FileMode := 0;

le FileMode est très important, ensuite tu devrais pouvoir faire un md5(f);

[Laurent Dardenne]

Salut,

Et désolé pour le double post, j'ai pas fait attention (désolé les modos)

l'erreur est humaine
j'ai fusionné tes 2 messages.

[Fab4v]

Encore pardon pour cette erreur (j'étais persuadé d'avoir cliqué sur répondre ).
En tout cas bravo à tous les participants de ce site, il est vraiment formidable : c'est une source inépuisable d'information !

Cordialement !

Fab4.