Crypt::Digest::Whirlpool(3)

NAME
Crypt::Digest::Whirlpool - Hash function Whirlpool [size: 512 bits]

SYNOPSIS
   ### Functional interface:
   use Crypt::Digest::Whirlpool qw( whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u
                                whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u );

   # calculate digest from string/buffer
   my $data = 'data string';
   my $whirlpool_raw  = whirlpool($data);
   my $whirlpool_hex  = whirlpool_hex($data);
   my $whirlpool_b64  = whirlpool_b64($data);
   my $whirlpool_b64u = whirlpool_b64u($data);
   # or from file
   my $whirlpool_file_raw  = whirlpool_file('filename.dat');
   my $whirlpool_file_hex  = whirlpool_file_hex('filename.dat');
   my $whirlpool_file_b64  = whirlpool_file_b64('filename.dat');
   my $whirlpool_file_b64u = whirlpool_file_b64u('filename.dat');
   # or from filehandle
   my $filehandle = ...; # existing binary-mode filehandle
   my $whirlpool_fh_raw  = whirlpool_file($filehandle);
   my $whirlpool_fh_hex  = whirlpool_file_hex($filehandle);
   my $whirlpool_fh_b64  = whirlpool_file_b64($filehandle);
   my $whirlpool_fh_b64u = whirlpool_file_b64u($filehandle);

   ### OO interface:
   use Crypt::Digest::Whirlpool;

   my $d = Crypt::Digest::Whirlpool->new;
   $d->add('any data');
   my $result_raw  = $d->digest;     # raw bytes
   my $result_hex  = $d->hexdigest;  # hexadecimal form
   my $result_b64  = $d->b64digest;  # Base64 form
   my $result_b64u = $d->b64udigest; # Base64 URL-safe form

   # or hash a file instead
   my $file_result_raw = Crypt::Digest::Whirlpool->new->addfile('filename.dat')->digest;

DESCRIPTION
Provides an interface to the Whirlpool digest algorithm.

EXPORT
Nothing is exported by default.

You can export selected functions:

  use Crypt::Digest::Whirlpool qw(whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u
                                      whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u);

Or all of them at once:

  use Crypt::Digest::Whirlpool ':all';

FUNCTIONS

  whirlpool
Joins all arguments into a single string and returns its Whirlpool digest encoded as a binary string.

Data arguments for the functional helpers are converted to byte strings using Perl's usual scalar stringification. Defined scalars, including numbers and string-overloaded objects, are accepted. "undef" is treated as an empty string and may emit Perl's usual "uninitialized value" warning. The same rules apply to "whirlpool_hex", "whirlpool_b64", and "whirlpool_b64u".

 my $whirlpool_raw = whirlpool('data string');
 #or
 my $whirlpool_raw = whirlpool('any data', 'more data', 'even more data');

  whirlpool_hex
Joins all arguments into a single string and returns its Whirlpool digest encoded as a hexadecimal string.

 my $whirlpool_hex = whirlpool_hex('data string');
 #or
 my $whirlpool_hex = whirlpool_hex('any data', 'more data', 'even more data');

  whirlpool_b64
Joins all arguments into a single string and returns its Whirlpool digest encoded as a Base64 string, with trailing '=' padding.

 my $whirlpool_b64 = whirlpool_b64('data string');
 #or
 my $whirlpool_b64 = whirlpool_b64('any data', 'more data', 'even more data');

  whirlpool_b64u
Joins all arguments into a single string and returns its Whirlpool digest encoded as a Base64 URL-safe string (see RFC 4648 section 5).

 my $whirlpool_b64url = whirlpool_b64u('data string');
 #or
 my $whirlpool_b64url = whirlpool_b64u('any data', 'more data', 'even more data');

  whirlpool_file
Reads a file given by a filename or filehandle and returns its Whirlpool digest encoded as a binary string.

 my $whirlpool_raw = whirlpool_file('filename.dat');
 #or
 my $filehandle = ...; # existing binary-mode filehandle
 my $whirlpool_raw = whirlpool_file($filehandle);

  whirlpool_file_hex
Reads a file given by a filename or filehandle and returns its Whirlpool digest encoded as a hexadecimal string.

 my $whirlpool_hex = whirlpool_file_hex('filename.dat');
 #or
 my $filehandle = ...; # existing binary-mode filehandle
 my $whirlpool_hex = whirlpool_file_hex($filehandle);

Note: The filehandle must be in binary mode before you pass it to addfile().

  whirlpool_file_b64
Reads a file given by a filename or filehandle and returns its Whirlpool digest encoded as a Base64 string, with trailing '=' padding.

 my $whirlpool_b64 = whirlpool_file_b64('filename.dat');
 #or
 my $filehandle = ...; # existing binary-mode filehandle
 my $whirlpool_b64 = whirlpool_file_b64($filehandle);

  whirlpool_file_b64u
Reads a file given by a filename or filehandle and returns its Whirlpool digest encoded as a Base64 URL-safe string (see RFC 4648 section 5).

 my $whirlpool_b64url = whirlpool_file_b64u('filename.dat');
 #or
 my $filehandle = ...; # existing binary-mode filehandle
 my $whirlpool_b64url = whirlpool_file_b64u($filehandle);

METHODS
The OO interface provides the same set of functions as Crypt::Digest. Unless noted otherwise, assume $d is an existing digest object created via "new", for example:

 my $d = Crypt::Digest::Whirlpool->new();

  new
 my $d = Crypt::Digest::Whirlpool->new();

  clone
 $d->clone();

  reset
 $d->reset();

  add
Appends data to the message. Returns the object itself (for chaining).

Each argument is converted to bytes using Perl's usual scalar stringification. Defined scalars, including numbers and string-overloaded objects, are accepted. "undef" is treated as an empty string and may emit Perl's usual "uninitialized value" warning.

 $d->add('any data');
 #or
 $d->add('any data', 'more data', 'even more data');

  addfile
Reads the file content and appends it to the message. Returns the object itself (for chaining).

 $d->addfile('filename.dat');
 #or
 my $filehandle = ...; # existing binary-mode filehandle
 $d->addfile($filehandle);

  hashsize
 $d->hashsize;
 #or
 Crypt::Digest::Whirlpool->hashsize();
 #or
 Crypt::Digest::Whirlpool::hashsize();

  digest
Returns the binary digest (raw bytes). The first call finalizes the digest object. Any later add(), addfile(), digest(), hexdigest(), b64digest(), or b64udigest() call will fail until you call reset().

 my $result_raw = $d->digest();

  hexdigest
Returns the digest encoded as a lowercase hexadecimal string. Like digest(), the first call finalizes the digest object.

 my $result_hex = $d->hexdigest();

  b64digest
Returns the digest encoded as a Base64 string with trailing "=" padding. Like digest(), the first call finalizes the digest object.

 my $result_b64 = $d->b64digest();

  b64udigest
Returns the digest encoded as a Base64 URL-safe string (no trailing "="). Like digest(), the first call finalizes the digest object.

 my $result_b64url = $d->b64udigest();

SEE ALSO

•   CryptX, Crypt::Digest

•   <https://en.wikipedia.org/wiki/Whirlpool_(cryptography)>