VPF::Смена пароля ICQ на PERL - Форум программистов

Nuller

Дата 21.2.2010, 18:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Я особо перл не знаю но мне нужно именно на перле.
но хочу написать скрипт для смены паролей на аське.
Написал кое какой ###код.
Скажите пожалуйста в ту ли я сторону капаю или нет. мб такое уже есть(нужен именно перл) ? help
user posted image

эсли менять через браузер то :

Цитата

ICQ - Смена пароля.
Во многих темах сталкивался с вопросами;
Как поменять пароль?
Почему не могу поменять пароль?
Так вот решил написать способ, как поменять пароль в ручном режиме.
1 - В первую очередь проходим по ссылке https://www.icq.com/karma/login_page.php
2 - Входим в систему.
3 - Затем проходим по ссылке https://www.icq.com/support/change_password/
4 - Вводим старый и новый пароль
5 - И жмем сохранить.
Спасибо за внимание.

Цитата

#!/usr/bin/perl
use LWP::UserAgent;
use CGI qw(header -no_debug);
use HTTP::Cookies;

my $log =  '123456';  #юин
my $password =  '123456';  #пас
my $new_password =  '1234567890';  #пас

my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10');
$ua->cookie_jar($cookies);

my $req = '';

$req = $ua->post('https://www.icq.com/karma/login_page.php',
{ uin_email => $log,
   password => $password
} )->as_string;             #логинимся
print " Zaloginilis ($log;$password)\n";
  sleep(3);
$req = $ua->post('https://www.icq.com/support/change_password/process.php',
{ act => 'change_pass',
   lname => "null",
   uin => $log,
   old_password => $password,
   new1_password => $new_password,
   new2_password => $new_password
} )->as_string;             # меняем пас
print " Smenili parol ($log;$new_password)\n";
#$req = $ua->get('https://www.icq.com/support/')->as_string;
#my $r = $req =~ //;

sleep(999999999);

Это сообщение отредактировал(а) Nuller - 21.2.2010, 19:17

arto

Дата 21.2.2010, 18:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

perldoc WWW::Mechanize
или
perldoc Net::OSCAR

Nuller

Дата 21.2.2010, 18:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(arto @ 21.2.2010, 18:21)

perldoc WWW::Mechanize
или
perldoc Net::OSCAR

оскар это не актуально, сейчас только через веб интерфейс, помогите с кодом пожалуйсто smile

arto

Дата 21.2.2010, 19:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

50€/h

dva300

Дата 22.2.2010, 16:57 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

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

to Nuller :
логически немного не так - для начала надо сделать get страницы ввода логина и пароля потому как почти всегда этими двумя параметрами дело не заканчивается. если вы посмотрите параметры формы то сможете увидеть 6! передаваемых параметров. т.е. на первом этапе стоит get страницы и получение параметров передаваемых форме.

to arto :
если человек новичок то это не значит что с него надо брать деньги.

задача тривиальная

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

Участник движения Культура Вождения

arto

Дата 22.2.2010, 17:06 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

если человек не хочет сам сделать тривиальную задачу, то с него обязательно надо снять денег.

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