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.