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