One Hat Cyber Team

Your IP: 216.73.216.19
Server IP: 178.33.27.10
Server: Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software: Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version: 8.2.11
Buat File | Buat Folder

Dir : ~/lib64/perl5/vendor_perl/Razor2/Preproc/

View File Name : enBase64.pm

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;