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.136
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 /
tcpwrappers /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
266
B
-rw-r--r--
backup_config.pl
613
B
-rwxr-xr-x
cgi_args.pl
357
B
-rwxr-xr-x
config
73
B
-rw-r--r--
config.info
138
B
-rw-r--r--
config.info.ca
179
B
-rw-r--r--
config.info.de
141
B
-rw-r--r--
config.info.fr
174
B
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.ms
153
B
-rw-r--r--
config.info.nl
93
B
-rw-r--r--
config.info.no
133
B
-rw-r--r--
config.info.pl
141
B
-rw-r--r--
delete_rules.cgi
541
B
-rwxr-xr-x
edit_rule.cgi
3.35
KB
-rwxr-xr-x
index.cgi
1.44
KB
-rwxr-xr-x
module.info
144
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
106
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
139
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
167
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
179
B
-rw-r--r--
module.info.ca
104
B
-rw-r--r--
module.info.ca.auto
20
B
-rw-r--r--
module.info.cs
0
B
-rw-r--r--
module.info.cs.auto
113
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
113
B
-rw-r--r--
module.info.de
96
B
-rw-r--r--
module.info.de.auto
20
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
163
B
-rw-r--r--
module.info.es
0
B
-rw-r--r--
module.info.es.auto
125
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
115
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
173
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
110
B
-rw-r--r--
module.info.fr
0
B
-rw-r--r--
module.info.fr.auto
124
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
150
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
123
B
-rw-r--r--
module.info.hu
96
B
-rw-r--r--
module.info.hu.auto
21
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
135
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
106
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
126
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
122
B
-rw-r--r--
module.info.ms
95
B
-rw-r--r--
module.info.ms.auto
20
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
137
B
-rw-r--r--
module.info.nl
21
B
-rw-r--r--
module.info.nl.auto
101
B
-rw-r--r--
module.info.no
21
B
-rw-r--r--
module.info.no.auto
92
B
-rw-r--r--
module.info.pl
94
B
-rw-r--r--
module.info.pl.auto
20
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
123
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
132
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
124
B
-rw-r--r--
module.info.ru
0
B
-rw-r--r--
module.info.ru.auto
167
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
111
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
124
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
107
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
178
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
138
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
174
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
172
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
133
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
93
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
102
B
-rw-r--r--
save_rule.cgi
2.31
KB
-rwxr-xr-x
tcpwrappers-lib.pl
3.2
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tcpwrappers-lib.pl
# tcpwrappers-lib.pl # Library for TCP Wrappers BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); # list_rules($filename) # Parse rules from /etc/hosts.* # File format described in "man 5 hosts_access" sub list_rules { my $file = shift; my @ret; my $id = 0; open(HOSTS, "<".$file) || return (); my $line; my $last_line = ''; my $lnum = 0; while ($line = <HOSTS>) { my ($slnum, $elnum) = ($lnum, $lnum); s/\r|\n//g; while ($line =~ /^(.*)\\/) { # Continuation line! Read the next one and append it local $before = $1; local $nxt = <HOSTS>; $nxt =~ s/\r|\n//g; $line = $before.$nxt; $elnum++; $lnum++; } if ($line =~ /^\#(.*)/) { # Comment $cmt = $cmt ? $cmt."\n".$1 : $1; } elsif ($line =~ /^\s*$/) { $cmt = undef; } else { my @cmtlines = split(/\n/, $cmt); $cmt = undef; # Fix further splitting on : to work with ipv6 my $ipv6; my $ipv6_enc; # Match ipv6 with or without range if ($line =~ /(?|(\[[:\da-f]+\]\/\d+)|(\[[:\da-f]+\]))/i) { $ipv6 = $1; $ipv6_enc = &encode_base64($ipv6); $line =~ s/\Q$ipv6\E/$ipv6_enc/; } my ($service, $host, $cmd) = split /:/, $line, 3; $service =~ s/^\s*//; $service =~ s/\s*$//; $host =~ s/^\s*\Q$ipv6_enc\E/$ipv6/; $host =~ s/\s*$//; push @ret, { 'id' => $id++, 'service' => $service, 'host' => $host, 'cmd' => $cmd, 'line' => $slnum-scalar(@cmtlines), 'eline' => $elnum }; } $lnum++; } close FILE; return @ret; } # list_services() # List system services from (x)inetd or return () sub list_services { my @ret; if (&foreign_installed("xinetd")) { &foreign_require("xinetd", "xinetd-lib.pl"); my @conf = &foreign_call('xinetd', 'get_xinetd_config'); foreach $x (@conf) { next if ($x->{'quick'}{'server'}[0] !~ /\/([^\/]+)$/); push @ret, $1; } } elsif (&foreign_installed("inetd")) { &foreign_require("inetd", "inetd-lib.pl"); my @conf = &foreign_call('inetd', 'list_inets'); foreach $x (@conf) { next unless ($x->[9] =~ /^(\S+)/); push @ret, $1; } } return &unique(@ret); } # delete_rule($filename, &rule) # Removes one rule entry from the file sub delete_rule { my ($filename, $rule) = @_; my $lref = &read_file_lines($filename); my $len = $rule->{'eline'} - $rule->{'line'} + 1; splice(@$lref, $rule->{'line'}, $len); &flush_file_lines($filename); } # create_rule($filename, &rule) # Adds new rule sub create_rule { my ($file, $rule) = @_; my $lref = &read_file_lines($file); my $newline = $rule->{'service'}.' : '.$rule->{'host'}.($rule->{'cmd'} ? ' : '.$rule->{'cmd'} : ''); push(@$lref, $newline); &flush_file_lines($file); } # modify_rule($filename, &old_rule, &new_rule) # Updates rule sub modify_rule { my ($filename, $oldrule, $newrule) = @_; my @newline = ($newrule->{'service'}.' : '.$newrule->{'host'}.($newrule->{'cmd'} ? ' : '.$newrule->{'cmd'} : '')); my $lref = &read_file_lines($filename); my $len = $oldrule->{'eline'} - $oldrule->{'line'} + 1; splice(@$lref, $oldrule->{'line'}, $len, @newline); &flush_file_lines($filename); } 1;
Close
