17 lines
346 B
Text
17 lines
346 B
Text
MODULE MD5;
|
|
IMPORT
|
|
Crypto:MD5,
|
|
Crypto:Utils,
|
|
Strings,
|
|
Out;
|
|
VAR
|
|
h: MD5.Hash;
|
|
str: ARRAY 128 OF CHAR;
|
|
BEGIN
|
|
h := MD5.NewHash();
|
|
h.Initialize;
|
|
str := "The quick brown fox jumped over the lazy dog's back";
|
|
h.Update(str,0,Strings.Length(str));
|
|
h.GetHash(str,0);
|
|
Out.String("MD5: ");Utils.PrintHex(str,0,h.size);Out.Ln
|
|
END MD5.
|