paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 17:50:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation of example. Fixes issue #40715

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-28 09:45:13 +01:00
parent a90691435b
commit 0b38f99b47
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-hash/examples/demosha256.pp
View File

@ -27,11 +27,11 @@ var
begin
aSource:='abc';
S:=TEncoding.UTF8.GetAnsiBytes(aSource);
SHA256Hexa(S, Digest);
TSHA256.DigestHexa(S, Digest);
if (Digest<> 'BA7816BF8F01CFEA414140DE5DAE2223B00361A396177A9CB410FF61F20015AD') then
raise Exception.Create('ERR_SHA256');
SetLength(S,0);
SHA256Hexa(S, Digest);
TSHA256.DigestHexa(S, Digest);
if (Digest<> 'E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855') then
raise Exception.Create('ERR_SHA256');
end;