fpc/packages/hash/examples/sha1performancetest.pas

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.