The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Пример использования Perl модуля Net::SSLeay для создания HTTP->HTTPS прокси (ssl perl proxy)


<< Предыдущая ИНДЕКС Исправить src / Печать Следующая >>
Ключевые слова: ssl, perl, proxy,  (найти похожие документы)
Date: Tue, 30 Ьфк 2008 12:55:26 +0600 From: "Dr.Lector" <drlector@can.com.> Newsgroups: ftn.ru.perl Subject: Пример использования Perl модуля Net::SSLeay для создания HTTP->HTTPS прокси use Net::SSLeay qw(get_https post_https sslcat make_headers make_form); sub get_post_https{ my($uag, $url, $proxy, $referer, $method, @content, $lng) = @_; $proxy =~ m/(.+):(\d+)/; Net::SSLeay::set_proxy($1, $2); $url =~ m#^https://([\.\w\d_-]+)(/.+)#i; $url = $1; $path = $2; my ($html, $resp_status, %resp_heders); if($method eq 'get'){ my $enc_url = url($url); $enc_url->query_form(@content); ($thml, $resp_status, %resp_heders) = get_https($enc_url, 443, $path, make_headers(Pragma => 'no-cache', Accept => '*/*', Accept-Encoding => 'gzip, deflate', Accept-Language => $lng, Referer => $referer, User-Agent => $uag, Proxy-Connection => 'Keep-Alive' ) ); } else{ ($html, $resp_status, %resp_heders) = post_https($url, 443, $path, make_headers(Pragma => 'no-cache', Accept => '*/*', Accept-Encoding => 'gzip, deflate', Accept-Language => $lng, Referer => $referer, User-Agent => $uag, Proxy-Connection => 'Keep-Alive' ), make_form(@cont) ); } return $html if $resp_status =~ m/200/ig; } Hо с куками прейдется руками через make_headers() работать, но думаю это не есть проблема ;)

<< Предыдущая ИНДЕКС Исправить src / Печать Следующая >>

Обсуждение [ RSS ]
  • 1, FireA (??), 16:20, 02/06/2008 [ответить]  
  • +/
    Как эту штуку прикрутить к squid?
     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру