Forum Webscript.Ru

Программирование => Perl => Тема начата: Troum от 12 Июня 2003, 16:54:35

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 12 Июня 2003, 16:54:35

Остро встал такой вопрос. Perl - скрипт должен стукануться по https на некий хост и получить некий ответ. https - авторизация по CA ключу. Я наивно думаю, что все вопросы автризации Apache+SSL берет на себя. Или же существует сертификат скрипта и авторизацию надо делать программно ? (как мне сказали)?
Помогите разобраться

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 12 Июня 2003, 19:13:52

Приношу извинения за некорректно поставленный вопрос. Раз скрипт выстуапет клиентом, то речь идет о сертификате клиента. Сколько я понял, данную задачу решает модуль Net::SSLeay, но вот разобраться в его мануале немного трудновато. Може кто примером подсобит

Название: Запрос скриптом по https + сертификация
Отправлено: Chs от 13 Июня 2003, 20:32:46

perldoc lwpcook в в части запроса https.
Только libwwwperl не работает по https через проски.

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 13 Июня 2003, 20:36:51

Вопрос в том, что доступ на хост по https должен сопровождаться авторизацией CA сертификата клиента (скрипта). LWP этого не делает, а делает только Net::SSLeay. Вот с ним и борюсь, но мануал какой-то запутаный, по моему.

Название: Запрос скриптом по https + сертификация
Отправлено: Alone от 13 Июня 2003, 21:10:51

LWP это далает... "с помощью" Crypt::SSLeay

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 13 Июня 2003, 21:13:27

а не можешь пример рабочий выожить?

Название: Запрос скриптом по https + сертификация
Отправлено: Alone от 14 Июня 2003, 17:33:31

:)
 $request = new HTTP::Request(\'GET\', "https://...");
 $response = $ua->request($request);
 if ($response->is_success)
 {
  $res=$response->content;
 }
 else {print $response ->status_line; }

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 16 Июня 2003, 12:55:26

Спасибо, конечно
но не видно реализации авторизации (рифма однако :)
дело в том, что авторизация клиентского сертификата требует (как я понял) отсылки файлов сертификата и ключа
в доке увидел следующее решение

use Net::SSLeay qw(get_https);
($page, $result, %headers) = get_https($host, 443, \'/\', \'\',\'\',\'\', $path_to_crt, $path_to_key);

Однако, тестируя это, получаю ошибку, о превышении количества аргументов в get_https
А может версия модуля у них (хостеров) старовата?
Документация для версии 1.22

Название: Запрос скриптом по https + сертификация
Отправлено: NeoNox от 16 Июня 2003, 14:09:25

http://www.bacus.pt/Net_SSLeay/Net_SSLeay.txt

Название: Запрос скриптом по https + сертификация
Отправлено: Chs от 16 Июня 2003, 15:23:23

Эээээ...libwwwperl сама цепляет Crypt::SSLeay в случае запроса https, так что не надо искать себе лишних проблем.:)

Название: Запрос скриптом по https + сертификация
Отправлено: PROnya от 17 Июня 2003, 10:19:15

Цитата из книги Линкольна Штайна "Разработка сетевых программ на Perl" (глава по LWP): "Для использования протокола HTTPS (защищенного протокола HTTP) необходимо установить один из модулей SSL языка Perl, IO::Socket::SSL, а также OpenSSL, библиотеку SSL с открытым исходным кодом, необходимую для работы модуля IO:Socket::SSL. Библиотеку OpenSSL можно получить по адресу http://www.openssl.org".

Название: Запрос скриптом по https + сертификация
Отправлено: Troum от 17 Июня 2003, 17:49:12

Всем спасибо, вроде разобрался