Discussion :

[user8]

Hello,

Je cherche à utiliser l'objet System.Security.Cryptography.MD5CryptoServiceProvider afin d'effectuer un hashage sur un ensemble de fichiers.

Je concatène toutes les données de mes fichiers dans un TMemoryStream et maintenant je souhaiterai calculer ma valeur de hashage sur le contenu de ce stream.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
HashedData := CreateOleObject('System.Security.Cryptography.MD5CryptoServiceProvider');
 
for bou:=0 to (FluxTemp.size)-1 do
Begin
       FluxTemp.ReadBuffer(Buffer, 1);
       HashedData.HashCore(IntToStr(buffer));
End;
 
Result := HashedData.HashFinal;

A l'exécution, j'ai une erreur car HashCore n'est apparemment pas reconnu.

Pour info, j'avais développé cette méthode en utilisant CAPICOM. Mais CAPICOM n'est plus maintenu et microsoft conseille de passer à System.Security.Cryptography.

Quelqu'un aurait il une idée pour résoudre ce problème?

[ShaiLeTroll]

HashedData est je suppose un OleVariant, je te conseille de regarder la documentation de MD5CryptoServiceProvider qui ne doit plus avoir la méthode HashCore (Late Binding de la Méthode OLE)

[user8]

HashedData est un Variant.

MD5CryptoServiceProvider a ces 2 methodes en protected.

[ShaiLeTroll]

Protected, donc il faut hériter l'objet pour y avoir accès ... sinon tu n'as accès qu'au publique, logique ...

[user8]

Hélas oui.
Mais je viens d'apprendre que advapi32.dll possède également des fonctions de hashage...