File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/Razor2/Preproc/deBase64.pm
Back
package Razor2::Preproc::deBase64; sub new { return bless {}, shift; } sub isit { my ( $self, $text ) = @_; return $$text =~ /^Content-Transfer-Encoding: base64/sim; } sub doit { my ( $self, $text ) = @_; my ( $hdr, $body ) = split /\n\r*\n/, $$text, 2; $body = $self->extract_base64($text); $body =~ tr|A-Za-z0-9+=/||cd; # remove non-base64 chars $body =~ s/=+$//; # remove padding $body =~ tr|A-Za-z0-9+/| -_|; # convert to uuencoded format my $decoded = ''; while ( $body =~ /(.{1,60})/gs ) { my $len = chr( 32 + length($1) * 3 / 4 ); # compute length byte $decoded .= unpack( "u", $len . $1 ); # uudecode } $$text = "$hdr\n\n$decoded"; } sub extract_base64 { my ( $self, $text ) = @_; if ( $$text =~ /Content-Transfer-Encoding: base64(.*)$/si ) { my $rhs = $1; $rhs =~ /\r?\n\r?\n([^=]*)/s; # match to end of data or '=' return $1 . "=="; } return undef; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings