A-M baby

Task/MD5-Implementation/Modula-3/md5-implementation-1.mod3

@@ -0,0 +1,19 @@
+INTERFACE MD5;
+
+IMPORT Word;
+
+TYPE Digest = ARRAY [0..15] OF CHAR;
+TYPE Buffer = ARRAY [0..63] OF CHAR;
+
+TYPE T = RECORD
+  state: ARRAY [0..3] OF Word.T;
+  count: ARRAY [0..1] OF Word.T;
+  buffer: Buffer;
+END;
+
+PROCEDURE Init(VAR md5ctx: T);
+PROCEDURE Update(VAR md5ctx: T; input: TEXT);
+PROCEDURE Final(VAR md5ctx: T): Digest;
+PROCEDURE ToText(hash: Digest): TEXT;
+
+END MD5.