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.3
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 /
status /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
services
[ DIR ]
drwxr-xr-x
CHANGELOG
6.42
KB
-rw-r--r--
WEBMIN-STATUS-MIB.txt
1.53
KB
-rw-r--r--
acl_security.pl
508
B
-rwxr-xr-x
alive-monitor.pl
241
B
-rwxr-xr-x
apache-monitor.pl
697
B
-rwxr-xr-x
backup_config.pl
801
B
-rwxr-xr-x
bind8-monitor.pl
710
B
-rwxr-xr-x
cfengine-monitor.pl
415
B
-rwxr-xr-x
cgi_args.pl
321
B
-rwxr-xr-x
change-monitor.pl
735
B
-rwxr-xr-x
config
182
B
-rw-r--r--
config-ALL-linux
210
B
-rw-r--r--
config-debian-linux
225
B
-rw-r--r--
config-debian-linux-3.0
216
B
-rw-r--r--
config-debian-linux-3.1-ALL
216
B
-rw-r--r--
config-freebsd
195
B
-rw-r--r--
config-hpux
182
B
-rw-r--r--
config-netbsd
182
B
-rw-r--r--
config-solaris
182
B
-rw-r--r--
config-syno-linux
197
B
-rw-r--r--
config.info
1.09
KB
-rw-r--r--
config.info.ca
1.31
KB
-rw-r--r--
config.info.cs
802
B
-rw-r--r--
config.info.de
1.28
KB
-rw-r--r--
config.info.es
659
B
-rw-r--r--
config.info.fa
994
B
-rw-r--r--
config.info.fr
1.42
KB
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.it
0
B
-rw-r--r--
config.info.ja
1.04
KB
-rw-r--r--
config.info.ko
764
B
-rw-r--r--
config.info.nl
984
B
-rw-r--r--
config.info.no
962
B
-rw-r--r--
config.info.pl
1021
B
-rw-r--r--
config.info.ru
486
B
-rw-r--r--
config.info.sv
99
B
-rw-r--r--
config.info.tr
567
B
-rw-r--r--
config.info.uk
479
B
-rw-r--r--
config.info.zh
86
B
-rw-r--r--
config.info.zh_TW
229
B
-rw-r--r--
consume-monitor.pl
1.89
KB
-rwxr-xr-x
defaultacl
15
B
-rw-r--r--
delete_mons.cgi
1.03
KB
-rwxr-xr-x
delete_tmpls.cgi
712
B
-rwxr-xr-x
dhcpd-monitor.pl
616
B
-rwxr-xr-x
dns-monitor.pl
1.3
KB
-rwxr-xr-x
dnsadmin-monitor.pl
667
B
-rwxr-xr-x
dovecot-monitor.pl
302
B
-rwxr-xr-x
du-monitor.pl
790
B
-rw-r--r--
edit_mon.cgi
9.61
KB
-rwxr-xr-x
edit_sched.cgi
3.24
KB
-rwxr-xr-x
edit_tmpl.cgi
1.81
KB
-rwxr-xr-x
exec-monitor.pl
1.52
KB
-rwxr-xr-x
fail2ban-monitor.pl
516
B
-rwxr-xr-x
feedback_files.pl
175
B
-rwxr-xr-x
file-monitor.pl
3.35
KB
-rwxr-xr-x
ftp-monitor.pl
3.05
KB
-rwxr-xr-x
hostsentry-monitor.pl
521
B
-rwxr-xr-x
http-monitor.pl
4.13
KB
-rwxr-xr-x
iface-monitor.pl
908
B
-rwxr-xr-x
index.cgi
4.77
KB
-rwxr-xr-x
inetd-monitor.pl
399
B
-rwxr-xr-x
init-monitor.pl
576
B
-rw-r--r--
jabber-monitor.pl
667
B
-rwxr-xr-x
ldap-monitor.pl
1.51
KB
-rwxr-xr-x
list_tmpls.cgi
1.05
KB
-rwxr-xr-x
load-monitor.pl
1.1
KB
-rwxr-xr-x
log_parser.pl
673
B
-rwxr-xr-x
mailq-monitor.pl
1.3
KB
-rwxr-xr-x
memory-monitor.pl
1.55
KB
-rwxr-xr-x
module.info
168
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
128
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
167
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
198
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
247
B
-rw-r--r--
module.info.ca
118
B
-rw-r--r--
module.info.ca.auto
14
B
-rw-r--r--
module.info.cs
33
B
-rw-r--r--
module.info.cs.auto
105
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
120
B
-rw-r--r--
module.info.de
121
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
274
B
-rw-r--r--
module.info.es
40
B
-rw-r--r--
module.info.es.auto
95
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
132
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
185
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
134
B
-rw-r--r--
module.info.fr
42
B
-rw-r--r--
module.info.fr.auto
107
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
155
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
134
B
-rw-r--r--
module.info.hu
37
B
-rw-r--r--
module.info.hu.auto
99
B
-rw-r--r--
module.info.it
39
B
-rw-r--r--
module.info.it.auto
96
B
-rw-r--r--
module.info.ja
57
B
-rw-r--r--
module.info.ja.auto
130
B
-rw-r--r--
module.info.ko
36
B
-rw-r--r--
module.info.ko.auto
92
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
131
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
136
B
-rw-r--r--
module.info.ms
119
B
-rw-r--r--
module.info.ms.auto
15
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
146
B
-rw-r--r--
module.info.nl
33
B
-rw-r--r--
module.info.nl.auto
97
B
-rw-r--r--
module.info.no
32
B
-rw-r--r--
module.info.no.auto
96
B
-rw-r--r--
module.info.pl
97
B
-rw-r--r--
module.info.pl.auto
15
B
-rw-r--r--
module.info.pt
0
B
-rw-r--r--
module.info.pt.auto
133
B
-rw-r--r--
module.info.pt_BR
0
B
-rw-r--r--
module.info.pt_BR.auto
142
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
153
B
-rw-r--r--
module.info.ru
56
B
-rw-r--r--
module.info.ru.auto
165
B
-rw-r--r--
module.info.sk
33
B
-rw-r--r--
module.info.sk.auto
106
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
135
B
-rw-r--r--
module.info.sv
33
B
-rw-r--r--
module.info.sv.auto
92
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
250
B
-rw-r--r--
module.info.tr
32
B
-rw-r--r--
module.info.tr.auto
105
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
208
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
174
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
182
B
-rw-r--r--
module.info.zh
36
B
-rw-r--r--
module.info.zh.auto
76
B
-rw-r--r--
module.info.zh_TW
40
B
-rw-r--r--
module.info.zh_TW.auto
82
B
-rw-r--r--
mon-monitor.pl
431
B
-rwxr-xr-x
monitor.pl
14.59
KB
-rwxr-xr-x
mysql-monitor.pl
450
B
-rwxr-xr-x
nfs-monitor.pl
394
B
-rwxr-xr-x
nut-monitor.pl
2.13
KB
-rwxr-xr-x
oldfile-monitor.pl
864
B
-rwxr-xr-x
ping-monitor.pl
6.84
KB
-rwxr-xr-x
portsentry-monitor.pl
535
B
-rwxr-xr-x
postfix-monitor.pl
509
B
-rwxr-xr-x
postgresql-monitor.pl
480
B
-rwxr-xr-x
prefs.info
58
B
-rw-r--r--
proc-monitor.pl
1.7
KB
-rwxr-xr-x
proftpd-monitor.pl
842
B
-rwxr-xr-x
qmailadmin-monitor.pl
424
B
-rwxr-xr-x
query-monitor.pl
2.89
KB
-rwxr-xr-x
raid-monitor.pl
1.66
KB
-rwxr-xr-x
refresh.cgi
550
B
-rwxr-xr-x
rssh-monitor.pl
2.63
KB
-rwxr-xr-x
safeacl
15
B
-rw-r--r--
samba-monitor.pl
453
B
-rwxr-xr-x
save_mon.cgi
3.23
KB
-rwxr-xr-x
save_sched.cgi
2.44
KB
-rwxr-xr-x
save_tmpl.cgi
1.25
KB
-rwxr-xr-x
sendmail-monitor.pl
682
B
-rwxr-xr-x
sensors-monitor.pl
3.9
KB
-rwxr-xr-x
slapd-monitor.pl
606
B
-rwxr-xr-x
space-monitor.pl
3.09
KB
-rwxr-xr-x
squid-monitor.pl
881
B
-rwxr-xr-x
sshd-monitor.pl
817
B
-rwxr-xr-x
sslcert-monitor.pl
4.11
KB
-rwxr-xr-x
status-lib.pl
17.62
KB
-rwxr-xr-x
status_monitor_api.pl
593
B
-rwxr-xr-x
system_info.pl
1.48
KB
-rw-r--r--
tcp-monitor.pl
1.23
KB
-rwxr-xr-x
traffic-monitor.pl
2.4
KB
-rwxr-xr-x
uninstall.pl
434
B
-rwxr-xr-x
usermin-monitor.pl
496
B
-rwxr-xr-x
webmin-monitor.pl
363
B
-rwxr-xr-x
xinetd-monitor.pl
491
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ping-monitor.pl
# ping-monitor.pl # Ping some host # Contains code ripped from Net::Ping by Russell Mosemann use Socket; sub get_ping_status { my ($m) = @_; my $wait = defined($m->{'wait'}) ? $m->{'wait'} : 5; my $ip = &to_ipaddress($m->{'host'}) || &to_ip6address($m->{'host'}); return { 'up' => 0 } if (!$ip); my $ipv6 = &check_ip6address($m->{'host'}) || &to_ip6address($m->{'host'}) && !&to_ipaddress($m->{'host'}); if ($config{'pinger'} || $ipv6) { # Call a ping command if configured, or if using IPv6 since the built- # in code doesn't support it yet my $cmd; my $auto_pinger = $config{'pinger'} eq "linux" || !$config{'pinger'}; if ($auto_pinger && $gconfig{'os_type'} =~ /-linux$/) { # Use linux command $cmd = ($ipv6 ? "ping6" : "ping")." -c 1 -w $wait"; } elsif ($auto_pinger && $gconfig{'os_type'} eq 'freebsd') { # Use FreeBSD command $cmd = ($ipv6 ? "ping6" : "ping")." -c 1 -W ".($wait * 1000); } elsif ($auto_pinger) { # Don't know command for this OS return { 'up' => - 1 }; } else { $cmd = $config{'pinger'}; } my $rv; my $out; eval { local $sig{'ALRM'} = sub { die "timeout" }; alarm($wait + 1); $out = &backquote_command("$cmd ".quotemeta($m->{'host'}). " 2>&1 </dev/null"); $rv = $?; alarm(0); }; if ($@ =~ /timeout/) { return { 'up' => 0, 'desc' => &text('ping_timeout', $wait) }; } elsif ($@) { return { 'up' => 0, 'desc' => "$@" }; } elsif ($rv) { my @l = split(/\r?\n/, $out); return { 'up' => 0, 'desc' => &html_escape($l[$#l]) }; } else { return { 'up' => 1 }; } } else { # Use builtin code if (!&to_ipaddress($ip)) { return { 'up' => 0, 'desc' => $text{'ping_resolv'} }; } my $rv = &ping_icmp(inet_aton($ip), $wait); return { 'up' => $rv ? 1 : 0 }; } } sub show_ping_dialog { my ($m) = @_; print &ui_table_row($text{'ping_host'}, &ui_textbox("host", $m->{'host'}, 50), 3); print &ui_table_row($text{'ping_wait'}, &ui_textbox("wait", defined($m->{'wait'}) ? $m->{'wait'} : 5, 6). " ".$text{'oldfile_secs'}); } sub parse_ping_dialog { my ($m) = @_; #$config{'ping_cmd'} || &error($text{'ping_econfig'}); &to_ipaddress($in{'host'}) || &to_ip6address($in{'host'}) || &error($text{'ping_ehost'}); $in{'wait'} =~ /^(\d*\.)?\d+$/ || &error($text{'ping_ewait'}); $m->{'host'} = $in{'host'}; $m->{'wait'} = $in{'wait'}; } sub ping_icmp { my ($ip, # Packed IP number of the host $timeout # Seconds after which ping times out ) = @_; my $ICMP_ECHOREPLY = 0; # ICMP packet types my $ICMP_ECHO = 8; my $icmp_struct = "C2 S3 A"; # Structure of a minimal ICMP packet my $subcode = 0; # No ICMP subcode for ECHO and ECHOREPLY my $flags = 0; # No special flags when opening a socket my $port = 0; # No port with ICMP my ($saddr, # sockaddr_in with port and ip $checksum, # Checksum of ICMP packet $msg, # ICMP packet to send $len_msg, # Length of $msg $rbits, # Read bits, filehandles for reading $nfound, # Number of ready filehandles found $finish_time, # Time ping should be finished $done, # set to 1 when we are done $ret, # Return value $recv_msg, # Received message including IP header $from_saddr, # sockaddr_in of sender $from_port, # Port packet was sent from $from_ip, # Packed IP of sender $from_type, # ICMP type $from_subcode, # ICMP subcode $from_chk, # ICMP packet checksum $from_pid, # ICMP packet id $from_seq, # ICMP packet sequence $from_msg, # ICMP message $data, $cnt, $data_size ); # Construct packet data string $data_size = 0; for ($cnt = 0; $cnt < $data_size; $cnt++) { $data .= chr($cnt % 256); } my $proto_num = (getprotobyname('icmp'))[2]; socket(PSOCK, PF_INET, SOCK_RAW, $proto_num); $ping_seq = ($ping_seq + 1) % 65536; # Increment sequence $checksum = 0; # No checksum for starters $msg = pack($icmp_struct . $data_size, $ICMP_ECHO, $subcode, $checksum, $$, $ping_seq, $data); $checksum = checksum($msg); $msg = pack($icmp_struct . $data_size, $ICMP_ECHO, $subcode, $checksum, $$, $ping_seq, $data); $len_msg = length($msg); $saddr = pack_sockaddr_in($port, $ip); send(PSOCK, $msg, $flags, $saddr); # Send the message $rbits = ""; vec($rbits, fileno(PSOCK), 1) = 1; $ret = 0; $done = 0; $finish_time = time() + $timeout; # Must be done by this time while (!$done && $timeout > 0) # Keep trying if we have time { $nfound = select($rbits, undef, undef, $timeout); # Wait for packet $timeout = $finish_time - time(); # Get remaining time if (!defined($nfound)) # Hmm, a strange error { # Probably an interrupted system call, so try again $ret = undef; #$done = 1; } elsif ($nfound) # Got a packet from somewhere { $recv_msg = ""; $from_saddr = recv(PSOCK, $recv_msg, 1500, $flags); if ($from_saddr) { ($from_port, $from_ip) = unpack_sockaddr_in($from_saddr); ($from_type, $from_subcode, $from_chk, $from_pid, $from_seq, $from_msg) = unpack($icmp_struct . $data_size, substr($recv_msg, length($recv_msg) - $len_msg, $len_msg)); if (($from_type == $ICMP_ECHOREPLY) && ($from_ip eq $ip) && ($from_pid == $$) && # Does the packet check out? ($from_seq == $ping_seq)) { $ret = 1; # It's a winner $done = 1; } } else { # Packet not actually received $ret = undef; } } else # Oops, timed out { $done = 1; } } close(PSOCK); return($ret) } # Description: Do a checksum on the message. Basically sum all of # the short words and fold the high order bits into the low order bits. sub checksum { my ($msg # The message to checksum ) = @_; my ($len_msg, # Length of the message $num_short, # The number of short words in the message $short, # One short word $chk # The checksum ); $len_msg = length($msg); $num_short = $len_msg / 2; $chk = 0; foreach $short (unpack("S$num_short", $msg)) { $chk += $short; } # Add the odd byte in $chk += unpack("C", substr($msg, $len_msg - 1, 1)) if $len_msg % 2; $chk = ($chk >> 16) + ($chk & 0xffff); # Fold high into low return(~(($chk >> 16) + $chk) & 0xffff); # Again and complement }
Close
