SHA-1: Difference between revisions

=={{header|Delphi}}==

{{libheader| System.SysUtils}}

{{libheader| DCPsha1}} Part of '''DCPcrypt Cryptographic Component Library v2.1'''[https://bitbucket.org/wpostma/dcpcrypt2010] by David Barton.

<lang Delphi>

program Sha_1;

{$APPTYPE CONSOLE}

uses

System.SysUtils,

DCPsha1;

function SHA1(const Str: string): string;

var

HashDigest: array of byte;

d: Byte;

begin

Result := '';

with TDCP_sha1.Create(nil) do

begin

Init;

UpdateStr(Str);

SetLength(HashDigest, GetHashSize div 8);

final(HashDigest[0]);

for d in HashDigest do

Result := Result + d.ToHexString(2);

Free;

end;

end;

begin

Writeln(SHA1('Rosetta Code'));

readln;

end.</lang>

{{out}}

<pre>

48C98F7E5A6E736D790AB740DFC3F51A61ABE2B5

</pre>