Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> perl LWP форма ввода 
:(
    Опции темы
alezzz
Дата 7.3.2017, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


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

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



Наверно из-за то, что логин неправильно ввел, меня нет во вконтактике. Ну нет каптчи и хорошо, меньше проблем, смотрите в браузере куда какие запросы отправлять и повторяйте их на perl.
PM MAIL   Вверх
Loki
Дата 8.3.2017, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Ну форма логина во вконтакте такая, как вы сами показали. Только не логинится, что-то. Пароль верный ввожу, а редиректа нет никуда. Но капчи нет никакой.
Код

<form method="POST" name="login" id="quick_login_form" action="https://login.vk.com/?act=login">
    <input type="hidden" name="act" value="login" />
    <input type="hidden" name="role" value="al_frame" />
    <input type="hidden" name="expire" id="quick_expire_input" value="" />
    <input type="hidden" name="captcha_sid" id="quick_captcha_sid" value="" />
    <input type="hidden" name="captcha_key" id="quick_captcha_key" value="" />
    <input type="hidden" name="_origin" value="https://vk.com" />
    <input type="hidden" name="ip_h" value="b77b3d7743e94bb653" />
    <input type="hidden" name="lg_h" value="216ee17c554fdec55b" />
    <div class="label">Телефон или e-mail</div>
    <div class="labeled"><input type="text" name="email" class="dark" id="quick_email" /></div>
    <div class="label">Пароль</div>
    <div class="labeled"><input type="password" name="pass" class="dark" id="quick_pass" onkeyup="toggle('quick_expire', !!this.value);toggle('quick_forgot', !this.value)" /></div>
    <input type="submit" class="submit" />
  </form>

PM MAIL   Вверх
Loki
Дата 28.3.2017, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



up.
Все еще нужна помошь.
PM MAIL   Вверх
Loki
Дата 8.4.2017, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Говорят нужно какие-то специальные данные вносить, вот вывод DataDumper'а:
Код

                 '_request' => bless( {
                                        '_headers' => bless( {
                                                               '::std_case' => {
                                                                                 'cookie2' => 'Cookie2',
                                                                                 'if-ssl-cert-subject' => 'If-SSL-Cert-Subject',
                                                                                 'cookie' => 'Cookie'
                                                                               },
                                                               'user-agent' => 'Mozilla/5.0 (Windows NT 10.0; WOW64; rv:51.0) Gecko/20100101 Firefox/51.0',
                                                               'cookie2' => '$Version="1"',
                                                               'content-length' => 32,
                                                               'cookie' => 'remixlhk=3a386548142f42bbd9; remixlang=0',
                                                               'content-type' => 'application/x-www-form-urlencoded'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'POST',
                                        '_uri' => bless( do{\(my $o = 'https://vk.com/login')}, 'URI::https' ),
                                        '_content' => 'email=%2B79520821519&pass=123Qwe',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' ),
                 '_headers' => bless( {
                                        '::std_case' => {
                                                          'x-powered-by' => 'X-Powered-By',
                                                          'title' => 'Title',
                                                          'client-ssl-socket-class' => 'Client-SSL-Socket-Class',
                                                          'x-meta-msapplication-packagefamilyname' => 'X-Meta-MsApplication-PackageFamilyName',
                                                          'x-ua-compatible' => 'X-UA-Compatible',
                                                          'x-meta-description' => 'X-Meta-Description',
                                                          'strict-transport-security' => 'Strict-Transport-Security',
                                                          'client-ssl-cert-subject' => 'Client-SSL-Cert-Subject',
                                                          'client-date' => 'Client-Date',
                                                          'refresh' => 'Refresh',
                                                          'x-frame-options' => 'X-Frame-Options',
                                                          'x-meta-msapplication-id' => 'X-Meta-MsApplication-ID',
                                                          'link' => 'Link',
                                                          'client-peer' => 'Client-Peer',
                                                          'client-response-num' => 'Client-Response-Num',
                                                          'client-ssl-cert-issuer' => 'Client-SSL-Cert-Issuer',
                                                          'set-cookie2' => 'Set-Cookie2',
                                                          'set-cookie' => 'Set-Cookie',
                                                          'client-ssl-cipher' => 'Client-SSL-Cipher'
                                                        },
                                        'client-ssl-cipher' => 'ECDHE-RSA-AES256-GCM-SHA384',
                                        'set-cookie' => 'remixtst=DELETED; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/; domain=.vk.com',
                                        'pragma' => 'no-cache',
                                        'connection' => 'close',
                                        'content-length' => '17123',
                                        'client-ssl-cert-issuer' => '/C=US/ST=Arizona/L=Scottsdale/O=GoDaddy.com, Inc./OU=http://certs.godaddy.com/repository//CN=Go Daddy Secure Certificate Authority - G2',
                                        'date' => 'Sat, 08 Apr 2017 06:54:36 GMT',
                                        'server' => 'Apache',
                                        'client-peer' => '95.213.11.180:443',
                                        'content-type' => 'text/html; charset=windows-1251',
                                        'client-response-num' => 1,
                                        'refresh' => '0; URL=/badbrowser.php',
                                        'link' => [
                                                    '</images/icons/favicons/fav_logo.ico?5>; rel="shortcut icon"',
                                                    '</images/safari_60.png?1>; rel="apple-touch-icon"',
                                                    '</images/safari_76.png?1>; rel="apple-touch-icon"; sizes="76x76"',
                                                    '</images/safari_120.png?1>; rel="apple-touch-icon"; sizes="120x120"',
                                                    '</images/safari_152.png?1>; rel="apple-touch-icon"; sizes="152x152"',
                                                    '</css/al/fonts_cnt.css?2889730895>; rel="stylesheet"; type="text/css"',
                                                    '</css/al/common.css?25638623088>; rel="stylesheet"; type="text/css"',
                                                    '</css/al/login.css?21504915349>; rel="stylesheet"; type="text/css"',
                                                    '</css/al/ui_common.css?15138442166>; rel="stylesheet"; type="text/css"'
                                                  ],
                                        'x-meta-msapplication-id' => 'C6965DD5.VK',
                                        'x-frame-options' => 'deny',
                                        'client-ssl-cert-subject' => '/OU=Domain Control Validated/CN=*.vk.com',
                                        'client-date' => 'Sat, 08 Apr 2017 06:54:39 GMT',
                                        'x-ua-compatible' => 'IE=edge',
                                        'x-meta-description' => '',
                                        'strict-transport-security' => 'max-age=0',
                                        'x-powered-by' => 'PHP/3.12434',
                                        'client-ssl-socket-class' => 'IO::Socket::SSL',
                                        'x-meta-msapplication-packagefamilyname' => 'C6965DD5.VK_v422avzh127ra',
                                        'title' => '┬їюф | ┬╩юэЄръЄх',
                                        'cache-control' => 'no-store'
                                      }, 'HTTP::Headers' ),
                 '_rc' => '200'
               }, 'HTTP::Response' );

Сам скрипт на perl, каких данных не хватает?
Код

use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Encode qw(decode encode);
use Data::Dumper;
#use HTTP::Request::Common qw(GET POST);
#use MIME::Base64 qw(encode_base64);

    my $cookie_jar = HTTP::Cookies->new( 
     file => 'lwp_cookies.txt',
     autosave => 1,
     ignore_discard => 1,
   );

    my $ua = LWP::UserAgent->new(
        ssl_opts => { verify_hostname => 1 }, 
        cookie_jar => $cookie_jar,
        );
                    #$ua->timeout(10);
                    $ua->agent('Mozilla/5.0 (Windows NT 10.0; WOW64; rv:51.0) Gecko/20100101 Firefox/51.0');
     #my $response = $ua->post('https://vk.com/login', { email => '[email protected]', pass => 'pass' } )->as_string; 
     my $response = $ua->post('https://vk.com/login', #https://login.vk.com/?act=login
                    [
                    email => '[email protected]',
                    pass => 'pass'
                   ],
                    );

print Dumper($response);
                    
 if ($response->is_success) {
     #print $response->decoded_content;
     print encode("cp866", $response->decoded_content);
     print "1111\n";
 }
 else {
     die $response->status_line;
 }


1;

PM MAIL   Вверх
arto
Дата 12.4.2017, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Не хватает "hidden fields" например.
Надо выяснить, как работает js со страницей.
PM MAIL ICQ   Вверх
Loki
Дата 19.4.2017, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Ну они заполнены вот так вот с номером телефона:
Код

    <input type="hidden" name="act" id="act" value="login">
    <input type="hidden" name="to" id="to" value=""/>
    <input type="hidden" name="expire" id="expire_input" value="" />
    <input type="hidden" name="_origin" value="https://vk.com" />
    <input type="hidden" name="ip_h" value="ce75412fff540a9f6d" />
    <input type="hidden" name="lg_h" value="8db7b2b04ef30a4eee" />
    <input type="text" class="big_text" name="email" id="email" value="+7952xxxxxxx" placeholder="╥хыхЇюэ шыш e-mail" />

Как определить какие нужны?

Это сообщение отредактировал(а) Loki - 19.4.2017, 13:54
PM MAIL   Вверх
arto
Дата 19.4.2017, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



все поля посылаются, которые относятся к текущей форме.
и повторю, необходимо разобраться с js, oн может модифицировать значения в hidden fields.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.1678 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.