VPF::Вопрос по авторизации с помощью LWP 5.64

itrex111

Дата 2.2.2013, 02:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 30.1.2012

Репутация: нет
Всего: нет

Добрый день!
Пытаюсь с помощью небольшого скрипта залогинится на гугль но ничего не получается в ответ возвращается форма с для ввода логина и пароля.

Код


#! /usr/bin/perl
use CGI;
use LWP 5.64;
use HTTP::Cookies;

$email = '[email protected]';
$pass = 'qwerty';

$url = 'https://accounts.google.com/ServiceLoginAuth';
@par = ('Email' => $email, 'Passwd' => $pass,);

$cookie_jar = HTTP::Cookies->new(
                                  'file'     => '/tmp/cookie.lwp',
                                  'autosave' => 1,
                                   );

$browser = LWP::UserAgent->new;
$browser->cookie_jar( $cookie_jar );

$reg = $browser->post( $url, [ @par ],
                       'Host'            =>  'accounts.google.com',
                       'Accept-encoding' => '*/*',
                       'Content-Type'    =>  'application/x-www-form-urlencoded; charset=UTF-8',
                       'User-Agent'      =>  'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16',
                       'Accept'          =>  'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
                          );
                       
print "Content-type: text/html\n\n";
print $reg->content;

Что может быть не так ???

Это сообщение отредактировал(а) itrex111 - 2.2.2013, 02:28

arto

Дата 3.2.2013, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

не все параметры передаёте в запросе.

itrex111

Дата 3.2.2013, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 30.1.2012

Репутация: нет
Всего: нет

Цитата(arto @ 3.2.2013, 09:42)

не все параметры передаёте в запросе.

Если Вас не затруднит подскажите как определить каких параметров не хватает?

arto

Дата 3.2.2013, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

# GET -H"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16" https://accounts.google.com/ServiceLoginAuth | perl -0777 -lne 'while (m#<INPUT.*?>#gsmi) { print $& =~ s#\s+# #gsmir, "\n" }'
<input type="hidden" name="dsh" id="dsh" value="7057504423645107772" >
<input type="hidden" name="GALX" value="QcTOzHb_EIw">
<input type="hidden" id="pstMsg" name="pstMsg" value="0">
<input type="hidden" id="dnConn" name="dnConn" value="">
<input type="hidden" id="checkConnection" name="checkConnection" value="">
<input type="hidden" id="checkedDomains" name="checkedDomains" value="youtube">
<input type="hidden" name="timeStmp" id="timeStmp" value=''/>
<input type="hidden" name="secTok" id="secTok" value=''/>
<input type="hidden" id="_utf8" name="_utf8" value="☃"/>
<input type="hidden" name="bgresponse" id="bgresponse" value="js_disabled">
<input type="email" spellcheck="false" name="Email" id="Email" value="" >
<input type="password" name="Passwd" id="Passwd" >
<input type="submit" class="g-button g-button-submit" name="signIn" id="signIn" value="Sign in">
<input type="checkbox" name="PersistentCookie" id="PersistentCookie" value="yes" checked="checked" >
<input type="hidden" name="rmShown" value="1">
#

часть параметров вычисляется через javascript, часть js обфусцирована.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »