информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Все любят медСетевые кракеры и правда о деле ЛевинаСтрашный баг в Windows
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
[Perl] спасибо! 06.10.03 13:53  Число просмотров: 1377
Автор: Hux0r Статус: Незарегистрированный пользователь
<"чистая" ссылка>
<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-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach