Hallo nochmals,
danke für die Antwort.
Ich habe mir in der Zwischenzeit aus verschiedensten Quellen letztendlich die folgende Lösung 'zurechtgebastelt'.
Der erzeugte Hash-Wert stimmt dem eines anderen Generators überein.
Ich nutze hierbei die .NET-Klasse MD5CryptoServiceProvider, welche ich mit einem ADODB-Stream 'füttere', und konvertiere anschließend das Ergebnis in einen Hex-String.
Private Function ByteArrayToHexStr(ByVal fByteArray)
Dim k
ByteArrayToHexStr = ""
For k = 1 To Lenb(fByteArray)
ByteArrayToHexStr = ByteArrayToHexStr & Right("0" & Hex(Ascb(Midb(fByteArray, k, 1))), 2)
Next
End Function
Public Function GenerateMD5ForFile(ByRef fFileName)
Dim strBin : Set strBin = CreateObject("ADODB.Stream")
Dim oMD5 : Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
Dim baHash
strBin.Type = 1 'adTypeBinary
strBin.Open()
oMD5.Initialize()
strBin.LoadFromFile(fFileName)
strBin.Position = 0
baHash = oMD5.ComputeHash_2(strBin.Read()) '2. Überladung von <ComputeHash>
GenerateMD5ForFile = ByteArrayToHexStr(baHash)
strBin.Close()
End Function
Gruß,
FlKoch
