File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/Razor2/Preproc/enBase64.pm
Back
package Razor2::Preproc::enBase64; sub new { return bless {}, shift; } sub isit { my ( $self, $text ) = @_; my $is_binary = ( $$text =~ /^Content-Type-Encoding: 8-bit/ ) || ( $$text =~ /([\x00-\x1f|\x7f-\xff])/ and $1 !~ /[\r\n\t]/ ); return $is_binary; } sub doit { my ( $self, $text ) = @_; pos($$text) = 0; # ensure start at the beginning my $res = join '', map( pack( 'u', $_ ) =~ /^.(\S*)/, ( $$text =~ /(.{1,45})/gs ) ); $res =~ tr|` -_|AA-Za-z0-9+/|; # `# help emacs # fix padding at the end my $padding = ( 3 - length($$text) % 3 ) % 3; $res =~ s/.{$padding}$/'=' x $padding/e if $padding; # split into lines $res =~ s/(.{1,76})/$1\n/g; $res = "Content-Transfer-Encoding: base64\n\n$res"; $$text = $res; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.05 |
proxy
|
phpinfo
|
Settings