Форум АНТИЧАТ - Authorization: Basic

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Authorization: Basic (https://forum.antichat.xyz/showthread.php?t=42706)

Authorization: Basic

Запрос к скрипту идёт следующий

Код:

GET http://***/cgi-bin/user_info.cgi HTTP/1.0

Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*

Accept-Language: ru-ru

Authorization: Basic eHh4QHh4eDoxMjM0NTY=

User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01709))

Host: xxx.xxx.xxx.xxx

Proxy-Connection: Keep-Alive

скрипт на perl

Код:

#!с:/perl/bin/perl.exe

print "Content-type: text/html\n\n"; 

foreach $key( keys( %ENV ) ) { 

   print "$key - $ENV{ $key } <br>\n"; 

}

Выдает следующий результат

Код:

CHARSET_HTTP_METHOD - http://

QUERY_STRING - 

HTTP_ACCEPT_LANGUAGE - ru-ru

SERVER_PROTOCOL - HTTP/1.0

CHARSET_SERVER_PORT - 80

HTTP_CONNECTION - Keep-Alive

SERVER_SIGNATURE - 

Apache/1.3.3 Server at xxx.xxx.xxx.xxx Port 80



REMOTE_PORT - 1089

HTTP_ACCEPT - image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*

GATEWAY_INTERFACE - CGI/1.1

HTTP_HOST - xxx.xxx.xxx.xxx

SERVER_SOFTWARE - Apache/1.3.3 (Unix) PHP/3.0.5 rus/PL27.3

SERVER_ADMIN - www@localhost

REMOTE_USER - xxx@xxx

REMOTE_ADDR - xxx.xxx.xxx.xxx

SCRIPT_NAME - /home/cgi-bin/user_info.cgi

SERVER_NAME - xxx.xxx.xxx.xxx

DOCUMENT_ROOT - /usr/local/apache/htdocs

REQUEST_URI - /home/cgi-bin/user_info.cgi

REQUEST_METHOD - GET

CHARSET - windows-1251

SCRIPT_FILENAME - /usr/local/apache/htdocs/home/cgi-bin/user_info.cgi

SOURCE_CHARSET - koi8-r

PATH - /sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin

CHARSET_SERVER_NAME - stats.ru:80

AUTH_TYPE - Basic

SERVER_PORT - 80

так и не пойму а где же пароль от Authorization: Basic
как его получить?

Authorization это не переменная окружения, а заголовок HTTP запроса
Получить его можно через LWP или вынимать регулярками если через сокеты работаешь

Я работаю так:
1. запрашиваю страницу
2. проверяю необходимость аутентификации

Код:

if(exists $res->{_headers}->{'www-authenticate'}) { ... }

3. вынимаю название реалма для аутентификации

Код:

$res->{_headers}->{'www-authenticate'}=~/basic realm=\"(.+?)\"/i || return 0;

my $realm=$1;

3. отправляю запрос с аутенфикацией

Код:

$ua->credentials($target.":80",$realm,login=>'password');

$res=$ua->get($target);

меня наверное неправильно поняли.
Я запрашиваю страницу, на ней
Я ввожу имя и пароль нажимаю ОК
теперь скрипт должен получить это имя и пароль
и записать в файл(это не важно, мне нужно их хотябы получить)

Я просто практически не разбираюсь в Perl