Affiliate Login!  
HotProducts.Membersite.biz  Bookmark This Page!
Looking For Something... Find it Fast
Resources To Create, Manage, & Promote Your Own Profitable Online Business!
Get New Product Updates!
Name:
Email:



Become an Affiliate
Affiliate Login
User:  Pass:
Forgot Password?


PERL CGI SCRIPT DECRYPTER

Ever get a script that looks something like this???

split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/~!/ ~!/g; $value =~ s/(`|\*|\(|\)|\[|\])//g; $FORM{$name} = $value; $FORM{$name} = &untaint($FORM{$name}); } $FORM{'customerid'} =~ s/ //g; $delimiter = "|"; if ($stay_in_ssl) { $FORM{'MerchantApprovedURL'} =~ s/http:/https:/i; $FORM{'MerchantUnApprovedURL'} =~ s/http:/https:/i; } if ( $FORM{'mailprog'} =~ /(-server)/ ) { ($FORM{'mailprog'},@temp) = split(/ /,$FORM{'mailprog'}); $blat_server_temp = " @temp"; } @common_sendmail_paths = ("/usr/sbin/sendmail", "/usr/lib/sendmail", "/usr/bin/sendmail", "/bin/sendmail", "/var/qmail/bin/qmail-inject", "/usr/home/stormer/bin/sendmail", "C:/winnt/system32/windmail.exe", "C:/winnt/system32/blat.exe", etc...

What a pain in the ass!  It's all one line of code and a complete pain in the ass to tweak and customize.  Now with my simple Perl De-Obfuscator (decrypter) you can in seconds turn something like the above into something more pleasant and practical like this below:

  • read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  • @pairs = split(/&/, $buffer);
  • foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
  • $value =~ tr/+/ /;
  • $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  • $value =~ s/~!/ ~!/g;
  • $value =~ s/(`|\*|\(|\)|\[|\])//g;
  • $FORM{$name} = $value;
  • $FORM{$name} = &untaint($FORM{$name});
  • } $FORM{'customerid'} =~ s/ //g;
  • $delimiter = "|";
  • if ($stay_in_ssl) { $FORM{'MerchantApprovedURL'} =~ s/http:/https:/i;
  • $FORM{'MerchantUnApprovedURL'} =~ s/http:/https:/i;
  • } if ( $FORM{'mailprog'} =~ /(-server)/ ) { ($FORM{'mailprog'},@temp) = split(/ /,$FORM{'mailprog'});
  • $blat_server_temp = " @temp";
  • } @common_sendmail_paths = ("/usr/sbin/sendmail", "/usr/lib/sendmail", "/usr/bin/sendmail", "/bin/sendmail", "/var/qmail/bin/qmail-inject", "/usr/home/stormer/bin/sendmail", "C:/winnt/system32/windmail.exe", "C:/winnt/system32/blat.exe",

System Requirements

  • Perl 5

Features

  • Installs in seconds
  • Decrypted script works exactly the same as original only you can actually READ IT!
Only: $9.95

Make payments with PayPal - it's fast, free and secure!


           Mainpage Contact Us Become an Affiliate Affiliate Login
Copyright  2017 Membersite.biz