Воскресенье, 05.02.2012, 16:33 Приветствую вас Гость | Группа "Гости" 


[ Главная · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: gravitas  
delfcode » Программирование » Вопросы по Delphi » Перебор паролей для ICQ (Не работает)
Перебор паролей для ICQ
sk0rpi0n Дата: Вторник, 31.01.2012, 17:55 | Сообщение # 1
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
В общем, захотелось мне написать программу для перебора паролей из текстового файла для определенного ICQ номера... Поставил компонент TICQ вроде версии 1.35.1, потратил пару часиков на код программы(всё, что мне нужно было оформил и закодил, интерфейс полностью рабочий и без багов), но тем не менее не работает, вот код "блока" проверки:
Code
for i:=1 to p do begin
  readln(s, f);
  ProgressBar1.Position:=i;
  IcqClient1.UIN:=nomer;
  IcqClient1.Password:=f;
  ICQClient1.Login();
  Sleep(500); //вот тут я думаю нужно время ожидания подключения ставить какое то что-ли, не знаю...
  if ICQClient1.LoggedIn then begin
   Edit3.Enabled:=true;
   Edit3.Text:=f; //собственно, если залогинились, то пасс пишется в отдельный edit, но нифига не происходит.
   x:=true;
   break;
  end;
  end;


В общем, вот. Ставил время Sleep разное, вообще его убирал - всё равно - не получается. Проверял с одним паролем на аське с эти же паролем(проверял - войдет ли вообще), но нифига, не хочет логиниться даже.. Кто подскажет, в чём проблема может быть?

C++ - попса :D
 
dolphin Дата: Вторник, 31.01.2012, 20:28 | Сообщение # 2
Администратор
Группа: Администраторы
Сообщений: 816
Статус: Offline
Дело в том что слип не поможет, потому что ты не можешь знать сколько времени понадобится на конект - 5 секунд или 30, яркий тому пример попробуй запустить свою аську несколько раз и каждый раз время подключения будет разным. Не так давно занимался подобны алгоритмом но для подключения в одной программе сразу с нескольких номеров. Алгоритм примерно такой - Ждёшь до тех пор пока либо пройёт 60 секунд либо ConnectionFailed либо LoggedIn и соответственно потом судишь о результате.

+upd
Не забывай включать в юзес ICQWorks иначе не удешевишь при проверке свой номерок в онлайне. Рабочий компонент для д7 можно скачать тут



Я не профессионал, я всего лишь любитель.
Я не вредитель, я всего лишь теоретик.


Сообщение отредактировал dolphin - Вторник, 31.01.2012, 20:32
 
sk0rpi0n Дата: Вторник, 31.01.2012, 20:35 | Сообщение # 3
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
Спасибо, сейчас буду пробовать.

UPD:
Кхм, а как сделать-то такую проверку( пока не залогинится или пока серв не скажет "неправильный пароль" либо пройдёт 60 сек)?
(мб можно таймером, но я не уверен)...

C++ - попса :D

Сообщение отредактировал sk0rpi0n - Вторник, 31.01.2012, 20:50
 
dolphin Дата: Вторник, 31.01.2012, 20:59 | Сообщение # 4
Администратор
Группа: Администраторы
Сообщений: 816
Статус: Offline
Можно и через таймер наверно, но лично я делал в цикле.

Я использовал цикл repeat ... until ... , но там можно и while true do это уже как кому нравится, мне например первый). Кстати форма будет немного подвисать, но это можно исправить с помощью потока.



Я не профессионал, я всего лишь любитель.
Я не вредитель, я всего лишь теоретик.
 
sk0rpi0n Дата: Вторник, 31.01.2012, 21:13 | Сообщение # 5
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
Я тоже думал, что можно и через цикл, щас даже пытался, но что-то туплю, не пойму как реализовать... biggrin
А через таймер это муть вообще, лучше не буду к этому прибегать.

C++ - попса :D
 
