Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
lib64
perl5
vendor_perl
Crypt
Checksum
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: Adler32.pm
package Crypt::Checksum::Adler32; use strict; use warnings; our $VERSION = '0.089'; use base qw(Crypt::Checksum Exporter); our %EXPORT_TAGS = ( all => [qw( adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int )] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw(); use Carp; $Carp::Internal{(__PACKAGE__)}++; use CryptX; sub adler32_file { local $SIG{__DIE__} = \&CryptX::_croak; Crypt::Checksum::Adler32->new->addfile(@_)->digest } sub adler32_file_hex { local $SIG{__DIE__} = \&CryptX::_croak; Crypt::Checksum::Adler32->new->addfile(@_)->hexdigest } sub adler32_file_int { local $SIG{__DIE__} = \&CryptX::_croak; Crypt::Checksum::Adler32->new->addfile(@_)->intdigest } 1; =pod =head1 NAME Crypt::Checksum::Adler32 - Compute Adler32 checksum =head1 SYNOPSIS ### Functional interface: use Crypt::Checksum::Adler32 ':all'; # calculate Adler32 checksum from string/buffer my $data = 'data string'; my $checksum_raw = adler32_data($data); my $checksum_hex = adler32_data_hex($data); my $checksum_int = adler32_data_int($data); # or from file my $checksum_file_raw = adler32_file('filename.dat'); my $checksum_file_hex = adler32_file_hex('filename.dat'); my $checksum_file_int = adler32_file_int('filename.dat'); # or from filehandle my $filehandle = ...; # existing binary-mode filehandle my $checksum_fh_raw = adler32_file($filehandle); my $checksum_fh_hex = adler32_file_hex($filehandle); my $checksum_fh_int = adler32_file_int($filehandle); ### OO interface: use Crypt::Checksum::Adler32; my $d = Crypt::Checksum::Adler32->new; $d->add('any data'); $d->add('another data'); my $checksum_raw = $d->digest; # raw 4 bytes my $checksum_hex = $d->hexdigest; # hexadecimal form my $checksum_int = $d->intdigest; # 32-bit unsigned integer # or checksum a file instead my $checksum_file_raw = Crypt::Checksum::Adler32->new->addfile('filename.dat')->digest; =head1 DESCRIPTION Computes Adler-32 checksums. I<Updated: v0.057> =head1 EXPORT Nothing is exported by default. You can export selected functions: use Crypt::Checksum::Adler32 qw(adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int); Or all of them at once: use Crypt::Checksum::Adler32 ':all'; =head1 FUNCTIONS =head2 adler32_data Returns the checksum as raw octets. my $checksum_raw = adler32_data('data string'); #or my $checksum_raw = adler32_data('any data', 'more data', 'even more data'); =head2 adler32_data_hex Returns checksum as a hexadecimal string. my $checksum_hex = adler32_data_hex('data string'); #or my $checksum_hex = adler32_data_hex('any data', 'more data', 'even more data'); =head2 adler32_data_int Returns checksum as unsigned 32-bit integer. my $checksum_int = adler32_data_int('data string'); #or my $checksum_int = adler32_data_int('any data', 'more data', 'even more data'); Each C<adler32_data*> function converts its data arguments 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. =head2 adler32_file Returns the checksum as raw octets. my $checksum_raw = adler32_file('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $checksum_raw = adler32_file($filehandle); =head2 adler32_file_hex Returns checksum as a hexadecimal string. my $checksum_hex = adler32_file_hex('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $checksum_hex = adler32_file_hex($filehandle); =head2 adler32_file_int Returns checksum as unsigned 32-bit integer. my $checksum_int = adler32_file_int('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle my $checksum_int = adler32_file_int($filehandle); =head1 METHODS =head2 new Constructor, returns a reference to the checksum object. my $d = Crypt::Checksum::Adler32->new; =head2 clone Creates a copy of the checksum object state and returns a reference to the copy. $d->clone(); =head2 reset Reinitialize the checksum object state and returns a reference to the checksum object. $d->reset(); =head2 add All arguments are appended to the message we calculate checksum for. The return value is the checksum object itself. 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 The content of the file (or filehandle) is appended to the message we calculate checksum for. The return value is the checksum object itself. $d->addfile('filename.dat'); #or my $filehandle = ...; # existing binary-mode filehandle $d->addfile($filehandle); B<Note:> The filehandle must be in binary mode before you pass it to C<addfile()>. =head2 digest Returns the binary checksum (raw bytes). This method does not alter the object state, so you can call it repeatedly and continue with C<add()> or C<addfile()> afterwards. my $result_raw = $d->digest(); =head2 hexdigest Returns the checksum encoded as a hexadecimal string. Like C<digest()>, this method does not alter the object state. my $result_hex = $d->hexdigest(); =head2 intdigest Returns the checksum encoded as unsigned 32-bit integer. Like C<digest()>, this method does not alter the object state. my $result_int = $d->intdigest(); =head1 SEE ALSO =over =item * L<CryptX> =item * L<https://en.wikipedia.org/wiki/Adler-32> =back =cut