Нужен брут icq (делфи)

[PorTal.Pro]

Буду очень благодарен если кто то выложит исходник ...в гугле ниче путёвого не нашел

[FenTaylor]

Если Вы хотите использовать компонент TIcqClient (обычно его имеют в виду, когда упоминают icq (в Delphi)), который, кстати, остался рабочим, после обновления протокола, то алгоритм написания брутфорса сразу представляется таким...

Т.к. число потоков большое (должно быть для успешного брута) - создается массив в котором будут лежать компоненты

var
myarray:array [0..X] of Ticqclient;


где x, кол-во потоков... Затем создаем необходимое кол-во "потоков", так скажем.

for i := 0 to high(myarray) do
myarray[i]:=Ticqclient.create(nil);
....

И далее присваиваем компонентам необходимые свойства (уин, пасс, прокси, из файла), обращаясь к ним, через их индекс, типа:

myarray[i].UIN:=UIN;
myarray[i].password:=sl.strings[i];
// sl тут стринглист, в которые загружен файл с паролями.


А так как у Ticqclient легко обрабатываются все события, то очевидно, если пытаясь залогинится (тот же вызов процедуры, указывая индекс компонента), провоцируем OnLogin - запишем валидный пароль в <...куда угодно...>, если ConnectionFailed - вычеркиваем пароль из базы и присваиваем следующий, по порядку.

Это к тому, что простенький брутфорс написать - одна банка пива.

А поиск исходников брутфорса Icq на Delphi действительно, не дал результата.

Но вот исходник брутфорса на си (в схожей теме выкладывали уже):

http://zbrute.antichat.ru/wzbrute_sources/

Надеюсь, будет полезен... Но, думается, написать программу, которая будет лучше и быстрее готовых продуктов - очень и очень трудная, и, в добавок, не рентабельная задача... В любом случае - удачи =)

[_GlaD1aT(OR)_]

Если Вы хотите использовать компонент TIcqClient (обычно его имеют в виду, когда упоминают icq (в Delphi)), который, кстати, остался рабочим, после обновления протокола, то алгоритм написания брутфорса сразу представляется таким...

Т.к. число потоков большое (должно быть для успешного брута) - создается массив в котором будут лежать компоненты

var
myarray:array [0..X] of Ticqclient;


где x, кол-во потоков... Затем создаем необходимое кол-во "потоков", так скажем.

for i := 0 to high(myarray) do
myarray[i]:=Ticqclient.create(nil);
....

И далее присваиваем компонентам необходимые свойства (уин, пасс, прокси, из файла), обращаясь к ним, через их индекс, типа:

myarray[i].UIN:=UIN;
myarray[i].password:=sl.strings[i];
// sl тут стринглист, в которые загружен файл с паролями.


А так как у Ticqclient легко обрабатываются все события, то очевидно, если пытаясь залогинится (тот же вызов процедуры, указывая индекс компонента), провоцируем OnLogin - запишем валидный пароль в <...куда угодно...>, если ConnectionFailed - вычеркиваем пароль из базы и присваиваем следующий, по порядку.

Это к тому, что простенький брутфорс написать - одна банка пива.

А поиск исходников брутфорса Icq на Delphi действительно, не дал результата.

Надеюсь, будет полезен... Но, думается, написать программу, которая будет лучше и быстрее готовых продуктов - очень и очень трудная, и, в добавок, не рентабельная задача... В любом случае - удачи =)

Ну это самое-самое начало