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

Write sha1 of one million "a" symbols.

Browse Source
This commit is contained in:
Margers 2025-04-21 17:57:18 +00:00 committed by FPK
parent 1e1cc16569
commit 826aabe99d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/hash/examples/sha1performancetest.pas
View File

@ -23,6 +23,7 @@ begin
for i := 0 to 1000 do
ss := LowerCase(SHA1Print(SHA1string(s)));
EndTime:=now;
writeln('SHA1: ',ss);
write('Performance test finished. Elapsed time: ');
writeln((EndTime-StartTime)*3600*24:0:3,' s');
end.