Connection facebook probleme
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:
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é.
