uweziegenhagen.de

Obwohl nicht mehr state of the art ist, ist MD5 noch immer das gebräuchlichste Verfahren zum Überprüfen von Dateien auf Byte-Ebene. Für Windows und MacOS gibt es mit HashTab (http://beeblebrox.org/hashtab/) ein tolles Freeware-Tool, das per Kontextmenü für Dateien eine ganze Reihe von Checksummen ausrechnet.

Da ich das ganze auch in Excel 2007 brauche, hab ich gegoogelt und auf http://www.tutorials.de/forum/visual-basic-6-0/275442-md5-per-vba.html den passenden VBA-Code gefunden.

' Code ursprünglich von DrSoong, angepasst durch U. Ziegenhagen
Public Function MD5_file(file As String)
Dim iFile As Integer, sDatei As String, sName As String
sName = file 'Hier den Namen deiner Datei rein
iFile = FreeFile 'Nächste freie Dateinummer
sDatei = Space(FileLen(sName)) 'Platz festlegen
Open sName For Binary As iFile 'Datei binär öffnen
 Get #iFile, , sDatei                'und auslesen
Close iFile
MD5_file = MD5_string(sDatei) 'Hash erzeugen
End Function

Wenn man die entsprechenden VBA Skripte über die VBA-Entwicklungsumgebung anlegt, alle Zeilen löscht, in denen sich Excel über etwas beschwert, und die Funktion MD5_file() ebenfalls einfügt, so erhält man die Möglichkeit, per Formel die MD5 Summen von Dateien auszugeben.