dmd5
Free Pascal MD5 implementation. Cross-platform, lightweight, without dependencies.
- Quiet · last change 12-25-2018
- ★ 1 on GitHub
README
dmd5
Example
Just call MD5Digest:
uses
dmd5;
...
var
Data: PByte;
Size: SizeUInt;
Digest: TMD5Digest;
...
// Compute MD5 digest of Size bytes at Data
MD5Digest(Data, Size, Digest);MD5 of stream-like data
If the data is not stored as continuous memory block you can alternatively use MD5Init, MD5Update and MD5Final (which are pascal implementations of functions from RFC-1321 with the same names).
var
Context: TMD5Context;
Digest: TMD5Digest;
begin
MD5Init(Context);
while {there is data} do begin
// ... read next data block to memory
// Pass next part of data
MD5Update(Context, Data, Size);
end;
MD5Final(Context, Digest);
// now Digest contains MD5 digest of the data
// ...
end;Convert MD5 digest to string
function MD5DigestToString(const Digest: TMD5Digest): AnsiString;
var
B: Byte;
begin
Result := '';
for B in Digest do
Result := Result + LowerCase(HexStr(B, 2));
end;