POST /index.php HTTP/1.1
Host: www.hellboundhackers.org
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.13) Gecko/20080208 Mandriva/2.0.0.13-1.1mdv2008.0 (2008.0) Firefox/2.0.0.13
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.hellboundhackers.org/index.php
Cookie: __utma=240219034.940153525.1209163011.1213625020.1213626434.79;
__utmb=240219034; fusion_visited=TRUE;
__utmz=240219034.1209310076.15.2.utmccn=(organic)|utmcsr=google|utmctr=site%3Awww.hellboundhackers.org+ezekiel|utmcmd=organic;
PHPSESSID=rl6oeo664r7g9lnd7gin5ilvn3; __utmc=240219034
Content-Type: application/x-www-form-urlencoded
Content-Length: 47
user_name=***&user_pass=***&login=Login
Respond
HTTP/1.x 302 Found
Date: Mon, 16 Jun 2008 13:48:06 GMT
Server: Apache
X-Powered-By: PHP/5.0.4
Set-Cookie: PHPSESSID=rl6oeo664r7g9lnd7gin5ilvn3; path=/
Set-Cookie: fusion_user=24236.f31e0a8a2cefed417ec46c7675e4142d;
expires=Mon, 16 Jun 2008 16:48:06 GMT; path=/
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate,
post-check=0, pre-check=0
Pragma: no-cache
Location: index.php
Content-Length: 0
Connection: close
Content-Type: text/html
####
use LWP::UserAgent;
use HTTP::Cookies;
$agent = LWP::UserAgent->new;
$agent->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.13) Gecko/0000000000 Mandriva/2.0.0.13-1.1mdv2008.0 (2008.0) Firefox/2.0.0.13');
$url = 'http://www.hellboundhackers.org/index.php';
my $request = HTTP::Request->new(POST => $url);
$request->content_type("application/x-www-form-urlencoded");
$request->content('user_name=***&user_pass=***&login=Login');
$request->content_length(47);
$request->referer('http://www.hellboundhackers.org/index.php');
$respond = $agent->request($request);
print "this is request ".$request->as_string()."\n";
print "this is respond".$respond->as_string()."\n";
my $request = HTTP::Request->new(GET=>$url);
$response = $agent->request($request);
if ( $response->is_success) {
print $request->as_string();
print $response->content;
die;
}
####
use WWW::Mechanize;
use HTML::Form;
use LWP::UserAgent;
my $agent = LWP::UserAgent->new;
my $url = 'http://www.hellboundhackers.org/index.php';
my $response = $agent->get($url);
my $mech = WWW::Mechanize->new ;
my @forms = HTML::Form->parse($response);
my $username = $forms[1]->find_input("user_name","text");
my $password = $forms[1]->find_input("user_pass","password");
$username->value("***");
$password->value("***");
my $filled_out_request = $forms[1]->click;
$response = $agent->request($filled_out_request);
print $response->content;
####