Linux vmi2545633.contaboserver.net 6.1.0-32-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.129-1 (2025-03-06) x86_64
Apache/2.4.62 (Debian)
Server IP : 127.0.0.1 & Your IP : 127.0.0.1
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
Archive /
Cpio /
Delete
Unzip
Name
Size
Permission
Date
Action
Common.pm
706
B
-rw-r--r--
2015-11-01 15:23
File.pm
229
B
-rw-r--r--
2012-05-14 08:34
FileHandle_with_pushback.pm
774
B
-rw-r--r--
2015-11-01 15:23
NewAscii.pm
2.29
KB
-rw-r--r--
2015-11-01 15:23
ODC.pm
1.92
KB
-rw-r--r--
2015-11-01 15:23
OldBinary.pm
2.2
KB
-rw-r--r--
2015-11-01 15:23
Save
Rename
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;