VPF::Изменить пароль wi-fi на роутере скриптом

enzo21brn

Дата 7.11.2011, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.11.2011

Репутация: нет
Всего: нет

Добавлено @ 13:00
Переформулировал: Как пройти авторизацию на роутере:

Код


#!/usr/bin/perl
use Net::HTTP;
my $s = Net::HTTP->new(Host => "192.168.1.1") || die $@;
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0"); 
my($code, $mess, %h) = $s->read_response_headers;
 
while (1) {
my $buf;
my $n = $s->read_entity_body($buf, 1024);
die "read failed: $!" unless defined $n;
last unless $n;
print $buf;
}

Но ведь он ж запаролен((
Как логин/пароль то ввести..(, а то -

Код


root@iserver:~/pl# perl test.pl
<HTML><HEAD><TITLE>401 Unauthorized</TITLE></HEAD>
<BODY BGCOLOR="#cc9999"><H4>401 Unauthorized</H4>
Authorization required.
<HR>
<ADDRESS><A HREF="http://www.acme.com/software/micro_httpd/">micro_httpd</A></ADDRESS>
</BODY></HTML>

Это сообщение отредактировал(а) enzo21brn - 7.11.2011, 13:12

Pfailed

Дата 7.11.2011, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

http://en.wikipedia.org/wiki/Basic_access_authentication
А вообще удобнее LWP: http://www.perlmonks.org/?node_id=67692

--------------------

I'm on CPAN
I'm on github

enzo21brn

Дата 7.11.2011, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.11.2011

Репутация: нет
Всего: нет

Pfailed, огромное спасибо что откликнулись, сделал 2-м способом. Теперь буду думать как получить страницу wi-fi security чтобы там ввести пароль и применить его)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »