10 lines
134 B
Text
10 lines
134 B
Text
|
program RosettaSha1;
|
||
|
|
uses
|
||
|
|
sha1;
|
||
|
|
var
|
||
|
|
d: TSHA1Digest;
|
||
|
|
begin
|
||
|
|
d:=SHA1String('Rosetta Code');
|
||
|
|
WriteLn(SHA1Print(d));
|
||
|
|
end.
|