| Vlad&slav |
21.02.2010 18:27 |
Смена пароля ICQ на PERL
Я особо перл не знаю но мне нужно именно на перле.
но хочу написать скрипт для смены паролей на аське.
Написал кое какой говнокод.
Скажите пожалуйста в ту ли я сторону капаю или нет. мб такое уже есть(нужен именно перл) ? help
эсли менять через браузер то :
Цитата:
ICQ - Смена пароля.
Во многих темах сталкивался с вопросами;
Как поменять пароль?
Почему не могу поменять пароль?
Так вот решил написать способ, как поменять пароль в ручном режиме.
1 - В первую очередь проходим по ссылке https://www.icq.com/karma/login_page.php
2 - Входим в систему.
3 - Затем проходим по ссылке https://www.icq.com/support/change_password/
4 - Вводим старый и новый пароль
5 - И жмем сохранить.
Спасибо за внимание.
|
PHP код:
#!/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);
|
