1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
my $uri = URI->new('http://www.le site/login.php'); #déclaration de l'adresse
my $cookie_jar = HTTP::Cookies->new(
file => "cookies.txt",
autosave => 1,
);
my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar);
$mech->agent_alias( 'Linux Mozilla' );
$mech->get($uri);
print $mech->cookie_jar->as_string; #imprime le cookie
$mech->save_content("login.php"); #enregistre la page
#on recupere l'image de verification
getstore ("www.lesite/imagebuilder.php", "imagebuilder.php");
#on entre le code de l'image
print STDOUT "code de verification: \n";
my $image = <STDIN>;
#on remplit les champs et on valide
$mech->submit_form(
fields => {
username => 'login',
pass => 'pass',
verify => $imagin ,
},
button => 'loginsubmit' ,
);
#on enregistre le resultat...
$mech->save_content("logged.html"); |
Partager