17 lines
313 B
Text
17 lines
313 B
Text
MODULE SHA1;
|
|
IMPORT
|
|
Crypto:SHA1,
|
|
Crypto:Utils,
|
|
Strings,
|
|
Out;
|
|
VAR
|
|
h: SHA1.Hash;
|
|
str: ARRAY 128 OF CHAR;
|
|
BEGIN
|
|
h := SHA1.NewHash();
|
|
h.Initialize;
|
|
str := "Rosetta Code";
|
|
h.Update(str,0,Strings.Length(str));
|
|
h.GetHash(str,0);
|
|
Out.String("SHA1: ");Utils.PrintHex(str,0,h.size);Out.Ln
|
|
END SHA1.
|