MD5 Checksummen ausrechnen
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.