Ciao ragazzi io volevo effetturae il login ad un sito(conosco il php, il perl e simile -a quanto vedo- volevo esercitarmi su quest'altro modo di lavorare non per cretinate).
Voglio provare ad effettuare il login a facebook tramite una post che effettuero con questo script.
I dati che vengono inviati sono nella post sono:
charset_test €,´,€,´,?,?,?,
locale it_IT,
email $user,
pass $pwd,
pass_placeholder Password,
charset_test €,´,€,´,?,?,?,
ecco il codice perl:
codice:
use LWP::UserAgent;
use LWP::Simple;
use POSIX qw(strftime);
$urlhome="http://www.facebook.com";
$urllogin="https://login.facebook.com/login.php?login_attempt=1";
$ua = LWP::UserAgent->new();
$ua->get($urlhome);
$res=$ua->post($urllogin,{
charset_test=>'€,´,€,´,?,?,?',
locale=>"it_IT",
email=>$user,
pass=>$pwd,
pass_placeholder=>"Password",
charset_test=>'€,´,€,´,?,?,?',
});
if ($res->is_success){
print "#------LOGIN EFFETTUATO CON SUCCESSO----# \n"
}else{
print"\n errore durante il login \n";
}
exec("pause");
Lo script stampa erroe durante il login io ho il presentimento che l'errore sia qua:
charset_test=>'€,´,€,´,?,?,?',
locale=>"it_IT",
email=>$user,
pass=>$pwd,
pass_placeholder=>"Password",
charset_test=>'€,´,€,´,?,?,?',
alla prima e all'ultima questi caratteri: €,´,€,´,?,?,?
comme risolvere?
grazie a tutti