SHA256 von großen Dateien

[Nachaz]

Hallo liebe Delphi-Praxis-Gemeinde,

bevor ich es selber bastle:
hat jemand da draußen vielleicht schon einmal den SHA256 von großen Dateien ermittelt?

Mein Ziel ist es eine Klasse zu schaffen, die von einer großen Datei (>4GiB) den Hash-Wert in SHA256 ermittelt und dabei Progress-Events feuert (z.B. pro Chunk oder in einem anderen praktikablen Intervall).

Nach einer 30 Minütigen Google-Recherche hab' ich nicht funktionierende Download-Links und Klassen, die mit Strings hantieren satt und der Pseudocode auf Wiki sieht nicht ZU komplex aus.

Ich würde auch nur ungern dafür irgendwelche Komponenten installieren, da es leider bei Delphi immer noch einen heiden-Aufwand bedeutet, will man ein Projekt auf anderen Rechnern kompilierbar halten (wenn jemand schon mal in JAVA mit Maven und Artifactory/Archiva gearbeitet hat, weiß er, wie es funktionieren SOLLTE)

Gibt es da schon etwas (oder etwas, dass mir weiterhelfen würde) oder muss ich das selber schreiben?


Dank im Voraus & Gruß,

NZ


P.S.: Wenn ich dienliche Hinweise bekomme, werde ich die Gesamtlösung selbstverständlich die Lösung hier posten.

[Aphton]

Muss es SHA256 sein?
Ich könnte dir nämlich eine Fertiglösung für MD5 bieten.
MD5 liefert letzendlich auch 16 Bytes, was ja 256 Bits sind, zurück!
Edit: Ups, das sind 128 Bits

[himitsu]

hier könnte man mal reinsehn, ob's da was giebt
http://www.delphipraxis.net/50896-ei...n-gesucht.html
http://sourceforge.net/projects/tplockbox/
http://www.delphipraxis.net/9486-dateien-verschluesseln-aber-wie.html
http://www.delphipraxis.net/11892-pr...enerieren.html

oder man nimmt das DEC :angle2:

[Nachaz]

MD5 ginge auch, SHA256 ist nur halt ein wenig moderner. (und natürlich um ein paar Faktoren langsamer :)

Vielleich noch zum Hintergrund der ganzen Geschichte:
Ich habe eine Sicherungs-Ordner (im Wesentlichen ~200 RAR-Archive) den ich immer manuell zwischen meinen Rechnern synchronisiere.

Jetzt nehme ich gerade einen neuen Proberaumrechner in Betrieb und der meldet mir CRC-Fehler bei ein paar der größeren Archive (kopiert via Microsoft Network/samba unter Windows-7).

Ich bastle gerade ein Programm, was einen Index des Sicherungsordners mit Filename, FileSize, LastChange und SHA256 erstellt (tsv-datei), um den Fehler besser eingrenzen zu können. Ziel ist, dass ich nur noch die Index-Datei vergleiche um Differenzen aufzudecken, anstatt immer die 300 Gib zu vergleichen (~5 Stunden mit 1GBit).

MD5 wäre für diese Zwecke natürlich ausreichend (die Fehlerate ist auch noch bei MD5 unrealistisch hoch). Prinzipiell wäre ich daher auch auch für einen MD5 dankbar.

[Nachaz]

Danke@himitsu,

aber die o.g. Probleme gibt es dabei immer noch, ich will halt weder die Delphi[XE] Indy-Klassen verwenden (wg. > 2 GiB), noch DEC verwenden (Kompilierbarkeit+GibtsDasÜberhauptFürDelphiXE?)

[Aphton]

Hier, schau mal, ob es dir hilft.
Die Demo Datei berechnet den Hash der ihr übergebenen Datei - dh. versuch einfach mal irgendeine Datei auf diese zu droppen (damit öffnen)!

Weiters: Es werden die MD5 Funktionen, die von Windows in cryptdll.dll zur Verfügung gestellt werden, verwendet!
Du müsstest dann noch wegen Kompaktibilität nachguggen!

[Nachaz]

Danke, mach ich morgen, muss jetzt leider weg!

[Luckie]

@Aphton: Sehr schön. Gefällt mir. Ich habe mir erlaubt das Archiv auf meine Webseite hochzuladen: http://www.michael-puff.de/Programmi...mporte/Aphton/ für mich, damit ich es finde, wenn ich es mal brauche. Ich hoffe, du hast nichts dagegen.

[Aphton]

Absolut nichts, ganz im Gegenteil sogar. Verschafft mir eine Ehre!

[Nachaz]

Vielen Dank Euch, werde gleich mal probieren das zu integrieren.