Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
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 /
cluster-passwd /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
128
B
-rw-r--r--
acl_security.pl
3.62
KB
-rwxr-xr-x
change-passwd.pl
1.84
KB
-rwxr-xr-x
cluster-passwd-lib.pl
4.09
KB
-rwxr-xr-x
config
39
B
-rw-r--r--
config.info
160
B
-rw-r--r--
config.info.ca
188
B
-rw-r--r--
config.info.ca.UTF-8
190
B
-rw-r--r--
config.info.cz
187
B
-rw-r--r--
config.info.cz.UTF-8
206
B
-rw-r--r--
config.info.de
163
B
-rw-r--r--
config.info.de.UTF-8
163
B
-rw-r--r--
config.info.el
188
B
-rw-r--r--
config.info.es
220
B
-rw-r--r--
config.info.es.UTF-8
220
B
-rw-r--r--
config.info.fr
218
B
-rw-r--r--
config.info.fr.UTF-8
220
B
-rw-r--r--
config.info.hr
0
B
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.ms
185
B
-rw-r--r--
config.info.ms.UTF-8
185
B
-rw-r--r--
config.info.ms_MY
187
B
-rw-r--r--
config.info.ms_MY.UTF-8
187
B
-rw-r--r--
config.info.nl
181
B
-rw-r--r--
config.info.nl.UTF-8
181
B
-rw-r--r--
config.info.no
174
B
-rw-r--r--
config.info.no.UTF-8
174
B
-rw-r--r--
config.info.pl
203
B
-rw-r--r--
config.info.pl.UTF-8
214
B
-rw-r--r--
defaultacl
64
B
-rw-r--r--
edit_passwd.cgi
1.45
KB
-rwxr-xr-x
index.cgi
1.65
KB
-rwxr-xr-x
log_parser.pl
447
B
-rwxr-xr-x
module.info
205
B
-rw-r--r--
module.info.ca
124
B
-rw-r--r--
module.info.ca.UTF-8
139
B
-rw-r--r--
module.info.cz
30
B
-rw-r--r--
module.info.cz.UTF-8
37
B
-rw-r--r--
module.info.de
114
B
-rw-r--r--
module.info.de.UTF-8
126
B
-rw-r--r--
module.info.es
45
B
-rw-r--r--
module.info.es.UTF-8
51
B
-rw-r--r--
module.info.fr
50
B
-rw-r--r--
module.info.fr.UTF-8
56
B
-rw-r--r--
module.info.hu
37
B
-rw-r--r--
module.info.hu.UTF-8
46
B
-rw-r--r--
module.info.ms
37
B
-rw-r--r--
module.info.ms.UTF-8
43
B
-rw-r--r--
module.info.ms_MY
124
B
-rw-r--r--
module.info.ms_MY.UTF-8
136
B
-rw-r--r--
module.info.nl
38
B
-rw-r--r--
module.info.nl.UTF-8
44
B
-rw-r--r--
module.info.no
31
B
-rw-r--r--
module.info.no.UTF-8
37
B
-rw-r--r--
module.info.pl
107
B
-rw-r--r--
module.info.pl.UTF-8
124
B
-rw-r--r--
save_passwd.cgi
1.65
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : change-passwd.pl
#!/usr/bin/perl # change-passwd.pl # Changes a user's password on all cluster servers. Also changes # the password in other modules. $no_acl_check++; $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin"; $ENV{'WEBMIN_VAR'} ||= "/var/webmin"; if ($0 =~ /^(.*\/)[^\/]+$/) { chdir($1); } chop($pwd = `pwd`); $0 = "$pwd/change-passwd.pl"; do './cluster-passwd-lib.pl'; if ($ARGV[0] eq "--old" || $ARGV[0] eq "-old") { $askold = 1; shift(@ARGV); } @ARGV == 1 || &errordie("usage: change-passwd.pl [-old] <username>"); if (&foreign_installed("cluster-useradmin") != 1) { &errordie("Cluster Users and Groups module is not available"); } # Find the user @hosts = &cluster_useradmin::list_useradmin_hosts(); @ulist = &get_all_users(\@hosts); ($user) = grep { $_->{'user'} eq $ARGV[0] } @ulist; $user || &errordie("User $ARGV[0] does not exist"); $| = 1; if ($askold) { # Ask for the old password print "(current) UNIX password: "; $old = <STDIN>; $old =~ s/\r|\n//g; &unix_crypt($old, $user->{'pass'}) eq $user->{'pass'} || &errordie("Old password is incorrect"); } # Ask for password print "New password: "; $pass = <STDIN>; $pass =~ s/\r|\n//g; print "Retype new password: "; $again = <STDIN>; $again =~ s/\r|\n//g; $pass eq $again || &errordie("Passwords don't match"); # Check password sanity $err = &useradmin::check_password_restrictions($pass, $ARGV[0], $user); &errordie($err) if ($err); # Do it on all servers &modify_on_hosts(\@hosts, $user->{'user'}, $pass, 1, \&print_func); # All done exit(0); sub errordie { print STDERR @_,"\n"; exit(1); } # print_func(mode, message) sub print_func { if ($_[0] == -1) { print "$_[1]\n\n"; $indent = " "; } elsif ($_[0] == -2) { print "$indent$_[1]\n"; } elsif ($_[0] == -3) { print "$indent$_[1]\n\n"; } elsif ($_[0] == -4) { $indent = ""; print "\n"; } elsif ($_[0] > 0) { print "$indent$_[1]\n\n"; $indent = ""; } }
Close
