Fichier checksum MD5

Question

En this question est mentionné le wcrypt2.

Ce dont j'ai besoin est simplement de calculer le MD5 d'un fichier. Ce serait parfait si je pouvais le calculer sans avoir à le sauvegarder car c'est un fichier téléchargé en format stream.

Je voudrais avoir le moyen le plus simple de le faire.

Merci!

Answer 1

Voici un code de travail pour 10 Indy:

function MD5File(const FileName: string): string; 
var 
    IdMD5: TIdHashMessageDigest5; 
    FS: TFileStream; 
begin 
IdMD5 := TIdHashMessageDigest5.Create; 
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); 
try 
    Result := IdMD5.HashStreamAsHex(FS) 
finally 
    FS.Free; 
    IdMD5.Free; 
end; 
end; 

Cordialement, OscaR1

Answer 2

La plupart des langages de programmation ont des bibliothèques disponibles pour le calcul du MD5 d'un tableau de chaînes ou d'octets. Dans certaines langues, ils font même partie de la bibliothèque standard. Je ne suis pas du tout familier avec Delphi, donc je ne sais pas si ça existe pour Delphi, mais je dirais que c'est probablement le cas. Recherchez des bibliothèques de hachage et/ou crypto pour Delphi.

Answer 3

Indy est livré avec des fonctions permettant de calculer plusieurs hachages, MD5 en fait partie. Indy est inclus dans toutes les versions de Delphi depuis au moins Delphi 2006 et disponible en téléchargement gratuit pour les anciennes versions.

Answer 4

Comme vous l'avez mentionné, the post you linked to parle de wcrypt2, qui est une bibliothèque de routines cryptographiques, y compris MD5. Le message que vous avez lié à semble également indiquer qu'il est disponible pour Delphi 7 puisque le demandeur comprend une sortie intitulée "Delphi 7". Vous avez tagué cette question delphi7, donc je suppose que c'est aussi la version que vous utilisez. Alors qu'est-ce qui vous empêche d'utiliser wcrypt2?

La question renvoie vers une copie de wcrypt2.pas, et les dates de copyright dans ce fichier semblent indiquer que l'unité était disponible au moment de la publication de Delphi 7. Vérifiez votre installation vous pourriez déjà l'avoir. Si non, alors l'unité dit aussi qu'il a été obtenu via Project Jedi, donc vous pourriez essayer d'y chercher aussi l'unité.

Les réponses à votre question référencée incluent un exemple de code Delphi et les noms des unités fournies avec Delphi pour faire MD5. Ils viennent avec Delphi 2009, vous devriez donc vérifier s'ils sont également disponibles pour votre version.

Answer 5

Jetez un oeil à this implementation de MD5SUM dans Delphi. Cela nécessite une chaîne pour l'entrée, mais j'imagine que vous pouvez facilement le faire fonctionner avec un flux.

Answer 6

MessageDigest_5 fonctionnerait aussi pour cela.

Answer 7

Basé sur answere @dummzeuch j'ai écrit cette fonction:

function getMD5checksum(s: TStream): string; 
var 
    md5: TIdHashMessageDigest5; 
    hash : T4x4LongWordRecord; 
begin 
    md5 := TIdHashMessageDigest5.Create; 
    s.Seek(0,0); 
    hash := md5.HashValue(s); 
    result := IntToHex(Integer(hash[0]), 4) + 
      IntToHex(Integer(hash[1]), 4) + 
      IntToHex(Integer(hash[2]), 4) + 
      IntToHex(Integer(hash[3]), 4); 
end; 

Answer 8

Qu'en est-:

function GetFileMD5(const Stream: TStream): String; overload; 
var MD5: TIdHashMessageDigest5; 
begin 
    MD5 := TIdHashMessageDigest5.Create; 
    try 
     Result := MD5.HashStreamAsHex(Stream); 
    finally 
     MD5.Free; 
    end; 
end; 

function GetFileMD5(const Filename: String): String; overload; 
var FileStream: TFileStream; 
begin 
    FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); 
    try 
     Result := GetFileMD5(FileStream); 
    finally 
     FileStream.Free; 
    end; 
end; 

Answer 9

J'utilise la fonction suivante dans Delphi 7 avec Indy 10.1.5

uses IdHashMessageDigest, idHash, Classes; 

... 

function cc_MD5File(const p_fileName : string) : string; 
//returns MD5 has for a file 
var 
    v_idmd5 : TIdHashMessageDigest5; 
    v_fs : TFileStream; 
    v_hash : T4x4LongWordRecord; 
begin 
    v_idmd5 := TIdHashMessageDigest5.Create; 
    v_fs := TFileStream.Create(p_fileName, fmOpenRead OR fmShareDenyWrite) ; 
    try 
    v_hash := v_idmd5.HashValue(v_fs); 
    result := v_idmd5.AsHex(v_hash); 
    finally 
    v_fs.Free; 
    v_idmd5.Free; 
    end; 
end; 

Answer 10

Si vous utilisez Overbyte http://www.overbyte.eu/frame_index.html ajoutez simplement unité et appeler la fonction FileMD5 avec le nom du fichier

uses OverbyteIcsMd5; 
.... 
function GetMd5File:String; 
begin 
Result := FileMD5(FileName); 
end;