fpc/tests/bench/bmd5.pp
florian 6e11efa664 - remove unneeded variable
git-svn-id: trunk@30470 -
2015-04-06 20:10:31 +00:00

27 lines
496 B
ObjectPascal

{$mode objfpc}
uses
timer,md5;
const
Strings: array[1..7] of string = (
'',
'a',
'abc',
'message digest',
'abcdefghijklmnopqrstuvwxyz',
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789',
'12345678901234567890123456789012345678901234567890123456789012345678901234567890'
);
var
i,j : integer;
begin
start;
for i:=1 to 500000 do
for j:=low(Strings) to high(Strings) do
MDString(Strings[j],MD_VERSION_5);
stop;
writeln;
end.