информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
За кого нас держат?Где водятся OGRыВсе любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] возникли вопросы... 06.10.03 18:42  Число просмотров: 1424
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Я хожу через прокси с авторизацией. А куда можно впихнуть строку своего пароля типа "Proxy-Authorization: Basic cGF2ZWw6bG9ja3k=" ? сразу же после метода GET?
И еще вопрос, после соединения с сервером, каким образом получить от него ответ?
... 
if ($res->is_success) {# Соединение установлено
       print $res->as_string;
# Сделать цикл while? 
while(<чего-то там>)
{
print;
}
  }
...

---
<programming>
[Perl] Как создать соединение с сервером через https? 06.10.03 09:13  
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Необходимо сделать скрипт типа tcp-клиента, который бы осуществлял соединение с сервером через https ssl. Насколько я понимаю, через простое создание сокета это не сработает. Говорят нужен какой-то модуль или dll-ка для работы через ssl соединение.
Подскажите как быть?
[Perl] Как создать соединение с сервером через https? 06.10.03 09:55  
Автор: choor Статус: Elderman
<"чистая" ссылка>
Тоже сталкивался с этим, но всё решаемо.
Соединение нужно проводить через модуль LWP
  use LWP::UserAgent;
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET => 'https://localhost/');
  my $res = $ua->request($req);
  if ($res->is_success) {
      print $res->as_string;
  } else {
      print "Failed: ", $res->status_line, "\n";
  }


---
[Perl] возникли вопросы... 06.10.03 18:42  
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Я хожу через прокси с авторизацией. А куда можно впихнуть строку своего пароля типа "Proxy-Authorization: Basic cGF2ZWw6bG9ja3k=" ? сразу же после метода GET?
И еще вопрос, после соединения с сервером, каким образом получить от него ответ?
... 
if ($res->is_success) {# Соединение установлено
       print $res->as_string;
# Сделать цикл while? 
while(<чего-то там>)
{
print;
}
  }
...

---
[Perl] возникли вопросы... 06.10.03 19:57  
Автор: dl <Dmitry Leonov>
<"чистая" ссылка>
> Я хожу через прокси с авторизацией. А куда можно впихнуть
> строку своего пароля типа "Proxy-Authorization: Basic
> cGF2ZWw6bG9ja3k=" ? сразу же после метода GET?

perldoc HTTP::Headers

$h = HTTP::Headers->new;
$h->header('Proxy-Authorization: ' => '........');
или готовый метод proxy_authorization
$r = HTTP::Request->new(GET, "http://www.......", $h);
...

> И еще вопрос, после соединения с сервером, каким образом
> получить от него ответ?
>
> ... 
> if ($res->is_success) {# Соединение установлено
>        print $res->as_string;
> # Сделать цикл while? 
> while(<чего-то там>)
> {
> print;
> }
>   }
> ...
> 

---


Все в $res лежит. perldoc HTTP::Response
[Perl] еще есть вопросы... 12.10.03 16:34  
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Спасибо с авторизацией. Скрипт выглядит так:
 
 #!/usr/bin/perl
  $name="Pavel"; 
  $password="locky";
  use LWP::UserAgent;
  my $UserAgent = LWP::UserAgent->new;
  $UserAgent->proxy('http','http://192.168.0.2:3128');
  $UserAgent->agent("MoZilla 9.0 (non-compatible; MSIE 9.3; PalmOS)");
  use MIME::Base64;
  $authorization = MIME::Base64::encode_base64("$name:$password");
  my $Headers = HTTP::Headers->new; 
  $Headers = new HTTP::Headers(Referer => "www.test.com");
  $Headers = new HTTP::Headers(Authorization => "BASIC $authorization");
  my $Request = HTTP::Request->new(GET => 'https://securexxx.com/transact.asp', $Headers);
  my $Request = $UserAgent->request($Request);
  if ($Request->is_success) {
      print $Request->as_string;
  } else {
      print "Failed: ", $Request->status_line, "\n";
  }

---

Но упорно не хочет работать через HTTPS? пишет что:
Failed: 501 Protocol scheme 'https' is not supported
Как буд-то бы чего-то нехватает... Что делать?
возможно это поможет 12.10.03 17:54  
Автор: Eugene Статус: Незарегистрированный пользователь
<"чистая" ссылка>
http://dbforums.com/arch/95/2003/7/834839
http://forums.devshed.com/archive/6/2001/11/3/24980

и вообще
http://www.google.com.ua/search?q=Failed%3A+501+Protocol+scheme+%27https%27+is+not+supported&ie=windows-1251&hl=uk&btnG=%CF%EE%F8%F3%EA+%F3+Google&meta=
[Perl] спасибо! 06.10.03 13:53  
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach