mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 14:46:02 +02:00
30 lines
581 B
ObjectPascal
30 lines
581 B
ObjectPascal
program demosha256;
|
|
|
|
{$mode objfpc}
|
|
{$h+}
|
|
|
|
uses SysUtils, fpsha256, fphashutils;
|
|
|
|
procedure SHA256Test;
|
|
|
|
var
|
|
aSource,Digest : AnsiString;
|
|
S : TBytes;
|
|
|
|
begin
|
|
aSource:='abc';
|
|
S:=TEncoding.UTF8.GetAnsiBytes(aSource);
|
|
SHA256Hexa(S, Digest);
|
|
if (Digest<> 'BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD') then
|
|
raise Exception.Create('ERR_SHA256');
|
|
SetLength(S,0);
|
|
SHA256Hexa(S, Digest);
|
|
if (Digest<> 'E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855') then
|
|
raise Exception.Create('ERR_SHA256');
|
|
end;
|
|
|
|
begin
|
|
SHA256Test
|
|
end.
|
|
|