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 /
libexec /
webmin /
fsdump /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
3.42
KB
-rw-r--r--
acl_security.pl
1.16
KB
-rwxr-xr-x
backup.cgi
2.27
KB
-rwxr-xr-x
backup.pl
3.13
KB
-rwxr-xr-x
cgi_args.pl
361
B
-rwxr-xr-x
config
91
B
-rw-r--r--
config.info
534
B
-rw-r--r--
config.info.ar
640
B
-rw-r--r--
config.info.ca
644
B
-rw-r--r--
config.info.ca.UTF-8
658
B
-rw-r--r--
config.info.cz
397
B
-rw-r--r--
config.info.cz.UTF-8
437
B
-rw-r--r--
config.info.de
644
B
-rw-r--r--
config.info.de.UTF-8
644
B
-rw-r--r--
config.info.es
458
B
-rw-r--r--
config.info.es.UTF-8
458
B
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.ko_KR.UTF-8
451
B
-rw-r--r--
config.info.ko_KR.euc
355
B
-rw-r--r--
config.info.nl
608
B
-rw-r--r--
config.info.nl.UTF-8
608
B
-rw-r--r--
config.info.no
624
B
-rw-r--r--
config.info.no.UTF-8
624
B
-rw-r--r--
config.info.pl
650
B
-rw-r--r--
config.info.pl.UTF-8
672
B
-rw-r--r--
config.info.pt_BR
433
B
-rw-r--r--
config.info.pt_BR.UTF-8
440
B
-rw-r--r--
config.info.ru.UTF-8
144
B
-rw-r--r--
config.info.ru_RU
94
B
-rw-r--r--
config.info.ru_RU.UTF-8
144
B
-rw-r--r--
config.info.ru_SU
94
B
-rw-r--r--
config.info.uk_UA
103
B
-rw-r--r--
config.info.uk_UA.UTF-8
156
B
-rw-r--r--
defaultacl
39
B
-rw-r--r--
delete_dumps.cgi
720
B
-rwxr-xr-x
edit_dump.cgi
5.54
KB
-rwxr-xr-x
feedback_files.pl
229
B
-rwxr-xr-x
freebsd-lib.pl
12.2
KB
-rwxr-xr-x
fsdump-lib.pl
7.52
KB
-rwxr-xr-x
ftp.pl
3.69
KB
-rwxr-xr-x
index.cgi
4.63
KB
-rwxr-xr-x
install_check.pl
379
B
-rwxr-xr-x
irix-lib.pl
8.19
KB
-rwxr-xr-x
kill.cgi
877
B
-rwxr-xr-x
linux-lib.pl
23.24
KB
-rwxr-xr-x
log_parser.pl
770
B
-rwxr-xr-x
macos-lib.pl
12.2
KB
-rwxr-xr-x
module.info
447
B
-rw-r--r--
module.info.ar
232
B
-rw-r--r--
module.info.ca
136
B
-rw-r--r--
module.info.ca.UTF-8
150
B
-rw-r--r--
module.info.cz
27
B
-rw-r--r--
module.info.cz.UTF-8
37
B
-rw-r--r--
module.info.de
146
B
-rw-r--r--
module.info.de.UTF-8
158
B
-rw-r--r--
module.info.es
50
B
-rw-r--r--
module.info.es.UTF-8
56
B
-rw-r--r--
module.info.hu
29
B
-rw-r--r--
module.info.hu.UTF-8
37
B
-rw-r--r--
module.info.ko_KR.UTF-8
41
B
-rw-r--r--
module.info.ko_KR.euc
32
B
-rw-r--r--
module.info.ms_MY
129
B
-rw-r--r--
module.info.ms_MY.UTF-8
141
B
-rw-r--r--
module.info.nl
27
B
-rw-r--r--
module.info.nl.UTF-8
33
B
-rw-r--r--
module.info.no
35
B
-rw-r--r--
module.info.no.UTF-8
41
B
-rw-r--r--
module.info.pl
99
B
-rw-r--r--
module.info.pl.UTF-8
114
B
-rw-r--r--
module.info.pt_BR
41
B
-rw-r--r--
module.info.pt_BR.UTF-8
47
B
-rw-r--r--
module.info.ru.UTF-8
56
B
-rw-r--r--
module.info.ru_RU
33
B
-rw-r--r--
module.info.ru_RU.UTF-8
59
B
-rw-r--r--
module.info.ru_SU
33
B
-rw-r--r--
module.info.zh_TW.Big5
29
B
-rw-r--r--
multi.pl
572
B
-rwxr-xr-x
newtape.cgi
592
B
-rwxr-xr-x
newtape.pl
1.58
KB
-rwxr-xr-x
notape.pl
493
B
-rwxr-xr-x
restore.cgi
935
B
-rwxr-xr-x
restore_form.cgi
1.1
KB
-rwxr-xr-x
rmulti.pl
784
B
-rwxr-xr-x
save_dump.cgi
3.97
KB
-rwxr-xr-x
solaris-lib.pl
6.36
KB
-rwxr-xr-x
uninstall.pl
347
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ftp.pl
#!/usr/bin/perl # Pass data from stdin to an FTP server $no_acl_check++; require './fsdump-lib.pl'; # Parse args, and get password select(STDERR); $| = 1; select(STDOUT); $host = $ARGV[0]; $user = $ARGV[2]; if ($ARGV[3] =~ /touch/) { $touched = 1; } $| = 1; if (defined($ENV{'DUMP_PASSWORD'})) { $pass = $ENV{'DUMP_PASSWORD'}; } else { open(TTY, "+</dev/tty"); print TTY "Password: "; $pass = <TTY>; $pass =~ s/\r|\n//g; close(TTY); } # Read rmt protocol messages while(1) { $line = <STDIN>; $line =~ s/\r|\n//g; if ($line =~ /^O(.*)/) { # File to open specified .. connect to FTP server $file = $1; $perms = <STDIN>; $perms = int($perms); &open_socket($host, 21, "SOCK", \$err); &error_exit("FTP connection failed : $err") if ($err); &ftp_command("", 2, \$err) || &error_exit("FTP prompt failed : $err"); # Login to server @urv = &ftp_command("USER $user", [ 2, 3 ], \$err); @urv || &error_exit("FTP login failed : $err"); if (int($urv[1]/100) == 3) { &ftp_command("PASS $pass", 2, \$err) || &error_exit("FTP login failed : $err"); } &ftp_command("TYPE I", 2, \$err) || &error_exit("FTP file type failed : $err"); # Work out what we are doing $mode = 0; if (($perms & 0100) || ($perms & 01000) || (($perms & 01) || ($perms & 02)) && $touched) { # Writing new file $mode = 1; } elsif ($perms & 02000) { # Appending to a file $mode = 2; } elsif (!$perms) { # Reading from file $mode = 0; } else { &error_exit("Unknown permissions $perms"); } print "A0\n"; } elsif ($line =~ /^W(\d+)/) { # Write to FTP server $len = $1; if ($opened != 1) { &open_ftp_file($mode); } #$opened || &error_exit("FTP connection not opened yet"); read(STDIN, $buf, $len); $wrote = (print CON $buf); print "A".($wrote ? $len : 0)."\n"; } elsif ($line =~ /^R(\d+)/) { # Read from to FTP server if ($opened != 2) { &open_ftp_file(0); } $len = $1; $read = read(CON, $buf, $len); if ($read >= 0) { print "A".$read."\n"; print $buf; } else { print "E",int($!),"\n"; print "Read failed : $!\n"; } } elsif ($line =~ /^C/) { # Close FTP connection if ($opened) { # Finish transfer close(CON); &ftp_command("", 2, \$err) || &error_exit("FTP close failed : $err"); } &ftp_command("QUIT", 2, \$err) || &error_exit("FTP quit failed : $err"); close(SOCK); print "A0\n"; $opened = 0; } elsif (!$line) { # All done! last; } else { print "E1\nUnknown command $line\n"; } } sub error_exit { local $err = &html_tags_to_text(join("", @_)); print STDERR $err,"\n"; print "E1\n$err\n"; exit(1); } sub html_tags_to_text { local ($rv) = @_; $rv =~ s/<tt>|<\/tt>//g; $rv =~ s/<b>|<\/b>//g; $rv =~ s/<i>|<\/i>//g; $rv =~ s/<u>|<\/u>//g; $rv =~ s/<pre>|<\/pre>//g; $rv =~ s/<br>/\n/g; $rv =~ s/<p>/\n\n/g; return $rv; } sub open_ftp_file { local ($mode) = @_; # Open passive port local $pasv = &ftp_command("PASV", 2, \$err); $pasv || &error_exit("FTP port failed : $err"); $pasv =~ /\(([0-9,]+)\)/; local @n = split(/,/ , $1); &open_socket("$n[0].$n[1].$n[2].$n[3]", $n[4]*256 + $n[5], CON, \$err) || &error_exit("FTP port failed : $err"); if ($mode == 0) { # Read from file &ftp_command("RETR $file", 1, \$err) || &error_exit("FTP read failed : $err"); $opened = 2; } elsif ($mode == 1) { # Create new file if requested by the client, or if # the touch command was specified by the caller &ftp_command("STOR $file", 1, \$err) || &error_exit("FTP write failed : $err"); $touched = 0; $opened = 1; } elsif ($mode == 2) { # Otherwise append to the file &ftp_command("APPE $file", 1, \$err) || &error_exit("FTP write failed : $err"); $opened = 1; } else { $opened = 0; } }
Close
