#include <crypt.au3>

;SPEICHERN
$handle = FileOpen(@ScriptDir & '\Hall2o08453.jpg', 16)
$sContent = FileRead($handle)
FileClose($handle)

$sOriginalHash = StringTrimLeft(_Crypt_HashData($sContent, $CALG_MD5), 2)

FileDelete(@ScriptDir & '\test.jpg')
$handle = FileOpen(@ScriptDir & '\test.jpg', 17)
FileWrite($handle, $sContent & $sOriginalHash)
FileClose($handle)


;LADEN
$handle = FileOpen(@ScriptDir & '\test.jpg', 16)
$sContent = FileRead($handle)
FileClose($handle)

$sFileHash = StringRight($sContent, 32)
$sContent = StringTrimRight($sContent, 32)

$sNeuerDateiHash = StringTrimLeft(_Crypt_HashData($sContent, $CALG_MD5), 2)

MsgBox(0,"","Hash vor Editierung: " & $sOriginalHash & @CRLF & _
            "Hash in der Datei: " & $sFileHash & @CRLF & _
            "Hash nach Editierung: " & $sNeuerDateiHash)