Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.186
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
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 /
libexec /
webmin /
grub /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
449
B
-rw-r--r--
backup_config.pl
601
B
-rwxr-xr-x
cgi_args.pl
229
B
-rwxr-xr-x
config
69
B
-rw-r--r--
config-coherent-linux
99
B
-rw-r--r--
config-debian-linux
59
B
-rw-r--r--
config-gentoo-linux
65
B
-rw-r--r--
config-mandrake-linux
65
B
-rw-r--r--
config-openmamba-linux
103
B
-rw-r--r--
config-pardus-linux
65
B
-rw-r--r--
config-redhat-linux-7.2-7.4
66
B
-rw-r--r--
config-redhat-linux-8.0-ALL
99
B
-rw-r--r--
config-solaris
74
B
-rw-r--r--
config-syno-linux
69
B
-rw-r--r--
config-trustix-linux
99
B
-rw-r--r--
config.info
235
B
-rw-r--r--
config.info.bg
417
B
-rw-r--r--
config.info.ca
276
B
-rw-r--r--
config.info.cs
255
B
-rw-r--r--
config.info.de
284
B
-rw-r--r--
config.info.es
278
B
-rw-r--r--
config.info.fr
258
B
-rw-r--r--
config.info.it
284
B
-rw-r--r--
config.info.ja
290
B
-rw-r--r--
config.info.ms
244
B
-rw-r--r--
config.info.nl
250
B
-rw-r--r--
config.info.no
247
B
-rw-r--r--
config.info.pl
136
B
-rw-r--r--
config.info.ru
279
B
-rw-r--r--
config.info.uk
296
B
-rw-r--r--
config.info.zh_TW
188
B
-rw-r--r--
down.cgi
364
B
-rwxr-xr-x
edit_global.cgi
1.87
KB
-rwxr-xr-x
edit_title.cgi
2.92
KB
-rwxr-xr-x
grub-lib.pl
5.12
KB
-rwxr-xr-x
index.cgi
2.2
KB
-rwxr-xr-x
install.cgi
1.65
KB
-rwxr-xr-x
install_check.pl
368
B
-rwxr-xr-x
log_parser.pl
453
B
-rwxr-xr-x
module.info
246
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
171
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
218
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
255
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
282
B
-rw-r--r--
module.info.ca
173
B
-rw-r--r--
module.info.ca.auto
13
B
-rw-r--r--
module.info.cs
32
B
-rw-r--r--
module.info.cs.auto
161
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
168
B
-rw-r--r--
module.info.de
176
B
-rw-r--r--
module.info.de.auto
14
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
307
B
-rw-r--r--
module.info.es
34
B
-rw-r--r--
module.info.es.auto
169
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
156
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
259
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
189
B
-rw-r--r--
module.info.fr
42
B
-rw-r--r--
module.info.fr.auto
161
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
237
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
188
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
217
B
-rw-r--r--
module.info.it
25
B
-rw-r--r--
module.info.it.auto
137
B
-rw-r--r--
module.info.ja
33
B
-rw-r--r--
module.info.ja.auto
195
B
-rw-r--r--
module.info.ko
29
B
-rw-r--r--
module.info.ko.auto
150
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
201
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
194
B
-rw-r--r--
module.info.ms
155
B
-rw-r--r--
module.info.ms.auto
13
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
168
B
-rw-r--r--
module.info.nl
24
B
-rw-r--r--
module.info.nl.auto
162
B
-rw-r--r--
module.info.no
29
B
-rw-r--r--
module.info.no.auto
145
B
-rw-r--r--
module.info.pl
31
B
-rw-r--r--
module.info.pl.auto
157
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
224
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
233
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
196
B
-rw-r--r--
module.info.ru
40
B
-rw-r--r--
module.info.ru.auto
219
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
172
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
167
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
157
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
298
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
212
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
265
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
240
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
224
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
150
B
-rw-r--r--
module.info.zh_TW
29
B
-rw-r--r--
module.info.zh_TW.auto
131
B
-rw-r--r--
save_global.cgi
1.78
KB
-rwxr-xr-x
save_title.cgi
2.17
KB
-rwxr-xr-x
up.cgi
360
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : grub-lib.pl
# grub-lib.pl # Functions for parsing and editing a grub menu file BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); %title_order = ( 'lock', 10, 'root', 5, 'kernel', 4, 'chainloader', -1, 'initrd', 2, 'boot', 1 ); # get_menu_config() # Parses the config file into a list of title structures sub get_menu_config { local $lnum = 0; local (@rv, $title); open(CONF, "<".$config{'menu_file'}); while(<CONF>) { s/#.*$//; s/\r|\n//g; if (/^\s*(\S+)\s*=\s*(.*)/ || /^\s*(\S+)\s*(.*)/) { if ($title && $1 ne 'title') { # directive in an existing section if (defined($title->{$1})) { # Multiple values! $title->{$1} .= "\0".$2; } else { $title->{$1} = $2; } $title->{'eline'} = $lnum; } else { # top-level title or option local $d = { 'name' => $1, 'value' => $2, 'line' => $lnum, 'eline' => $lnum, 'index' => scalar(@rv) }; push(@rv, $d); $title = $d if ($1 eq 'title'); } } $lnum++; } close(CONF); return \@rv; } # save_directive(&config, &old|name, &new) sub save_directive { local $old; if (!$_[1] || ref($_[1])) { $old = $_[1]; } else { $old = &find($_[1], $_[0]); } local @lines; if (defined($_[2])) { @lines = ( "$_[2]->{'name'} $_[2]->{'value'}" ); foreach $k (sort { $title_order{$b} <=> $title_order{$a} } keys %{$_[2]}) { if ($k !~ /^(name|value|line|eline|index)$/) { if ($_[2]->{$k} eq '') { push(@lines, $k); } else { foreach my $v (split(/\0/, $_[2]->{$k})) { push(@lines, $k." ".$v); } } } } } local $lref = &read_file_lines($config{'menu_file'}); if ($old) { # Replace one entry in the file splice(@$lref, $old->{'line'}, $old->{'eline'} - $old->{'line'} + 1, @lines); } elsif ($_[2]->{'name'} eq 'title') { # Append to file push(@$lref, "", @lines); } else { # Insert before titles local $t = &find("title", $_[0]); if ($t) { splice(@$lref, $t->{'line'}, 0, @lines); } else { push(@$lref, "", @lines); } } } # swap_directives(&dir1, &dir2) # Swaps two blocks in the config file sub swap_directives { my ($dir1, $dir2) = @_; local $lref = &read_file_lines($config{'menu_file'}); if ($dir1->{'line'} > $dir2->{'line'}) { ($dir1, $dir2) = ($dir2, $dir1); } my @lines1 = @$lref[$dir1->{'line'} .. $dir1->{'eline'}]; my @lines2 = @$lref[$dir2->{'line'} .. $dir2->{'eline'}]; my $len1 = $dir1->{'eline'} - $dir1->{'line'} + 1; my $len2 = $dir2->{'eline'} - $dir2->{'line'} + 1; splice(@$lref, $dir2->{'line'}, $len2, @lines1); splice(@$lref, $dir1->{'line'}, $len1, @lines2); } # find(name, &config) sub find { local @rv; foreach $c (@{$_[1]}) { push(@rv, $c) if ($c->{'name'} eq $_[0]); } return wantarray ? @rv : $rv[0]; } # find_value(name, &config) sub find_value { local @rv = &find($_[0], $_[1]); return !@rv ? undef : wantarray ? map { $_->{'value'} } @rv : $rv[0]->{'value'}; } # linux_to_bios(device) # Converts a Linux device file like /dev/hda into a GRUB bios disk like (hd0) sub linux_to_bios { if ($_[0] =~ /^(\/dev\/[hs]d[a-z])(\d+)$/ || $_[0] =~ /^(\/dev\S+\/)part(\d+)$/ || $_[0] =~ /^(\/dev\S+c\d+d\d+)p(\d+)$/) { # A partition on a disk .. get the disk's device, and then add the part local ($dev, $part) = ($1, $2-1); $dev .= "disc" if ($dev =~ /\/$/); local $dsk = &linux_to_bios($dev); $dsk =~ /^\(([a-z]+\d+)\)$/ || return undef; return "($1,$part)"; } local @map = &get_device_map(); local @st = stat($_[0]); if (@map) { foreach $m (@map) { local @mst = stat($m->[1]); if ($m->[1] eq $_[0] || @mst && @st && $mst[0] == $st[0] && $mst[1] == $st[1]) { return $m->[0]; } } } # Have to guess based on the device name :( return $_[0] =~ /\/dev\/hd([a-d])$/ ? "(hd".(ord($1)-97).")" : $_[0] =~ /\/dev\/fd([0-4])$/ ? "(fd$1)" : undef; } # bios_to_linux(device) # Converts a GRUB bios disk like (hd0) to a Linux device file like /dev/hda sub bios_to_linux { if ($_[0] =~ /^\(([a-z]+\d+),(\d+)\)$/) { # A partition on a BIOS disk .. get the disk device, and add the part local ($dev, $part) = ($1, $2+1); local $dsk = &bios_to_linux("($dev)"); if ($dsk =~ /^(\/dev\/[hs]d[a-z])$/) { return $dsk.$part; } elsif ($dsk =~ /^(\/dev\S+\/)disc$/) { return $1."part".$part; } elsif ($dsk =~ /^(\/dev\S+c\d+d\d+)$/) { return $dsk.$part; } else { return undef; } } local @map = &get_device_map(); if (@map) { foreach $m (@map) { if ($m->[0] eq $_[0]) { return $m->[1]; } } } # Have to guess from BIOS name :( return $_[0] =~ /^\(hd(\d+)\)$/ ? "/dev/hd".chr($1+97) : $_[0] =~ /^\(fd([0-4])\)$/ ? "/dev/fd$1" : undef; } # get_device_map() # Returns the device.map file contents, or an empty list if there is none sub get_device_map { local ($dm, $temp, @rv); if (!$config{'device_map'} || !-r $config{'device_map'}) { # Run GRUB to build the map now $dm = $temp = &transname(); open(GRUB, "|$config{'grub_path'} --batch --device-map=$temp >/dev/null 2>&1"); print GRUB "quit\n"; close(GRUB); } else { # Just use the existing file $dm = $config{'device_map'}; } open(MAP, "<".$dm); while(<MAP>) { s/\r|\n//g; s/#.*$//; if (/^(\S+)\s+(\S+)/) { push(@rv, [ $1, $2 ]); } } close(MAP); unlink($temp) if ($temp); return @rv; }
Close
