HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу Смена пароля ICQ на PERL
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Смена пароля ICQ на PERL
  #1  
Старый 21.02.2010, 18:27
Vlad&slav
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
С нами: 9135251

Репутация: 82
По умолчанию Смена пароля 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); 
𝕏 Twitter Reddit Telegram Копировать ссылку
Последний раз редактировалось Vlad&slav; 21.02.2010 в 19:09..
 
Ответить с цитированием

  #2  
Старый 23.02.2010, 02:12
ZagZag
Участник форума
Регистрация: 22.02.2007
Сообщений: 213
С нами: 10113007

Репутация: 58
По умолчанию
Если требуется менять много паролей, то советую покурить существующие исходники или отснифить как это делает QIP, к примеру.
В перле сам не шарю
 
Ответить с цитированием

  #3  
Старый 23.02.2010, 12:04
Deathdreams
Постоянный
Регистрация: 08.11.2008
Сообщений: 498
С нами: 9213376

Репутация: 278
По умолчанию
пошёл снифать qip
 
Ответить с цитированием

  #4  
Старый 23.02.2010, 13:09
ZagZag
Участник форума
Регистрация: 22.02.2007
Сообщений: 213
С нами: 10113007

Репутация: 58
По умолчанию
Если работать через протокол ICQ, то сначала нужно авторизоваться.
Процедуру авторизации можно позаимствовать из WebIcqLite (на PHP)
 
Ответить с цитированием

  #5  
Старый 23.02.2010, 13:22
Deathdreams
Постоянный
Регистрация: 08.11.2008
Сообщений: 498
С нами: 9213376

Репутация: 278
По умолчанию
Цитата:
Сообщение от ZagZag  
Если работать через протокол ICQ, то сначала нужно авторизоваться.
Процедуру авторизации можно позаимствовать из WebIcqLite (на PHP)
WebIcq(Lite|Pro) давно сдохли.

Юзаем mlcq, очень удобный и легко переделывается.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Баги icq kuzmich334 Skype, IRC, ICQ, Jabber и другие IM 30 01.08.2010 18:14



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.