ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
21.02.2010, 18:27
|
|
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404
Репутация:
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);
Последний раз редактировалось Vlad&slav; 21.02.2010 в 19:09..
|
|
|
23.02.2010, 02:12
|
|
Участник форума
Регистрация: 22.02.2007
Сообщений: 213
Провел на форуме:
388345
Репутация:
58
|
|
Если требуется менять много паролей, то советую покурить существующие исходники или отснифить как это делает QIP, к примеру.
В перле сам не шарю
|
|
|
|
23.02.2010, 12:04
|
|
Постоянный
Регистрация: 08.11.2008
Сообщений: 498
Провел на форуме:
2603363
Репутация:
278
|
|
пошёл снифать qip
|
|
|
|
23.02.2010, 13:09
|
|
Участник форума
Регистрация: 22.02.2007
Сообщений: 213
Провел на форуме:
388345
Репутация:
58
|
|
Если работать через протокол ICQ, то сначала нужно авторизоваться.
Процедуру авторизации можно позаимствовать из WebIcqLite (на PHP)
|
|
|
|
23.02.2010, 13:22
|
|
Постоянный
Регистрация: 08.11.2008
Сообщений: 498
Провел на форуме:
2603363
Репутация:
278
|
|
Сообщение от ZagZag
Если работать через протокол ICQ, то сначала нужно авторизоваться.
Процедуру авторизации можно позаимствовать из WebIcqLite (на PHP)
WebIcq(Lite|Pro) давно сдохли.
Юзаем mlcq, очень удобный и легко переделывается.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
