freepascal.compiler/packages/fcl-hash/examples/demosha256.pp

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.