Um das zu kompletieren. Gibt es jemanden der eine funktionierende Implementierung (Datei / Stream hashen) mit den WE-Units fertig bekommt?
Ist schon eingebaut! Jede Hash-
Unit exportiert eine Prozedur dafür, siehe
http://www.wolfgang-ehrhardt.de/hash_intro.html (specific units).
Delphi-Quellcode:
procedure [Hash]File(fname: Str255; var Digest: T[Hash]Digest; var buf; bsize: word; var Err: word);
{-[Hash] of file, buf: buffer with at least bsize bytes}
Also für MD5 die
procedure MD5File
. Allerdings ist in
Unit Hash wg. 16-Bit-Kompatibilität nur ein max. 64-KB-Buffer implementiert:
Delphi-Quellcode:
procedure HashFile(const fname: Str255; PHash: PHashDesc;
var Digest: THashDigest; var buf; bsize: word; var Err: word);
{-Calculate hash digest of file, buf: buffer with at least bsize bytes}