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.13
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 /
PDF /
API2 /
Basic /
PDF /
Filter /
[ HOME SHELL ]
Name
Size
Permission
Action
ASCII85Decode.pm
2.34
KB
-rw-r--r--
ASCIIHexDecode.pm
1.54
KB
-rw-r--r--
FlateDecode.pm
4.15
KB
-rw-r--r--
LZWDecode.pm
3.05
KB
-rw-r--r--
RunLengthDecode.pm
3.24
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ASCII85Decode.pm
package PDF::API2::Basic::PDF::Filter::ASCII85Decode; use base 'PDF::API2::Basic::PDF::Filter'; use strict; use warnings; our $VERSION = '2.043'; # VERSION sub outfilt { my ($self, $str, $isend) = @_; my ($res, $i, $j, $b, @c); if (exists $self->{'outcache'} and $self->{'outcache'} ne "") { $str = $self->{'outcache'} . $str; $self->{'outcache'} = ""; } for ($i = 0; $i + 4 <= length($str); $i += 4) { $b = unpack("N", substr($str, $i, 4)); if ($b == 0) { $res .= "z"; next; } for ($j = 0; $j < 4; $j++) { $c[$j] = $b - int($b / 85) * 85 + 33; $b /= 85; } $res .= pack("C5", $b + 33, reverse @c); $res .= "\n" if ($i % 60 == 56); } if ($isend && $i < length($str)) { $str = substr($str, $i); $b = unpack("N", $str . ("\000" x (4 - length($str)))); for ($j = 0; $j < 4; $j++) { $c[$j] = $b - int($b / 85) * 85 + 33; $b /= 85; } push @c, $b + 33; $res .= substr(pack("C5", reverse @c), 0, length($str) + 1) . '~>'; } elsif ($isend) { $res .= '~>'; } elsif ($i + 4 > length($str)) { $self->{'outcache'} = substr($str, $i); } return $res; } sub infilt { my ($self, $str, $isend) = @_; my ($res, $i, $j, @c, $b, $num); $num = 0; if (exists($self->{'incache'}) && $self->{'incache'} ne "") { $str = $self->{'incache'} . $str; $self->{'incache'} = ""; } $str =~ s/(\r|\n)\n?//og; for ($i = 0; $i < length($str); $i += 5) { last if $isend and substr($str, $i, 6) eq '~>'; $b = 0; if (substr($str, $i, 1) eq "z") { $i -= 4; $res .= pack("N", 0); next; } elsif ($isend && substr($str, $i, 6) =~ m/^(.{2,4})\~\>$/o) { $num = 5 - length($1); @c = unpack("C5", $1 . ("u" x (4 - $num))); # pad with 84 to sort out rounding $i = length($str); } else { @c = unpack("C5", substr($str, $i, 5)); } for ($j = 0; $j < 5; $j++) { $b *= 85; $b += $c[$j] - 33; } $res .= substr(pack("N", $b), 0, 4 - $num); } if (!$isend && $i > length($str)) { $self->{'incache'} = substr($str, $i - 5); } return $res; } 1;
Close