Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
| | | |
[Perl] еще есть вопросы... 12.10.03 16:34 Число просмотров: 1657
Автор: 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
Как буд-то бы чего-то нехватает... Что делать?
|
|
<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
Как буд-то бы чего-то нехватает... Что делать?
|
| |
[Perl] спасибо! 06.10.03 13:53
Автор: Hux0r Статус: Незарегистрированный пользователь
|
|
|
|
|
подробно о проекте
Анализ криптографических сетевых...
