Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
BLAKE2b_160.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2b_256.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2b_384.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2b_512.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2s_128.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2s_160.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2s_224.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
BLAKE2s_256.pm	6.55 KB	-rw-rw-rw-	2020-08-25 11:02
CHAES.pm	5.87 KB	-rw-rw-rw-	2020-08-25 11:02
Keccak224.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
Keccak256.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
Keccak384.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
Keccak512.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
MD2.pm	5.56 KB	-rw-rw-rw-	2020-08-25 11:02
MD4.pm	5.55 KB	-rw-rw-rw-	2020-08-25 11:02
MD5.pm	5.55 KB	-rw-rw-rw-	2020-08-25 11:02
RIPEMD128.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
RIPEMD160.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
RIPEMD256.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
RIPEMD320.pm	6.28 KB	-rw-rw-rw-	2020-08-25 11:02
SHA1.pm	5.67 KB	-rw-rw-rw-	2020-08-25 11:02
SHA224.pm	5.92 KB	-rw-rw-rw-	2020-08-25 11:02
SHA256.pm	5.92 KB	-rw-rw-rw-	2020-08-25 11:02
SHA384.pm	5.92 KB	-rw-rw-rw-	2020-08-25 11:02
SHA3_224.pm	6.16 KB	-rw-rw-rw-	2020-08-25 11:02
SHA3_256.pm	6.16 KB	-rw-rw-rw-	2020-08-25 11:02
SHA3_384.pm	6.16 KB	-rw-rw-rw-	2020-08-25 11:02
SHA3_512.pm	6.16 KB	-rw-rw-rw-	2020-08-25 11:02
SHA512.pm	5.92 KB	-rw-rw-rw-	2020-08-25 11:02
SHA512_224.pm	6.4 KB	-rw-rw-rw-	2020-08-25 11:02
SHA512_256.pm	6.4 KB	-rw-rw-rw-	2020-08-25 11:02
SHAKE.pm	1.67 KB	-rw-rw-rw-	2020-08-25 11:02
Tiger192.pm	6.17 KB	-rw-rw-rw-	2020-08-25 11:02
Whirlpool.pm	6.3 KB	-rw-rw-rw-	2020-08-25 11:02

Rename

package Crypt::Digest::SHAKE;

use strict;
use warnings;
our $VERSION = '0.069';

use Carp;
$Carp::Internal{(__PACKAGE__)}++;
use CryptX;

sub addfile {
  my ($self, $file) = @_;

my $handle;
  if (ref(\$file) eq 'SCALAR') {        #filename
    open($handle, "<", $file) || croak "FATAL: cannot open '$file': $!";
    binmode($handle);
  }
  else {                                #handle
    $handle = $file
  }
  croak "FATAL: invalid handle" unless defined $handle;

my $n;
  my $buf = "";
  while (($n = read($handle, $buf, 32*1024))) {
    $self->add($buf)
  }
  croak "FATAL: read failed: $!" unless defined $n;

return $self;
}

sub CLONE_SKIP { 1 } # prevent cloning

=pod

=head1 NAME

Crypt::Digest::SHAKE - Hash functions SHAKE128, SHAKE256 from SHA3 family

=head1 SYNOPSIS

use Crypt::Digest::SHAKE

$d = Crypt::Digest::SHAKE->new(128);
   $d->add('any data');
   $d->addfile('filename.dat');
   $d->addfile(*FILEHANDLE);
   $part1 = $d->done(100); # 100 raw bytes
   $part2 = $d->done(100); # another 100 raw bytes
   #...

=head1 DESCRIPTION

Provides an interface to the SHA3's sponge function SHAKE.

=head1 METHODS

=head2 new

$d = Crypt::Digest::SHA3-SHAKE->new($num);
 # $num ... 128 or 256

=head2 clone

$d->clone();

=head2 reset

$d->reset();

=head2 add

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

=head2 addfile

$d->addfile('filename.dat');
 #or
 $d->addfile(*FILEHANDLE);

=head2 done

$result_raw = $d->done($len);
 # can be called multiple times

=head1 SEE ALSO

=over

=item * L<CryptX|CryptX>, L<Crypt::Digest|Crypt::Digest>

=item * L<http://en.wikipedia.org/wiki/SHA-3|http://en.wikipedia.org/wiki/SHA-3>

=back

=cut