Pascal (Lazarus/Delphi)

Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

See more Encryption Examples

Computing the hash for a file of any size. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Crypt2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  crypt: TCrypt2;
  filename: string;
  hash: string;

begin
  //  This example assumes the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  crypt := TCrypt2.Create;

  //  Any type of file may be hashed.
  //  There is  no size limitation because the file is consumed
  //  in streaming mode internally.

  filename := 'something.zip';

  crypt.HashAlgorithm := 'sha1';
  crypt.EncodingMode := 'hex';

  //  Other possible EncodingMode settings are: 
  //  "quoted-printable", "base64", "base32", and "url";

  hash := crypt.HashFileENC(filename);
  WriteLn('SHA1:');
  WriteLn(hash);

  //  Hash using MD2
  crypt.HashAlgorithm := 'md2';
  hash := crypt.HashFileENC(filename);
  WriteLn('MD2:');
  WriteLn(hash);

  //  Hash using MD5
  crypt.HashAlgorithm := 'md5';
  hash := crypt.HashFileENC(filename);
  WriteLn('MD5:');
  WriteLn(hash);

  //  Hash using SHA-256
  crypt.HashAlgorithm := 'sha256';
  hash := crypt.HashFileENC(filename);
  WriteLn('SHA256:');
  WriteLn(hash);

  //  Hash using SHA-384
  crypt.HashAlgorithm := 'sha384';
  hash := crypt.HashFileENC(filename);
  WriteLn('SHA384:');
  WriteLn(hash);

  //  Hash using SHA-512
  crypt.HashAlgorithm := 'sha512';
  hash := crypt.HashFileENC(filename);
  WriteLn('SHA512:');
  WriteLn(hash);

  //  Hash using HAVAL
  //  There are two additional properties relevant to HAVAL:
  //  HavalRounds, and KeyLength.
  //  HavalRounds can have values of 3, 4, or 5.
  //  KeyLength can have values of 128, 160, 192, 224, or 256
  crypt.HashAlgorithm := 'haval';
  crypt.HavalRounds := 5;
  crypt.KeyLength := 256;
  hash := crypt.HashFileENC(filename);
  WriteLn('Haval:');
  WriteLn(hash);


  crypt.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.