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.222
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 /
[ HOME SHELL ]
Name
Size
Permission
Action
acl
[ DIR ]
drwxr-xr-x
adsl-client
[ DIR ]
drwxr-xr-x
apache
[ DIR ]
drwxr-xr-x
at
[ DIR ]
drwxr-xr-x
authentic-theme
[ DIR ]
drwxr-xr-x
backup-config
[ DIR ]
drwxr-xr-x
bacula-backup
[ DIR ]
drwxr-xr-x
bandwidth
[ DIR ]
drwxr-xr-x
bin
[ DIR ]
drwxr-xr-x
bind8
[ DIR ]
drwxr-xr-x
blue-theme
[ DIR ]
drwxr-xr-x
change-user
[ DIR ]
drwxr-xr-x
cluster-copy
[ DIR ]
drwxr-xr-x
cluster-cron
[ DIR ]
drwxr-xr-x
cluster-passwd
[ DIR ]
drwxr-xr-x
cluster-shell
[ DIR ]
drwxr-xr-x
cluster-software
[ DIR ]
drwxr-xr-x
cluster-useradmin
[ DIR ]
drwxr-xr-x
cluster-usermin
[ DIR ]
drwxr-xr-x
cluster-webmin
[ DIR ]
drwxr-xr-x
cpan
[ DIR ]
drwxr-xr-x
cron
[ DIR ]
drwxr-xr-x
custom
[ DIR ]
drwxr-xr-x
dfsadmin
[ DIR ]
drwxr-xr-x
dhcpd
[ DIR ]
drwxr-xr-x
dovecot
[ DIR ]
drwxr-xr-x
exim
[ DIR ]
drwxr-xr-x
exports
[ DIR ]
drwxr-xr-x
fail2ban
[ DIR ]
drwxr-xr-x
fdisk
[ DIR ]
drwxr-xr-x
fetchmail
[ DIR ]
drwxr-xr-x
filemin
[ DIR ]
drwxr-xr-x
filter
[ DIR ]
drwxr-xr-x
firewall
[ DIR ]
drwxr-xr-x
firewall6
[ DIR ]
drwxr-xr-x
firewalld
[ DIR ]
drwxr-xr-x
fsdump
[ DIR ]
drwxr-xr-x
gray-theme
[ DIR ]
drwxr-xr-x
grub
[ DIR ]
drwxr-xr-x
heartbeat
[ DIR ]
drwxr-xr-x
htaccess-htpasswd
[ DIR ]
drwxr-xr-x
idmapd
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
inetd
[ DIR ]
drwxr-xr-x
init
[ DIR ]
drwxr-xr-x
inittab
[ DIR ]
drwxr-xr-x
ipfilter
[ DIR ]
drwxr-xr-x
ipfw
[ DIR ]
drwxr-xr-x
ipsec
[ DIR ]
drwxr-xr-x
iscsi-client
[ DIR ]
drwxr-xr-x
iscsi-server
[ DIR ]
drwxr-xr-x
iscsi-target
[ DIR ]
drwxr-xr-x
iscsi-tgtd
[ DIR ]
drwxr-xr-x
jabber
[ DIR ]
drwxr-xr-x
jailkit
[ DIR ]
drwxr-xr-x
krb5
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
ldap-client
[ DIR ]
drwxr-xr-x
ldap-server
[ DIR ]
drwxr-xr-x
ldap-useradmin
[ DIR ]
drwxr-xr-x
logrotate
[ DIR ]
drwxr-xr-x
logviewer
[ DIR ]
drwxr-xr-x
lpadmin
[ DIR ]
drwxr-xr-x
lvm
[ DIR ]
drwxr-xr-x
mailboxes
[ DIR ]
drwxr-xr-x
mailcap
[ DIR ]
drwxr-xr-x
man
[ DIR ]
drwxr-xr-x
mon
[ DIR ]
drwxr-xr-x
mount
[ DIR ]
drwxr-xr-x
mysql
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nis
[ DIR ]
drwxr-xr-x
openslp
[ DIR ]
drwxr-xr-x
package-updates
[ DIR ]
drwxr-xr-x
pam
[ DIR ]
drwxr-xr-x
pap
[ DIR ]
drwxr-xr-x
passwd
[ DIR ]
drwxr-xr-x
php-pear
[ DIR ]
drwxr-xr-x
phpini
[ DIR ]
drwxr-xr-x
postfix
[ DIR ]
drwxr-xr-x
postgresql
[ DIR ]
drwxr-xr-x
ppp-client
[ DIR ]
drwxr-xr-x
pptp-client
[ DIR ]
drwxr-xr-x
pptp-server
[ DIR ]
drwxr-xr-x
proc
[ DIR ]
drwxr-xr-x
procmail
[ DIR ]
drwxr-xr-x
proftpd
[ DIR ]
drwxr-xr-x
qmailadmin
[ DIR ]
drwxr-xr-x
quota
[ DIR ]
drwxr-xr-x
raid
[ DIR ]
drwxr-xr-x
ruby-gems
[ DIR ]
drwxr-xr-x
samba
[ DIR ]
drwxr-xr-x
sarg
[ DIR ]
drwxr-xr-x
sendmail
[ DIR ]
drwxr-xr-x
servers
[ DIR ]
drwxr-xr-x
shell
[ DIR ]
drwxr-xr-x
shorewall
[ DIR ]
drwxr-xr-x
shorewall6
[ DIR ]
drwxr-xr-x
smart-status
[ DIR ]
drwxr-xr-x
smf
[ DIR ]
drwxr-xr-x
software
[ DIR ]
drwxr-xr-x
spam
[ DIR ]
drwxr-xr-x
squid
[ DIR ]
drwxr-xr-x
sshd
[ DIR ]
drwxr-xr-x
status
[ DIR ]
drwxr-xr-x
stunnel
[ DIR ]
drwxr-xr-x
syslog
[ DIR ]
drwxr-xr-x
syslog-ng
[ DIR ]
drwxr-xr-x
system-status
[ DIR ]
drwxr-xr-x
tcpwrappers
[ DIR ]
drwxr-xr-x
time
[ DIR ]
drwxr-xr-x
tunnel
[ DIR ]
drwxr-xr-x
unauthenticated
[ DIR ]
drwxr-xr-x
updown
[ DIR ]
drwxr-xr-x
useradmin
[ DIR ]
drwxr-xr-x
usermin
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
vgetty
[ DIR ]
drwxr-xr-x
virtual-server
[ DIR ]
drwxr-xr-x
virtualmin-awstats
[ DIR ]
drwxr-xr-x
virtualmin-git
[ DIR ]
drwxr-xr-x
virtualmin-htpasswd
[ DIR ]
drwxr-xr-x
virtualmin-init
[ DIR ]
drwxr-xr-x
virtualmin-registrar
[ DIR ]
drwxr-xr-x
virtualmin-slavedns
[ DIR ]
drwxr-xr-x
virtualmin-sqlite
[ DIR ]
drwxr-xr-x
webalizer
[ DIR ]
drwxr-xr-x
webmin
[ DIR ]
drwxr-xr-x
webmincron
[ DIR ]
drwxr-xr-x
webminlog
[ DIR ]
drwxr-xr-x
wuftpd
[ DIR ]
drwxr-xr-x
xinetd
[ DIR ]
drwxr-xr-x
xterm
[ DIR ]
drwxr-xr-x
LICENCE
1.48
KB
-rw-r--r--
LICENCE.ja
1.62
KB
-rw-r--r--
README.md
4.01
KB
-rw-r--r--
WebminCore.pm
7.78
KB
-rw-r--r--
acl_security.pl
4.51
KB
-rwxr-xr-x
changepass.pl
868
B
-rwxr-xr-x
chooser.cgi
7.21
KB
-rwxr-xr-x
config-aix
227
B
-rw-r--r--
config-cobalt-linux
264
B
-rw-r--r--
config-coherent-linux
264
B
-rw-r--r--
config-corel-linux
264
B
-rw-r--r--
config-debian-linux
264
B
-rw-r--r--
config-freebsd
256
B
-rw-r--r--
config-generic-linux
264
B
-rw-r--r--
config-gentoo-linux
264
B
-rw-r--r--
config-hpux
243
B
-rw-r--r--
config-irix
284
B
-rw-r--r--
config-lib.pl
10.82
KB
-rwxr-xr-x
config-macos
260
B
-rw-r--r--
config-mandrake-linux
278
B
-rw-r--r--
config-msc-linux
264
B
-rw-r--r--
config-netbsd
283
B
-rw-r--r--
config-open-linux
264
B
-rw-r--r--
config-openbsd
241
B
-rw-r--r--
config-openmamba-linux
264
B
-rw-r--r--
config-openserver
236
B
-rw-r--r--
config-osf1
266
B
-rw-r--r--
config-pardus-linux
264
B
-rw-r--r--
config-redhat-linux
264
B
-rw-r--r--
config-slackware-linux
280
B
-rw-r--r--
config-sol-linux
264
B
-rw-r--r--
config-solaris
417
B
-rw-r--r--
config-suse-linux
264
B
-rw-r--r--
config-syno-linux
364
B
-rw-r--r--
config-trustix-linux
264
B
-rw-r--r--
config-turbo-linux
264
B
-rw-r--r--
config-united-linux
264
B
-rw-r--r--
config-unixware
286
B
-rw-r--r--
config-windows
88
B
-rw-r--r--
config.cgi
1.55
KB
-rwxr-xr-x
config_save.cgi
1.64
KB
-rwxr-xr-x
copyconfig.pl
4.33
KB
-rwxr-xr-x
create-module.pl
3.82
KB
-rwxr-xr-x
date_chooser.cgi
2.19
KB
-rwxr-xr-x
defaultacl
98
B
-rw-r--r--
defaulttheme
16
B
-rw-r--r--
entities_map.txt
1.47
KB
-rw-r--r--
fastrpc.cgi
10.59
KB
-rwxr-xr-x
favicon.ico
14.73
KB
-rw-r--r--
feedback.cgi
6.37
KB
-rwxr-xr-x
feedback_form.cgi
3.45
KB
-rwxr-xr-x
group_chooser.cgi
7.36
KB
-rwxr-xr-x
help.cgi
2.94
KB
-rwxr-xr-x
index.cgi
5.61
KB
-rwxr-xr-x
install-module.pl
1.54
KB
-rwxr-xr-x
install-type
4
B
-rw-r--r--
javascript-lib.pl
14.69
KB
-rwxr-xr-x
lang_list.txt
3.41
KB
-rw-r--r--
maketemp.pl
424
B
-rwxr-xr-x
mime.types
12.42
KB
-rw-r--r--
miniserv.pem
2.9
KB
-rw-r--r--
miniserv.pl
178.95
KB
-rwxr-xr-x
module_chooser.cgi
4.14
KB
-rwxr-xr-x
newmods.pl
1.25
KB
-rwxr-xr-x
os_list.txt
34.02
KB
-rw-r--r--
oschooser.pl
4.55
KB
-rwxr-xr-x
pam_login.cgi
2.83
KB
-rwxr-xr-x
password_change.cgi
7
KB
-rwxr-xr-x
password_form.cgi
1.3
KB
-rwxr-xr-x
perlpath.pl
571
B
-rwxr-xr-x
record-failed.pl
503
B
-rwxr-xr-x
record-login.pl
513
B
-rwxr-xr-x
record-logout.pl
516
B
-rwxr-xr-x
robots.txt
26
B
-rw-r--r--
rpc.cgi
4
KB
-rwxr-xr-x
run-postinstalls.pl
1
KB
-rwxr-xr-x
run-uninstalls.pl
1004
B
-rwxr-xr-x
safeacl
44
B
-rw-r--r--
session_login.cgi
3.55
KB
-rwxr-xr-x
setup-repos.sh
4.48
KB
-rwxr-xr-x
setup.bat
3.09
KB
-rw-r--r--
setup.pl
30.26
KB
-rwxr-xr-x
setup.sh
32
KB
-rwxr-xr-x
switch_skill.cgi
293
B
-rwxr-xr-x
switch_user.cgi
404
B
-rwxr-xr-x
thirdparty.pl
1.73
KB
-rwxr-xr-x
ui-lib.pl
82.48
KB
-rwxr-xr-x
update-from-repo.sh
14.8
KB
-rwxr-xr-x
uptracker.cgi
2.88
KB
-rwxr-xr-x
user_chooser.cgi
7.29
KB
-rwxr-xr-x
version
6
B
-rw-r--r--
web-lib-funcs.pl
330.73
KB
-rwxr-xr-x
web-lib.pl
907
B
-rwxr-xr-x
webmin-daemon
80
B
-rw-r--r--
webmin-debian-pam
104
B
-rw-r--r--
webmin-init
1.93
KB
-rwxr-xr-x
webmin-pam
101
B
-rw-r--r--
webmin-search-lib.pl
9.42
KB
-rwxr-xr-x
webmin-systemd
351
B
-rw-r--r--
webmin_search.cgi
2.63
KB
-rwxr-xr-x
xmlrpc.cgi
7.53
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : xmlrpc.cgi
#!/usr/bin/perl # Handles xml-rpc requests from arbitrary clients. Each is a call to a # function in a Webmin module. if (!$ENV{'GATEWAY_INTERFACE'}) { # Command-line mode $no_acl_check++; $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin"; $ENV{'WEBMIN_VAR'} ||= "/var/webmin"; if ($0 =~ /^(.*\/)[^\/]+$/) { chdir($1); } chop($pwd = `pwd`); $0 = "$pwd/xmlrpc.pl"; $command_line = 1; $> == 0 || die "xmlrpc.cgi must be run as root"; } BEGIN { push(@INC, "."); }; use WebminCore; use POSIX; use Socket; $force_lang = $default_lang; $trust_unknown_referers = 2; # Only trust if referer was not set &init_config(); $main::error_must_die = 1; # Can this user make remote calls? if (!$command_line) { %access = &get_module_acl(); if ($access{'rpc'} == 0 || $access{'rpc'} == 2 && $base_remote_user ne 'admin' && $base_remote_user ne 'root' && $base_remote_user ne 'sysadm') { &error_exit(1, "Invalid user for RPC"); } } # Load the XML parser module eval "use XML::Parser"; if ($@) { &error_exit(2, "XML::Parser Perl module is not installed"); } # Read in the XML my $rawxml; if ($command_line) { # From STDIN while(<STDIN>) { $rawxml .= $_; } } else { # From web client my $clen = $ENV{'CONTENT_LENGTH'}; while(length($rawxml) < $clen) { my $buf; my $got = read(STDIN, $buf, $clen - length($rawxml)); if ($got <= 0) { &error_exit(3, "Failed to read $clen bytes"); } $rawxml .= $buf; } } # Parse the XML my $parser = new XML::Parser('Style' => 'Tree'); my $xml; eval { $xml = $parser->parse($rawxml); }; if ($@) { &error_exit(4, "Invalid XML : $@"); } # Look for the method calls, and invoke each one my $xmlrv = "<?xml version=\"1.0\" encoding=\"$default_charset\"?>\n"; foreach my $mc (&find_xmls("methodCall", $xml)) { # Find the method name and module my ($mn) = &find_xmls("methodName", $mc); $h = $mn->[1]->[0]; my ($mod, $func) = $mn->[1]->[2] =~ /::/ ? split(/::/, $mn->[1]->[2]) : $mn->[1]->[2] =~ /\./ ? split(/\./, $mn->[1]->[2]) : (undef, $mn->[1]->[2]); # Find the parameters my ($params) = &find_xmls("params", $mc); my @params = &find_xmls("param", $params); my @args; foreach my $p (@params) { my ($value) = &find_xmls("value", $p, 1); my $perlv = &parse_xml_value($value); push(@args, $perlv); } # Require the module, if needed if ($mod) { if (!$done_require_module{$mod}) { if (!&foreign_check($mod)) { &error_exit(5, "Webmin module $mod does not exist"); } eval { &foreign_require($mod, $lib); }; if ($@) { $xmlrv .= &make_error_xml(6, "Failed to load module $mod : $@"); last; } } } # Call the function my @rv; if ($func eq "eval") { # Execute some Perl code @rv = eval "$args[0]"; if ($@) { $xmlrv .= &make_error_xml(8, "Eval failed : $@"); } } else { # A real function call eval { @rv = &foreign_call($mod, $func, @args); }; if ($@) { $xmlrv .= &make_error_xml(7, "Function call $func failed : $@"); last; } } # Encode the results $xmlrv .= "<methodResponse>\n"; $xmlrv .= "<params>\n"; $xmlrv .= "<param><value>\n"; if (@rv == 1) { $xmlrv .= &encode_xml_value($rv[0]); } else { $xmlrv .= &encode_xml_value(\@rv); } $xmlrv .= "</value></param>\n"; $xmlrv .= "</params>\n"; $xmlrv .= "</methodResponse>\n"; } # Flush all modified files, as some APIs require a call to this function &flush_file_lines(); # Return results to caller if (!$command_line) { print "Content-type: text/xml\n"; print "Content-length: ",length($xmlrv),"\n"; print "\n"; } print $xmlrv; # parse_xml_value(&value) # Given a <value> object, returns a Perl scalar, hash ref or array ref for # the contents sub parse_xml_value { my ($value) = @_; my ($scalar) = &find_xmls([ "int", "i4", "boolean", "string", "double" ], $value, 1); my ($date) = &find_xmls([ "dateTime.iso8601" ], $value, 1); my ($base64) = &find_xmls("base64", $value, 1); my ($struct) = &find_xmls("struct", $value, 1); my ($array) = &find_xmls("array", $value, 1); if ($scalar) { return $scalar->[1]->[2]; } elsif ($date) { # Need to decode date # XXX format? } elsif ($base64) { # Convert to binary return &decode_base64($base64->[1]->[2]); } elsif ($struct) { # Parse member names and values my %rv; foreach my $member (&find_xmls("member", $struct, 1)) { my ($name) = &find_xmls("name", $member, 1); my ($value) = &find_xmls("value", $member, 1); my $perlv = &parse_xml_value($value); $rv{$name->[1]->[2]} = $perlv; } return \%rv; } elsif ($array) { # Parse data values my @rv; my ($data) = &find_xmls("data", $array, 1); foreach my $value (&find_xmls("value", $data, 1)) { my $perlv = &parse_xml_value($value); push(@rv, $perlv); } return \@rv; } else { # Fallback - just a string directly in the value return $value->[1]->[2]; } } # encode_xml_value(string|int|&hash|&array) # Given a Perl object, returns XML lines representing it for return to a caller sub encode_xml_value { local ($perlv) = @_; if (ref($perlv) eq "ARRAY") { # Convert to array XML format my $xmlrv = "<array>\n<data>\n"; foreach my $v (@$perlv) { $xmlrv .= "<value>\n"; $xmlrv .= &encode_xml_value($v); $xmlrv .= "</value>\n"; } $xmlrv .= "</data>\n</array>\n"; return $xmlrv; } elsif (ref($perlv) eq "HASH") { # Convert to struct XML format my $xmlrv = "<struct>\n"; foreach my $k (keys %$perlv) { $xmlrv .= "<member>\n"; $xmlrv .= "<name>".&html_escape($k)."</name>\n"; $xmlrv .= "<value>\n"; $xmlrv .= &encode_xml_value($perlv->{$k}); $xmlrv .= "</value>\n"; $xmlrv .= "</member>\n"; } $xmlrv .= "</struct>\n"; return $xmlrv; } elsif ($perlv =~ /^\-?\d+$/) { # Return an integer return "<int>$perlv</int>\n"; } elsif ($perlv =~ /^\-?\d*\.\d+$/) { # Return a double return "<double>$perlv</double>\n"; } elsif ($perlv =~ /^[\40-\377]*$/) { # Return a scalar return "<string>".&html_escape($perlv)."</string>\n"; } else { # Contains non-printable characters, so return as base64 return "<base64>".&encode_base64($perlv)."</base64>\n"; } } # find_xmls(name|&names, &config, [depth]) # Returns the XMLs object with some name, by recursively searching the XML sub find_xmls { local ($name, $conf, $depth) = @_; local @m = ref($name) ? @$name : ( $name ); if (&indexoflc($conf->[0], @m) >= 0) { # Found it! return ( $conf ); } else { # Need to recursively scan all sub-elements, except for the first # which is just the tags of this element if (defined($depth) && !$depth) { # Gone too far .. stop return ( ); } local $i; local $list = $conf->[1]; local @rv; for($i=1; $i<@$list; $i+=2) { local @srv = &find_xmls($name, [ $list->[$i], $list->[$i+1] ], defined($depth) ? $depth-1 : undef); push(@rv, @srv); } return @rv; } return ( ); } # error_exit(code, message) # Output an XML error message sub error_exit { my ($code, $msg) = @_; $msg =~ s/\r|\n$//; $msg =~ s/\r|\n/ /g; # Construct error XML my $xmlerr = "<?xml version=\"1.0\"?>\n"; $xmlerr .= &make_error_xml($code, $msg); # Send the error XML if (!$command_line) { print "Content-type: text/xml\n"; print "Content-length: ",length($xmlerr),"\n"; print "\n"; } print $xmlerr; exit($command_line ? $code : 0); } sub make_error_xml { my ($code, $msg) = @_; $xmlerr .= "<methodResponse>\n"; $xmlerr .= "<fault>\n"; $xmlerr .= "<value>\n"; $xmlerr .= &encode_xml_value( { 'faultCode' => $code, 'faultString' => $msg }); $xmlerr .= "</value>\n"; $xmlerr .= "</fault>\n"; $xmlerr .= "</methodResponse>\n"; return $xmlerr; }
Close