Zeokat has asked for the wisdom of the Perl Monks concerning the following question:
I have a php file with this soruce:
eval(gzinflate(base64_decode(********code*******)));
I need to write a little script to decode the ****code*** but donīt know how to do it with perl... any idea?
Comment on How to decode this "gzinflate (base64_decode(***
In your php script you can remove the eval() and change it to echo(). That will display the code for you, although in my experience you may find this code is itself ziped and evaled down to several levels.
use MIME::Base64;
use Compress::Zlib;
my ($i, $istatus) = inflateInit( -WindowBits => -MAX_WBITS);
my ($decoded, $ostatus) = $i->inflate(decode_base64($code));