Форум АНТИЧАТ - Смена пароля ICQ на PERL

Смена пароля ICQ на PERL

21.02.2010, 18:27

Vlad&slav

Участник форума

Регистрация: 01.01.2009

Сообщений: 138

Провел на форуме:
817404

Репутация: 82

Отправить сообщение для Vlad&slav с помощью ICQ

Смена пароля 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);

Последний раз редактировалось Vlad&slav; 21.02.2010 в 19:09..