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.158
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 /
inetd /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
173
B
-rw-r--r--
backup_config.pl
754
B
-rwxr-xr-x
cgi_args.pl
145
B
-rwxr-xr-x
config-aix
302
B
-rw-r--r--
config-cobalt-linux
331
B
-rw-r--r--
config-coherent-linux
362
B
-rw-r--r--
config-corel-linux
331
B
-rw-r--r--
config-debian-linux
331
B
-rw-r--r--
config-freebsd
252
B
-rw-r--r--
config-freebsd-2.1-2.2
252
B
-rw-r--r--
config-freebsd-8-ALL
262
B
-rw-r--r--
config-generic-linux
277
B
-rw-r--r--
config-hpux
242
B
-rw-r--r--
config-irix
252
B
-rw-r--r--
config-lfs-linux
331
B
-rw-r--r--
config-macos
469
B
-rw-r--r--
config-macos-1.5-ALL
352
B
-rw-r--r--
config-mandrake-linux
353
B
-rw-r--r--
config-msc-linux
357
B
-rw-r--r--
config-netbsd
252
B
-rw-r--r--
config-open-linux
331
B
-rw-r--r--
config-open-linux-3.1e
353
B
-rw-r--r--
config-openSUSE-Linux-15.0-ALL
331
B
-rw-r--r--
config-openbsd
235
B
-rw-r--r--
config-openmamba-linux
362
B
-rw-r--r--
config-openserver
323
B
-rw-r--r--
config-osf1
302
B
-rw-r--r--
config-pardus-linux
332
B
-rw-r--r--
config-redhat-linux
362
B
-rw-r--r--
config-slackware-linux
282
B
-rw-r--r--
config-sol-linux
277
B
-rw-r--r--
config-solaris
353
B
-rw-r--r--
config-solaris-10-ALL
335
B
-rw-r--r--
config-solaris-8-9
353
B
-rw-r--r--
config-suse-linux
331
B
-rw-r--r--
config-suse-linux-6.3-8.0
331
B
-rw-r--r--
config-turbo-linux
331
B
-rw-r--r--
config-united-linux
358
B
-rw-r--r--
config-unixware
323
B
-rw-r--r--
config-windows
145
B
-rw-r--r--
config.info
797
B
-rw-r--r--
config.info.ca
879
B
-rw-r--r--
config.info.cs
874
B
-rw-r--r--
config.info.de
944
B
-rw-r--r--
config.info.es
759
B
-rw-r--r--
config.info.fr
867
B
-rw-r--r--
config.info.hu
668
B
-rw-r--r--
config.info.nl
818
B
-rw-r--r--
config.info.no
852
B
-rw-r--r--
config.info.pl
723
B
-rw-r--r--
config.info.ru
767
B
-rw-r--r--
config.info.sv
691
B
-rw-r--r--
config.info.tr
620
B
-rw-r--r--
config.info.uk
788
B
-rw-r--r--
config.info.zh
545
B
-rw-r--r--
config.info.zh_TW
513
B
-rw-r--r--
delete_rpc.cgi
568
B
-rwxr-xr-x
delete_serv.cgi
610
B
-rwxr-xr-x
edit_rpc.cgi
4.19
KB
-rwxr-xr-x
edit_serv.cgi
4.63
KB
-rwxr-xr-x
index.cgi
4.03
KB
-rwxr-xr-x
inetd-generic-lib.pl
4.43
KB
-rwxr-xr-x
inetd-lib.pl
2.02
KB
-rwxr-xr-x
inetd-solaris-10-lib.pl
8.45
KB
-rwxr-xr-x
install_check.pl
336
B
-rwxr-xr-x
log_parser.pl
892
B
-rwxr-xr-x
module.info
239
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
111
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
146
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
159
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
158
B
-rw-r--r--
module.info.ca
0
B
-rw-r--r--
module.info.ca.auto
112
B
-rw-r--r--
module.info.cs
0
B
-rw-r--r--
module.info.cs.auto
111
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
119
B
-rw-r--r--
module.info.de
0
B
-rw-r--r--
module.info.de.auto
126
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
190
B
-rw-r--r--
module.info.es
0
B
-rw-r--r--
module.info.es.auto
116
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
118
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
136
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
113
B
-rw-r--r--
module.info.fr
0
B
-rw-r--r--
module.info.fr.auto
122
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
111
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
143
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
114
B
-rw-r--r--
module.info.ja
0
B
-rw-r--r--
module.info.ja.auto
140
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
154
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
115
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
122
B
-rw-r--r--
module.info.ms
0
B
-rw-r--r--
module.info.ms.auto
122
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
119
B
-rw-r--r--
module.info.nl
0
B
-rw-r--r--
module.info.nl.auto
116
B
-rw-r--r--
module.info.no
0
B
-rw-r--r--
module.info.no.auto
118
B
-rw-r--r--
module.info.pl
0
B
-rw-r--r--
module.info.pl.auto
124
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
113
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
119
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
123
B
-rw-r--r--
module.info.ru
0
B
-rw-r--r--
module.info.ru.auto
161
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
115
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
119
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
190
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
119
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
157
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
191
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
137
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
110
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
116
B
-rw-r--r--
prefs.info
29
B
-rw-r--r--
restart_inetd.cgi
296
B
-rwxr-xr-x
save_rpc.cgi
3.82
KB
-rwxr-xr-x
save_serv.cgi
5.31
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : save_serv.cgi
#!/usr/bin/perl # save_serv.cgi # Save or create an internet service. This can be called N ways # - create a new services file entry # - create a new inetd.conf entry (and maybe update or add to services file) # - update inetd.conf (and maybe services) # - remove an entry from inetd.conf (and maybe change services) require './inetd-lib.pl'; &error_setup($text{'error_saveservice'}); &ReadParse(); # Delete button clicked, redirect to correct CGI if ($in{'delete'}) { &redirect("delete_serv.cgi?spos=$in{'spos'}&ipos=$in{'ipos'}"); return; } # Check inputs $in{'name'} =~ /^[A-z][A-z0-9\_\-]+$/ || &error(&text('error_invalidservice' ,$in{'name'})); $in{'port'} =~ /^[0-9]*$/ || &error(&text('error_invalidport', $in{'port'})); if ($in{'port'} <= 0 || $in{'port'} > 65535) { &error(&text('error_portnum', $in{'port'})); } if ($in{'act'} && $in{'serv'} == 2) { $in{'program'} =~ /^\/\S+$/ || &error(&text('error_invalidprg', $in{program})); if ($in{'act'} == 2) { if (!$in{'qm'}) { -r $in{'program'} || &error(&text('error_notexist', $in{'program'})); -x $in{'program'} || &error(&text('error_notexecutable', $in{'program'})); } } $in{'args'} =~ /^\S+/ ||&error(&text('error_invalidarg', $in{'args'})); } elsif ($in{'act'} && $in{serv} == 3) { $in{tcpd} =~ /^\S+$/ || &error(&text('error_invalidwrapper', $in{tcpd})); } if ($in{'act'}) { $in{'user'} || &error($text{'error_nouser'}); defined(getpwnam($in{'user'})) || &error($text{'error_user'}); if ($config{'extended_inetd'} == 1) { $in{'group_def'} || defined(getgrnam($in{'group'})) || &error($text{'error_group'}); } } if ($config{'extended_inetd'} && !$in{'permin_def'} && $in{'permin'}!~/^\d+$/) { &error(&text('error_invalidpermin', $in{'permin'})); } if ($config{'extended_inetd'} == 2 && !$in{'child_def'} && $in{'child'} !~ /^\d+$/) { &error(&text('error_invalidchildnum', $in{'child'})); } # Build argument list @sargs = ($in{'name'}, $in{'port'}, $in{'protocol'}, join(' ', split(/\s+/, $in{'aliases'})) ); @iargs = ($in{'act'} == 2, $in{'name'}, $in{'protocol'} =~ /^tcp/ ? "stream" : "dgram", $in{'protocol'}); $wait = $in{'wait'}; $user = $in{'user'}; if ($config{'extended_inetd'} == 1) { if (!$in{'permin_def'}) { $wait .= ".$in{'permin'}"; } if (!$in{'group_def'}) { $user .= ".$in{'group'}"; } } elsif ($config{'extended_inetd'} == 2) { if (!$in{'child_def'}) { $wait .= "/$in{'child'}"; } if (!$in{'permin_def'} && $in{'child_def'}) { &error($text{'error_childnum'}); } if (!$in{'permin_def'}) { $wait .= "/$in{'permin'}"; } if ($in{'group'}) { $user .= ":$in{'group'}"; } if ($in{'class'}) { $user .= "/$in{'class'}"; } } push(@iargs, $wait); push(@iargs, $user); if (($in{'serv'} == 1) & (!$config{'no_internal'})) { push(@iargs, "internal", undef); } elsif (($in{'serv'} == 1) & ($config{'no_internal'})) { &error(&text('error_invalidcmd', $in{args})); } elsif ($in{serv} == 2) { push(@iargs, ($in{'qm'} ? "?" : "").$in{'program'}); push(@iargs, $in{'args'}); } elsif ($in{serv} == 3) { push(@iargs, $config{'tcpd_path'}); push(@iargs, $in{'tcpd'}); $iargs[$#iargs] .= " $in{'args2'}" if ($in{'args2'}); } &lock_inetd_files(); @servs = &list_services(); @inets = &list_inets(); foreach $s (@servs) { if ($s->[1] eq $sargs[0] && $s->[3] eq $sargs[2]) { $same_name = $s; } if ($s->[2] == $sargs[1] && $s->[3] eq $sargs[2]) { $same_port = $s; } } if ($in{'spos'} =~ /\d/) { # Changing a service.. @old_serv = @{$servs[$in{'spos'}]}; if ($in{'ipos'} =~ /\d/) { @old_inet = @{$inets[$in{'ipos'}]}; } if ($old_serv[1] ne $sargs[0] || $old_serv[2] != $sargs[1] || $old_serv[3] ne $sargs[2]) { if ($same_name && $same_name->[2] != $old_serv[2]) { &error(&text('error_nameexist', $sargs[0], $sargs[2])); } if ($same_port && $same_port->[1] ne $old_serv[1]) { &error(&text('error_serviceexist', $sargs[1], $sargs[2])); } } &modify_service($old_serv[0], @sargs); if ($in{'act'} && @old_inet) { # modify inetd &modify_inet($old_inet[0], @iargs, $old_inet[10]); } elsif ($in{'act'} && !@old_inet) { # add to inetd &create_inet(@iargs); } elsif (!$in{'act'} && @old_inet) { # remove from inetd &delete_inet($old_inet[0], $old_inet[10]); @iargs = (); } &unlock_inetd_files(); &webmin_log("modify", "serv", $sargs[0], { 'name' => $sargs[0], 'port' => $sargs[1], 'proto' => $sargs[2], 'active' => $iargs[0], 'user' => $iargs[5], 'wait' => $iargs[4], 'prog' => $in{'act'} ? join(" ", @iargs[6..@iargs-1]) : undef } ); } else { # Creating a new service... # Check for a service with the same name or port and protocol if ($same_name) { &error(&text('error_nameexist', $sargs[0], $sargs[2])); } if ($same_port) { &error(&text('error_serviceexist', $sargs[1], $sargs[2])); } # Check for an existing internet service if ($in{'act'}) { foreach $i (@inets) { if ($i->[3] eq $iargs[1] && $i->[5] eq $iargs[3]) { &error(&text('error_inetservice', $i->[3], $i->[5])); } } } &create_service(@sargs); if ($in{'act'}) { &create_inet(@iargs); } &unlock_inetd_files(); &webmin_log("create", "serv", $sargs[0], { 'name' => $sargs[0], 'port' => $sargs[1], 'proto' => $sargs[2], 'active' => $iargs[0], 'user' => $iargs[5], 'wait' => $iargs[4], 'prog' => $in{'act'} ? join(" ", @iargs[6..@iargs-1]) : undef } ); } &redirect("");
Close
