Дописываю icq брут - нужен ваш мозг

[kakawkin]

От нечего делать решил написать ICQ brutforce - знаю что не легко сделать и будут ошибки + у меня свободного времени много и из-за этого взял его написать

Хочу сделать чтобы отправка писем была не через 1 компонент а каждое письмо через свой.

Memo1 содержит список uin;pass
Фукция uinandpass - извлекает из Memo1.Lines[i] значение uin и значение pass


Вот таким способов я создаю и отправляю месаги компонентиками:

var i,a:integer;Arr:array of TICQClient;
begin
 a:=Memo1.Lines.Count;
 SetLength(Arr,a);
 for i:=0 to a do
  begin
   uinandpass(i);
   Arr[i]:=TICQClient.Create(self);
   Arr[i].UIN:=strtoint(uin);
   Arr[i].Password:=pass;
   Arr[i].OnLogin:=Form1.ICQLogin;
   Arr[i].OnError:=ICQError;
   Arr[i].Login;

А вот собственно функция ICQLogin;

procedure TForm1.ICQLogin(Sender:TObject);
begin
  (Sender as TICQClient).SendMessage(666666,'))))');
  (Sender as TICQClient).Disconnect;
end;

Проблема в том ( как я думаю ) - что пока первый подсоеденяется, создается 50 компонентов и из-за этого висним все в какашку

[Marsel737]

Зачем так извращаться? Вот код "на пальцах":

begin
  Uin := NewUin;
  Start:
    Pas := NewPassword;
    Устанавливаем соединение;
    if ошибка, then 
    begin
      NewPassword загружаем из списка часто встречаемых паролей
      goto Start;
    end;
    ShowMessage('Good. Password: NewPassword, UIN: NewUin ');
end;

Только это ерунда полнейшая, которой в инете и так полно

[kakawkin]

просто в моем варианте не надо ждать пока отправиться сообщение - а как бы ставиться в очередь

[Ghost of Night]

К одному уину, можно около 5 раз подключиться или опробовать пароль, потом бан на 10-20 минут. Брут здесь не поможет, даже с нескольких компонентов.

[MyLastHit]

Да чет последнее время люди все чаще пытаются изобрести велосипед...И плевать что с квадратными колесами, зато свое.
Про AET 2 уже все забыли...