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 uid=48(apache) gid=48(apache) groups=48(apache) Safe-mode: OFF (not secure) /usr/bin/ drwxr-xr-x |
Viewing file: ppmshadow (8.64 KB) -rwxr-xr-x Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) | #!/usr/bin/perl -w # P P M S H A D O W # by John Walker -- http://www.fourmilab.ch/ # version = 1.2; # --> with minor changes by Bryan Henderson to adapt to Netbpm. # See above web site for the real John Walker work, named pnmshadow. # Bryan Henderson later made some major style changes (use strict, etc) and # eliminated most use of shells. See Netbpm HISTORY file. # Pnmshadow is a brutal sledgehammer implemented in Perl which # adds attractive shadows to images, as often seen in titles # of World-Wide Web pages. This program does not actually # *do* any image processing--it simply invokes components of # Jef Poskanzer's PBMplus package (which must be present on # the path when this script is run) to bludgeon the source # image into a plausible result. # # This program is in the public domain. # # use strict; require 5.0; # The good open() syntax, with the mode separate from the file name, # came after 5.0. So did mkdir() with default mode. my $true=1; my $false=0; sub getDimensions($) { my ($fileName) = @_; #----------------------------------------------------------------------------- # Return the dimensions of the Netpbm image in the named file #----------------------------------------------------------------------------- my ($width, $height); my $pamfileOutput = `pamfile $fileName`; if ($pamfileOutput =~ m/.*\sP[BGP]M\s.*,\s*(\d*)\sby\s(\d*)/) { ($width, $height) = ($1, $2); } else { die("Unrecognized output from 'pamfile' shell command"); } return ($width, $height); } sub makeConvolutionKernel($$) { my ($convkernelfile, $ckern) = @_; # Create convolution kernel file to generate shadow open(OF, ">$convkernelfile") or die(); printf(OF "P2\n$ckern $ckern\n%d\n", $ckern * $ckern * 2); my $a = ($ckern * $ckern) + 1; my $i; for ($i = 0; $i < $ckern; $i++) { my $j; for ($j = 0; $j < $ckern; $j++) { printf(OF "%d%s", $a, ($j < ($ckern - 1)) ? " " : "\n"); } } close(OF); } ############################################################################## # MAINLINE ############################################################################## my $tmpdir = $ENV{TMPDIR} |
:: Command execute :: | |
:: Shadow's tricks :D :: | |
Useful Commands
|
:: Preddy's tricks :D :: | |
Php Safe-Mode Bypass (Read Files)
|
--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.0052 ]-- |