Linux cpanel.rrshost.in 5.15.0-25-generic #25-Ubuntu SMP Wed Mar 30 15:54:22 UTC 2022 x86_64
Apache
: 109.123.238.221 | : 172.71.254.55
128 Domain
8.2.28
aev999
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Archive /
Cpio /
[ HOME SHELL ]
Name
Size
Permission
Action
Common.pm
706
B
-rw-r--r--
File.pm
229
B
-rw-r--r--
FileHandle_with_pushback.pm
774
B
-rw-r--r--
NewAscii.pm
2.29
KB
-rw-r--r--
ODC.pm
1.92
KB
-rw-r--r--
OldBinary.pm
2.2
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : FileHandle_with_pushback.pm
package Archive::Cpio::FileHandle_with_pushback; sub new { my ($class, $F) = @_; bless { F => $F, already_read => '' }, $class; } sub pushback { my ($FHwp, $s) = @_; $FHwp->{already_read} .= $s; } sub read { my ($FHwp, $size) = @_; $size or return; $size =~ /^\d+$/ or die "bad size $size\n"; my $tmp = ''; if ($FHwp->{already_read}) { $tmp = substr($FHwp->{already_read}, 0, $size); substr($FHwp->{already_read}, 0, $size) = ''; $size -= length($tmp); } read($FHwp->{F}, $tmp, $size, length($tmp)) == $size or die "unexpected end of file while reading (got $tmp)\n"; $tmp; } sub read_ahead { my ($FHwp, $size) = @_; my $s = $FHwp->read($size); $FHwp->pushback($s); $s; } 1;
Close
