mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:28:12 +02:00
27 lines
496 B
ObjectPascal
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.
|