Data commit

Task/MD4/Delphi/md4.delphi

@@ -0,0 +1,30 @@
+program CalcMD4;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils,
+  DCPmd4;
+
+function MD4(const Str: string): string;
+var
+  HashDigest: array of byte;
+  d: Byte;
+begin
+  Result := '';
+  with TDCP_md4.Create(nil) do
+  begin
+    Init;
+    UpdateStr(Str);
+    SetLength(HashDigest, GetHashSize div 8);
+    final(HashDigest[0]);
+    for d in HashDigest do
+      Result := Result + d.ToHexString(2);
+    Free;
+  end;
+end;
+
+begin
+  Writeln(MD4('Rosetta Code'));
+  readln;
+end.