vvova15 Дата: Среда, 01.02.2012, 05:46 | Сообщение # 6
Частый гость
Группа: Проверенные
Сообщений: 67
Статус: Offline
а не лучше реализовать поддержку протокола icq, исключить все, что не нужно для авторизации и максимально ускорить процесс брута?
вот описание oskar-протокола. используются чаще всего для написания поддержки icq http://iserverd.khstu.ru/oscar/
+ можено сделать поддержку socks5 - она за полчаса делается, т.к. протокол примитивный и будет твой брутер с поддержкой proxy


ICQ 185-398
 
sk0rpi0n Дата: Среда, 01.02.2012, 12:57 | Сообщение # 7
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
Quote
а не лучше реализовать поддержку протокола icq, исключить все, что не нужно для авторизации и максимально ускорить процесс брута?

Лучше, разумеется, но вряд ли у меня выйдет.
Quote
можено сделать поддержку socks5

Я знаю, что прокси нужны полюбому, и собирался сделать что-то такое, но пока тоже ещё не думал как.

В общем, щас проверил со своим паролем и своей аськой вот так:
Code
while (ICQClient1.LoggedIn=false)

Нифига не логинится =\
Сделал отдельно пустую форму для теста, проверил там - логинится... Ничего не пойму... dry

C++ - попса :D

Сообщение отредактировал sk0rpi0n - Среда, 01.02.2012, 13:19
 
dolphin Дата: Среда, 01.02.2012, 22:42 | Сообщение # 8
Администратор
Группа: Администраторы
Сообщений: 816
Статус: Offline
ОФФ


Да и зачем усложнять? Я так понял что человек не брутфорс пишет, а просто перебрать пароли хочет. Поправьте меня если не так.

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



Я не профессионал, я всего лишь любитель.
Я не вредитель, я всего лишь теоретик.


Сообщение отредактировал dolphin - Четверг, 02.02.2012, 11:09
 
sk0rpi0n Дата: Четверг, 02.02.2012, 14:12 | Сообщение # 9
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
Quote
Без основной части кода я думаю вряд ли смогу конкретно помочь, а сидеть додумывать что у вас там может быть или самому писать как то не хочется.

В прикрепленном архиве всё есть вроде. Правда я убрал цикл, и вернул всё как есть, т.к. не получилось правильно сделать.
Прикрепления: Project1.rar(7Kb)


C++ - попса :D

Сообщение отредактировал sk0rpi0n - Четверг, 02.02.2012, 14:14
 
dolphin Дата: Четверг, 02.02.2012, 17:27 | Сообщение # 10
Администратор
Группа: Администраторы
Сообщений: 816
Статус: Offline
Ну вот немного переработал, +изменил в соответствии со своей логикой работу с количеством попыток, дизайнчик happy , ну там если не понравится переделаешь, работать стало, но есть что доработать!

1. Если попыток больше 5 - 10 то нужно ставить таймаут иначе сервер асику забанит твой ип на несколько минут и пока бан не кончится бутет приходить результат попытки - фалед.

2. Нужно перебирать в потоке всётаки, тк форму нельзя закрыть пока идёт троллинг, нельзя остановить и тд и др проблемы отсюда.

Если хотябы эти 2 пункта реализовать получится довольно неплохая программка smile
Прикрепления: 3829578.rar(3Kb)




Я не профессионал, я всего лишь любитель.
Я не вредитель, я всего лишь теоретик.
 
sk0rpi0n Дата: Четверг, 02.02.2012, 17:38 | Сообщение # 11
Участник
Группа: Пользователи
Сообщений: 19
Статус: Offline
Спасибо! На счёт первого пункта я знаю, мб решится проксями, а над вторым ещё подумаю. smile

C++ - попса :D
 
delfcode » Программирование » Вопросы по Delphi » Перебор паролей для ICQ (Не работает)
Страница 1 из 1 1
Поиск:
delfcode.ru © 2008 - 2012 Хостинг от uCoz