mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 11:14:22 +02:00
30 lines
644 B
ObjectPascal
30 lines
644 B
ObjectPascal
program sha1performancetest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
cthreads,
|
|
{$ENDIF}{$ENDIF}
|
|
SysUtils,Classes,sha1,dateutils;
|
|
|
|
var
|
|
StartTime: TDateTime;
|
|
EndTime: TDateTime;
|
|
i: integer;
|
|
s,ss: string;
|
|
begin
|
|
writeln('MD5 of a million "a" symbols');
|
|
Writeln('compile sha unit with -dSHA1SLOW to use unoptimized original version');
|
|
SetLength(s, 1000000);
|
|
for i := 1 to 1000000 do s[i] := 'a';
|
|
|
|
StartTime:=now;
|
|
for i := 0 to 1000 do
|
|
ss := LowerCase(SHA1Print(SHA1string(s)));
|
|
EndTime:=now;
|
|
writeln('Performance test finished. Elapsed time:');
|
|
writeln(TimeToStr(EndTime-StartTime));
|
|
end.
|
|
|