Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Mail /
Message /
TransferEnc /
[ HOME SHELL ]
Name
Size
Permission
Action
Base64.pm
1.62
KB
-rw-r--r--
Base64.pod
5.34
KB
-rw-r--r--
Binary.pm
1.37
KB
-rw-r--r--
Binary.pod
1.75
KB
-rw-r--r--
EightBit.pm
1.53
KB
-rw-r--r--
EightBit.pod
2.22
KB
-rw-r--r--
QuotedPrint.pm
1.19
KB
-rw-r--r--
QuotedPrint.pod
5.77
KB
-rw-r--r--
SevenBit.pm
1.54
KB
-rw-r--r--
SevenBit.pod
2.27
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : EightBit.pm
# Copyrights 2001-2022 by [Mark Overmeer <markov@cpan.org>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.03. # This code is part of distribution Mail-Message. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md # Copyright Mark Overmeer. Licensed under the same terms as Perl itself. package Mail::Message::TransferEnc::EightBit; use vars '$VERSION'; $VERSION = '3.012'; use base 'Mail::Message::TransferEnc'; use strict; use warnings; sub name() { '8bit' } #------------------------------------------ sub check($@) { my ($self, $body, %args) = @_; $body; } #------------------------------------------ sub decode($@) { my ($self, $body, %args) = @_; $body->transferEncoding('none'); $body; } #------------------------------------------ sub encode($@) { my ($self, $body, %args) = @_; my @lines; my $changes = 0; foreach ($body->lines) { $changes++ if s/[\000\013]//g; # there shouldn't be any NL inside a line. $changes++ if length > 997; push @lines, substr($_, 0, 996, '')."\n" while length > 997; push @lines, $_; } unless($changes) { $body->transferEncoding('8bit'); return $body; } my $bodytype = $args{result_type} || ref $body; $bodytype->new ( based_on => $body , transfer_encoding => '8bit' , data => \@lines ); } #------------------------------------------ 1;
Close