19 lines
376 B
Text
19 lines
376 B
Text
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.
|