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

+ test for md2/md4/md5 based on the md* example program

Browse Source 
git-svn-id: trunk@10809 -
This commit is contained in:
Jonas Maebe 2008-04-26 21:29:45 +00:00
parent 2413d4b43f
commit 311f7c7056
2 changed files with 101 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7277,6 +7277,7 @@ tests/test/opt/treg3.pp svneol=native#text/plain
tests/test/opt/treg4.pp svneol=native#text/plain tests/test/opt/treg4.pp svneol=native#text/plain
tests/test/opt/tretopt.pp svneol=native#text/plain tests/test/opt/tretopt.pp svneol=native#text/plain
tests/test/opt/tspace.pp svneol=native#text/plain tests/test/opt/tspace.pp svneol=native#text/plain
tests/test/packages/hash/tmdtest.pp svneol=native#text/plain
tests/test/packages/webtbs/tw1808.pp svneol=native#text/plain tests/test/packages/webtbs/tw1808.pp svneol=native#text/plain
tests/test/packages/webtbs/tw3820.pp svneol=native#text/plain tests/test/packages/webtbs/tw3820.pp svneol=native#text/plain
tests/test/packages/win-base/tdispvar1.pp svneol=native#text/plain tests/test/packages/win-base/tdispvar1.pp svneol=native#text/plain

100
tests/test/packages/hash/tmdtest.pp Normal file
View File

@ -0,0 +1,100 @@
{
This file is part of the Free Pascal packages.
Copyright (c) 1999-2000 by the Free Pascal development team
Tests the MD5 program.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
program mdtest;
{$h+}
uses
md5;
var
error: boolean;
const
Suite: array[1..7] of string = (
'',
'a',
'abc',
'message digest',
'abcdefghijklmnopqrstuvwxyz',
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789',
'12345678901234567890123456789012345678901234567890123456789012345678901234567890'
);
Results: array[TMDVersion, Low(Suite)..High(Suite)] of string = (
// MD_VERSION_2
('8350e5a3e24c153df2275c9f80692773',
'32ec01ec4a6dac72c0ab96fb34c0b5d1',
'da853b0d3f88d99b30283a69e6ded6bb',
'ab4f496bfb2a530b219ff33031fe06b0',
'4e8ddff3650292ab5a4108c3aa47940b',
'da33def2a42df13975352846c30338cd',
'd5976f79d83d3a0dc9806c3c66f3efd8'),
// MD_VERSION_4
('31d6cfe0d16ae931b73c59d7e0c089c0',
'bde52cb31de33e46245e05fbdbd6fb24',
'a448017aaf21d8525fc10ae87aa6729d',
'd9130a8164549fe818874806e1c7014b',
'd79e1c308aa5bbcdeea8ed63df412da9',
'043f8582f241db351ce627e153e7f0e4',
'e33b4ddc9c38f2199c3e7b164fcc0536'),
// MD_VERSION_5
('d41d8cd98f00b204e9800998ecf8427e',
'0cc175b9c0f1b6a831c399e269772661',
'900150983cd24fb0d6963f7d28e17f72',
'f96b697d7cb7938d525a2f31aaf161d0',
'c3fcd3d76192e4007dfb496cca67e13b',
'd174ab98d277d9f5a5611c2c9f419d9f',
'57edf4a22be3c955ac49da2e2107b67a')
);
procedure performTest(const Ver: TMDVersion);
var
I: Integer;
S: String;
begin
for I := Low(Suite) to High(Suite) do
begin
S := LowerCase(MDPrint(MDString(Suite[I], Ver)));
if S = Results[Ver, I] then
Write('passed ')
else
begin
error:=true;
Write('failed ');
end;
WriteLn(' "', Suite[I], '" = ', S);
end;
end;
begin
error:=false;
Writeln('Executing RFC 1319 test suite ...');
performTest(MD_VERSION_2);
Writeln;
Writeln('Executing RFC 1320 test suite ...');
performTest(MD_VERSION_4);
Writeln;
Writeln('Executing RFC 1321 test suite ...');
performTest(MD_VERSION_5);
Writeln;
if (error) then
halt(1);
end.