mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-04 21:58:33 +02:00
38 lines
901 B
ObjectPascal
38 lines
901 B
ObjectPascal
program sha1test;
|
|
{$mode objfpc}{$h+}
|
|
|
|
uses sha1;
|
|
|
|
var
|
|
code: cardinal;
|
|
s, sdig: string;
|
|
i: integer;
|
|
ctx: TSHA1Context;
|
|
d: TSHA1Digest;
|
|
begin
|
|
code := 0;
|
|
sdig := SHA1Print(SHA1String('abc'));
|
|
if sdig <> 'a9993e364706816aba3e25717850c26c9cd0d89d' then
|
|
code := code or 1;
|
|
|
|
sdig := SHA1Print(SHA1String('abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'));
|
|
if sdig <> '84983e441c3bd26ebaae4aa1f95129e5e54670f1' then
|
|
code := code or 2;
|
|
|
|
// SHA-1 of a million 'a' symbols
|
|
SetLength(s, 1000);
|
|
for i := 1 to 1000 do s[i] := 'a';
|
|
SHA1Init(ctx);
|
|
for i := 0 to 999 do
|
|
SHA1Update(ctx, PChar(s)^, 1000);
|
|
SHA1Final(ctx, d);
|
|
sdig := SHA1Print(d);
|
|
if sdig <> '34aa973cd4c4daa4f61eeb2bdbad27316534016f' then
|
|
code := code or 4;
|
|
|
|
if code = 0 then
|
|
writeln('Basic SHA-1 tests passed')
|
|
else
|
|
writeln('SHA-1 tests failed: ', code);
|
|
Halt(code);
|
|
end. |