!c99Shell v. 1.0 pre-release build #16!

Software: Apache/2.2.3 (CentOS). PHP/5.1.6 

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686 

uid=48(apache) gid=48(apache) groups=48(apache) 

Safe-mode: OFF (not secure)

/usr/bin/   drwxr-xr-x
Free 52.27 GB of 127.8 GB (40.9%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     cpan (3.75 KB)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; #!/usr/bin/perl # $Id: cpan,v 1.3 2002/08/30 08:55:15 k Exp $ use strict; =head1 NAME cpan - easily interact with CPAN from the command line =head1 SYNOPSIS # with arguments, installs specified modules cpan module_name [ module_name ... ] # with switches, installs modules with extra behavior cpan [-cimt] module_name [ module_name ... ] # without arguments, starts CPAN shell cpan # without arguments, but some switches cpan [-ahrv] =head1 DESCRIPTION This script provides a command interface (not a shell) to CPAN.pm. =head2 Meta Options These options are mutually exclusive, and the script processes them in this order: [ahvr]. Once the script finds one, it ignores the others, and then exits after it finishes the task. The script ignores any other command line options. =over 4 =item -a Creates the CPAN.pm autobundle with CPAN::Shell->autobundle. =item -h Prints a help message. =item -r Recompiles dynamically loaded modules with CPAN::Shell->recompile. =item -v Print the script version and CPAN.pm version. =back =head2 Module options These options are mutually exclusive, and the script processes them in alphabetical order. =over 4 =item c Runs a `make clean` in the specified module's directories. =item i Installed the specified modules. =item m Makes the specified modules. =item t Runs a `make test` on the specified modules. =back =head2 Examples # print a help message cpan -h # print the version numbers cpan -v # create an autobundle cpan -a # recompile modules cpan -r # install modules cpan -i Netscape::Booksmarks Business::ISBN =head1 TO DO * add options for other CPAN::Shell functions autobundle, clean, make, recompile, test =head1 BUGS * none noted =head1 SEE ALSO Most behaviour, including environment variables and configuration, comes directly from CPAN.pm. =head1 AUTHOR brian d foy =cut use CPAN (); use Getopt::Std; my $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ m/ (\d+) \. (\d+) /xg; my $Default = 'default'; my $META_OPTIONS = 'ahvr'; my %CPAN_METHODS = ( $Default => 'install', 'c' => 'clean', 'i' => 'install', 'm' => 'make', 't' => 'test', ); my @cpan_options = grep { $_ ne $Default } sort keys %CPAN_METHODS; my $arg_count = @ARGV; my %options; Getopt::Std::getopts( join( '', @cpan_options, $META_OPTIONS ), \%options ); if( $options{h} ) { print STDERR "Printing help message -- ignoring other arguments\n" if $arg_count > 1; print STDERR "Use perldoc to read the documentation\n"; exit 0; } elsif( $options{v} ) { print STDERR "Printing version message -- ignoring other arguments\n" if $arg_count > 1; my $CPAN_VERSION = CPAN->VERSION; print STDERR "cpan script version $VERSION\n" . "CPAN.pm version $CPAN_VERSION\n"; exit 0; } elsif( $options{a} ) { print "Creating autobundle in ", $CPAN::Config->{cpan_home}, "/Bundle\n"; print STDERR "Creating autobundle -- ignoring other arguments\n" if $arg_count > 1; CPAN::Shell->autobundle; exit 0; } elsif( $options{r} ) { print STDERR "Creating autobundle -- ignoring other arguments\n" if $arg_count > 1; CPAN::Shell->recompile; } else { my $switch = ''; foreach my $option ( @cpan_options ) { next unless $options{$option}; $switch = $option; last; } if( not $switch and @ARGV ) { $switch = $Default; } elsif( not $switch and not @ARGV ) { CPAN::shell(); exit 0; } elsif( $switch and not @ARGV ) { die "Nothing to $CPAN_METHODS{$switch}!\n"; } my $method = $CPAN_METHODS{$switch}; die "CPAN.pm cannot $method!\n" unless CPAN::Shell->can( $method ); foreach my $arg ( @ARGV ) { CPAN::Shell->$method( $arg ); } } 1;

:: Command execute ::

Enter:
 
Select:
 

:: Shadow's tricks :D ::

Useful Commands
 
Warning. Kernel may be alerted using higher levels
Kernel Info:

:: Preddy's tricks :D ::

Php Safe-Mode Bypass (Read Files)

File:

eg: /etc/passwd
Php Safe-Mode Bypass (List Directories):

Dir:

eg: /etc/

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.0057 ]--