Blowfish Test

Program BFTest;
{$APPTYPE CONSOLE}

uses Blowfish, SysUtils;

const
  strmsg1 = '%s self test passed.';
  strmsg2 = '%s self test failed (error code = %d).';
var
  retval: Integer;

begin

  {Blowfish self test}
  retval := bfSelfTest;
  if retval = 0 then
    writeln(Format(strmsg1,['Blowfish']))
  else
    writeln(Format(strmsg2,['Blowfish', retval]));

  {Blowfish CBC self test}
  retval := bfModeSelfTest;
  if retval = 0 then
    writeln(Format(strmsg1,['Blowfish CBC']))
  else
    writeln(Format(strmsg2,['Blowfish CBC', retval]));

  readln;

end.