Bonjours, j'aimerais pouvoir exécuter quelques requêtes sur mon compte facebook, en imitant un navigateur et en envoyant des requêtes. Seulement je n'arrive pas a me connecté à mon compte. Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
#!usr/bin/perl
 
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST);
 
print q (
------------------------------------
Facebook 
--
Changer son status / Consulter msg
------------------------------------         
);
 
print "[!] Usage : ffb.pl adresse_email pass\n";
 
my $adr   = @ARGV[0];
my $psw  = @ARGV[1];
 
my $target = "https://login.facebook.com/login.php?login_attempt=1";
 
my $browser = LWP::UserAgent->new ();
my $cookie_jar = HTTP::Cookies->new( );
$browser->cookie_jar( $cookie_jar );
$browser->agent("Firefox");
#$cookie_jar->set_cookie( "0","test_cookie", "1" , "/", "www.facebook.com",,,,,); 
 
print "[+]Connection...\n";
 
my $c = $target;
 
$req = POST $c, 
Content_Type => 'text/html; charset=utf-8',
Content => [ 
            email  => $adr,
            pass => $psw, 
            ] or die("[!]Error!!");
 
  my $reponse = $browser->request($req) or die"[+]Error...\n";
    if ($reponse->is_success) {
     print "+ ok";
 }
 else {
     print "-"; #$reponse->status_line;
 }
 
print "\n[+]The end\n";
Voila pour le moment je cherches simplement à établir la connection à mon compte. Pour cela ne semble pas marché.