blob: 62d887667e312c67e9aeecc0d0f5bf2967e44e45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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.
|
