VPF::Авторизация - Форум программистов

od0201

Дата 3.1.2011, 22:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Пытаюсь достучаться к ресурсам (http), защищенным средствами сервера

Код


  $url = 'http://www.site.com/sss/kkk.php' ; 
  $login='sss';
  $password='zzz';
  
  $ua = LWP::UserAgent->new; 
  $ua->cookie_jar({});    
  $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; WebMoney Advisor; .NET CLR 1.1.4322)");
 
  $Request = new HTTP::Request(POST => $url);
  use MIME::Base64;
  $authorization = MIME::Base64::encode_base64($login.':'.$password);
  $Request->header(Authorization => "BASIC $authorization");

  print $ua->request($Request)->content;

каким я только способом не пытался, ничего не получается, в чем прикол? может этот ресурс по особенному защищен, просветите, какие могут быть варианты и как их обойти

при попытке заходить на сайт через браузер

http://log:[email protected]/sss/kkk.php

только через Оперу зашел, Лис и Эксплорер не нашел ресурс

Это сообщение отредактировал(а) od0201 - 3.1.2011, 22:13

arto

Дата 4.1.2011, 08:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

все работает:

# perl -MLWP::UserAgent
$url = 'http://www.site.com/sss/kkk.php' ;
  $login='sss';
  $password='zzz';

  $ua = LWP::UserAgent->new;
  $ua->cookie_jar({});
  $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; WebMoney Advisor; .NET CLR 1.1.4322)");

  $Request = new HTTP::Request(POST => $url);
  use MIME::Base64;
  $authorization = MIME::Base64::encode_base64($login.':'.$password);
  $Request->header(Authorization => "BASIC $authorization");

  print $ua->request($Request)->content;
^D
<h1>Length Required</h1>
#

od0201

Дата 6.1.2011, 04:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

посмотрел заголовок который передает браузер и тупо скопировал его в код

Код


#!"d:\xampp\Perl\bin\perl.exe"
    use CGI::Carp qw(fatalsToBrowser);
    use warnings; 
    use LWP::UserAgent;
    use MIME::Base64;
    
    print "Content-type: text/html\n\n"; 
    print "<meta http-equiv='Content-Type' content='text/html; charset=Windows-1251'>";

    $url = "http://*********.com/*****/***/" ; 
    $login='*******';
    $password='*******';
    $authorization = MIME::Base64::encode_base64($login.':'.$password);

    $ua = LWP::UserAgent->new; 
    my @ns_headers = (
     'Host' => '*********.com',
    'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; WebMoney Advisor; .NET CLR 1.1.4322)',
    'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
    'Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
#   'Accept-Encoding' => 'gzip,deflate',
    'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
    'Keep-Alive' => '300',
    'Connection' => 'keep-alive',
    'Authorization' => 'Basic '.$authorization,
  );

    print $ua->get($url,@ns_headers)->content;

была маленькая проблемка с Accept-Encoding, но удаление дало ожидаемый результат.
В чем была проблема так и не понял
Всем спасибо
smile

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