Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
lib64
perl5
vendor_perl
Crypt
Digest
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: BLAKE2s_160.pm
package Crypt::Digest::BLAKE2s_160; ### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY! use strict; use warnings; our $VERSION = '0.089'; use base qw(Crypt::Digest Exporter); our %EXPORT_TAGS = ( all => [qw( blake2s_160 blake2s_160_hex blake2s_160_b64 blake2s_160_b64u blake2s_160_file blake2s_160_file_hex blake2s_160_file_b64 blake2s_160_file_b64u )] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw(); use Carp; $Carp::Internal{(__PACKAGE__)}++; use Crypt::Digest; sub new { my ($class) = @_; my $obj = Crypt::Digest->new('BLAKE2s_160'); return bless $obj, $class; } sub clone { my ($self) = @_; my $obj = Crypt::Digest::clone($self); return bless $obj, ref($self) || $self; } sub hashsize { Crypt::Digest::hashsize('BLAKE2s_160') } sub blake2s_160 { Crypt::Digest::digest_data('BLAKE2s_160', @_) } sub blake2s_160_hex { Crypt::Digest::digest_data_hex('BLAKE2s_160', @_) } sub blake2s_160_b64 { Crypt::Digest::digest_data_b64('BLAKE2s_160', @_) } sub blake2s_160_b64u { Crypt::Digest::digest_data_b64u('BLAKE2s_160', @_) } sub blake2s_160_file { Crypt::Digest::digest_file('BLAKE2s_160', @_) } sub blake2s_160_file_hex { Crypt::Digest::digest_file_hex('BLAKE2s_160', @_) } sub blake2s_160_file_b64 { Crypt::Digest::digest_file_b64('BLAKE2s_160', @_) } sub blake2s_160_file_b64u { Crypt::Digest::digest_file_b64u('BLAKE2s_160', @_) } 1; =pod =head1 NAME Crypt::Digest::BLAKE2s_160 - Hash function BLAKE2s [size: 160 bits] =head1 SYNOPSIS ### Functional interface: use Crypt::Digest::BLAKE2s_160 qw( blake2s_160 blake2s_160_hex blake2s_160_b64 blake2s_160_b64u blake2s_160_file blake2s_160_file_hex blake2s_160_file_b64 blake2s_160_file_b64u ); # calculate digest from string/buffer my $data = 'data string'; my $blake2s_160_raw = blake2s_160($data); my $blake2s_160_hex = blake2s_160_hex($data); my $blake2s_160_b64 = blake2s_160_b64($data); my $blake2s_160_b64u = blake2s_160_b64u($data); # or from file my $blake2s_160_file_raw = blake2s_160_file('filename.dat'); my $blake2s_160_file_hex = blake2s_160_file_hex('filename.dat'); my $blake2s_160_file_b64 = blake2s_160_file_b64('filename.dat'); my $blake2s_160_file_b64u = blake2s_160_file_b64u('filename.dat'); # or from filehandle my $filehandle = ...; # existing binary-mode filehandle my $blake2s_160_fh_raw = blake2s_160_file($filehandle); my $blake2s_160_fh_hex = blake2s_160_file_hex($filehandle); my $blake2s_160_fh_b64 = blake2s_160_file_b64($filehandle); my $blake2s_160_fh_b64u = blake2s_160_file_b64u($filehandle); ### OO interface: use Crypt::Digest::BLAKE2s_160; my $d = Crypt::Digest::BLAKE2s_160->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::BLAKE2s_160->new->addfile('filename.dat')->digest; =head1 DESCRIPTION Provides an interface to the BLAKE2s_160 digest algorithm. =head1 EXPORT Nothing is exported by default. You can export selected functions: use Crypt::Digest::BLAKE2s_160 qw(blake2s_160 blake2s_160_hex blake2s_160_b64 blake2s_160_b64u blake2s_160_file blake2s_160_file_hex blake2s_160_file_b64 blake2s_160_file_b64u); Or all of them at once: use Crypt::Digest::BLAKE2s_160 ':all'; =head1 FUNCTIONS =head2 blake2s_160 Joins all arguments into a single string and returns its BLAKE2s_160 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. C<undef> is treated as an empty string and may emit Perl's usual "uninitialized value" warning. The same rules apply to C<blake2s_160_hex>, C<blake2s_160_b64>, and C<blake2s_160_b64u>. my $blake2s_160_raw = blake2s_160('data string'); #or my $blake2s_160_raw = blake2s_160('any data', 'more data', 'even more data'); =head2 blake2s_160_hex Joins all arguments into a single string and returns its BLAKE2s_160 digest encoded as a hexadecimal string. my $blake2s_160_hex = blake2s_160_hex('data string'); #or my $blake2s_160_hex = blake2s_160_hex('any data', 'more data', 'even more data'); =head2 blake2s_160_b64 Joins all arguments into a single string and returns its BLAKE2s_160 digest encoded as a Base64 string, B<with> trailing '=' padding. my $blake2s_160_b64 = blake2s_160_b64('data string'); #or my $blake2s_160_b64 = blake2s_160_b64('any data', 'more data', 'even more data'); =head2 blake2s_160_b64u Joins all arguments into a single string and returns its BLAKE2s_160 digest encoded as a Base64 URL-safe string (see RFC 4648 section 5). my $blake2s_160_b64url = blake2s_160_b64u('data string'); #or my $blake2s_160_b64url = blake2s_160_b64u('any data', 'more data', 'even more data'); =head2 blake2s_160_file Reads a file given by a filename or filehandle and returns its BLAKE2s_160 digest encoded as a binary string. my $blake2s_160_raw = blake2s_160_file('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $blake2s_160_raw = blake2s_160_file($filehandle); =head2 blake2s_160_file_hex Reads a file given by a filename or filehandle and returns its BLAKE2s_160 digest encoded as a hexadecimal string. my $blake2s_160_hex = blake2s_160_file_hex('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $blake2s_160_hex = blake2s_160_file_hex($filehandle); B<Note:> The filehandle must be in binary mode before you pass it to C<addfile()>. =head2 blake2s_160_file_b64 Reads a file given by a filename or filehandle and returns its BLAKE2s_160 digest encoded as a Base64 string, B<with> trailing '=' padding. my $blake2s_160_b64 = blake2s_160_file_b64('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $blake2s_160_b64 = blake2s_160_file_b64($filehandle); =head2 blake2s_160_file_b64u Reads a file given by a filename or filehandle and returns its BLAKE2s_160 digest encoded as a Base64 URL-safe string (see RFC 4648 section 5). my $blake2s_160_b64url = blake2s_160_file_b64u('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $blake2s_160_b64url = blake2s_160_file_b64u($filehandle); =head1 METHODS The OO interface provides the same set of functions as L<Crypt::Digest>. Unless noted otherwise, assume C<$d> is an existing digest object created via C<new>, for example: my $d = Crypt::Digest::BLAKE2s_160->new(); =head2 new my $d = Crypt::Digest::BLAKE2s_160->new(); =head2 clone $d->clone(); =head2 reset $d->reset(); =head2 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. C<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'); =head2 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); =head2 hashsize $d->hashsize; #or Crypt::Digest::BLAKE2s_160->hashsize(); #or Crypt::Digest::BLAKE2s_160::hashsize(); =head2 digest Returns the binary digest (raw bytes). The first call finalizes the digest object. Any later C<add()>, C<addfile()>, C<digest()>, C<hexdigest()>, C<b64digest()>, or C<b64udigest()> call will fail until you call C<reset()>. my $result_raw = $d->digest(); =head2 hexdigest Returns the digest encoded as a lowercase hexadecimal string. Like C<digest()>, the first call finalizes the digest object. my $result_hex = $d->hexdigest(); =head2 b64digest Returns the digest encoded as a Base64 string with trailing C<=> padding. Like C<digest()>, the first call finalizes the digest object. my $result_b64 = $d->b64digest(); =head2 b64udigest Returns the digest encoded as a Base64 URL-safe string (no trailing C<=>). Like C<digest()>, the first call finalizes the digest object. my $result_b64url = $d->b64udigest(); =head1 SEE ALSO =over =item * L<CryptX>, L<Crypt::Digest> =item * L<https://blake2.net/> =item * L<https://www.rfc-editor.org/rfc/rfc7693> =back =cut