Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
lib64 /
perl5 /
vendor_perl /
Razor2 /
Preproc /
[ HOME SHELL ]
Name
Size
Permission
Action
Manager.pm
2.83
KB
-rw-r--r--
deBase64.pm
1.01
KB
-rw-r--r--
deHTML.pm
6.69
KB
-rw-r--r--
deHTML_comment.pm
577
B
-rw-r--r--
deHTMLxs.pm
1.06
KB
-rw-r--r--
deNewline.pm
365
B
-rw-r--r--
deQP.pm
912
B
-rw-r--r--
enBase64.pm
835
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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;
Close