perl http编程

Burp Proxy抓包，观察数据流过程

1. GET获取SessionID

2. Post username&password

>>perl a.pl http://localhost/login.asp

ASPSESSIONIDQSRSDQQT=JNIJLIKDNHMDAGCFLGEOGIDC; AJSTAT_ok_pages=1; AJSTAT_ok_times=1

>>cat a.pl

#!/usr/bin/perl -lw use LWP::UserAgent; use HTTP::Request; use HTTP::Response; use strict; use warnings; my $ua ? ? ? = new LWP::UserAgent; my $cookie ? = undef; my $host ? ? = $1 if ($ARGV[0] =~ /www.(.*)/.*/); my $origin ? = 'http://'.$host; my $ok_page ?= '; AJSTAT_ok_pages=1'; my $ok_times = '; AJSTAT_ok_times=1'; my $action ? = '?Acton=ok'; my $post_url = $ARGV[0].$action; ############################################################################### # 1. Get cookie for next step ############################################################################### #$ua->agent('Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML,like Gecko) Chrome/28.0.1500.72 Safari/537.36'); $ua->default_header('User-Agent' => 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML,like Gecko) Chrome/28.0.1500.72 Safari/537.36'); $ua->default_header('Accept-Encoding' => 'gzip,deflate,sdch'); $ua->default_header('Accept-Language' => 'zh-CN,zh'); $ua->default_header('Accept' => 'textml,application/xhtml+xml,application/xml'); $ua->default_header('Host' ? => $host); $ua->default_header('Referer' => $ARGV[0]); my $request = new HTTP::Request('GET',$ARGV[0]); my $response = $ua->request($request); if ($response->is_success) { $cookie = $response->header('Set-Cookie'); } else { print $response->error_as_HTML; } ############################################################################### # 2. Setup the cookie ############################################################################### if($cookie =~ /(.*);/){ $cookie = $1; }else{ die "Error COOKIE: $cookie"; } $cookie = $cookie.$ok_page.$ok_times; print $cookie; ############################################################################### # 3. Login using the password ############################################################################### $ua = undef; $ua = new LWP::UserAgent; #$ua->agent('Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML,application/xml'); $ua->default_header('Host' ? => $host); $ua->default_header('Referer' => $ARGV[0]); $ua->default_header('Proxy-Connection' => 'keep-alive'); $ua->default_header('Cookie' => $cookie); $ua->default_header('Content-Length' => '89'); $ua->default_header('Content-Type' ? => 'application/x-www-form-urlencoded'); $ua->default_header('Origin' => $origin); $ua->default_header('User-Agent' => 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML,like Gecko) Chrome/28.0.1500.72 Safari/537.36'); $request = new HTTP::Request('POST',$post_url); $request->content('username=jgjguyguj+&password=22222&cookietime=1&loginsubmit=+%B5%C7+%C2%BC+&action=login'); $response = $ua->request($request); if ($response->is_success) { print $response->content; } else { ? ? ? ? print $response->error_as_HTML; }