Программная авторизация на сайте

[Человек_Борща]

Кажется вы вообще читать не умеете...
Код авторизации под каждый сайт разный. Снифер в руки и вперед!

[artbotva]

Project Project1.exe raised exception class... ну и в том же духе)

[artbotva]

Сообщение от Человек_Борща

Кажется вы вообще читать не умеете...
Код авторизации под каждый сайт разный. Снифер в руки и вперед!

Ну понял я, мне хотя бы для примера чтобы я на этом сайте авторизировался... потом я свой домен куплю, сейчас просто посмотреть как это все выглядеть будет...

[Ship_1]

Что-то не хотят люди раскрывать эту тему... Попробую-ка я теперь завести заново эту старую шарманку, т.к. тоже столкнулся с этой проблемой. В моём случае не удаётся авторизоваться на сайте Relax FM
Если я всё правильно понял, запросы от сайта поступают следующие:
iJijkdaMnerys=значение 1
PHPSESSID=значение 2
_ga=значение 3
__atuvc=значение 4
login[user_id]=значение 5
login[secret]=значение 6
Для перехвата использовал Charles 3.9
Со значением 5 и 6, вроде, всё понятно - логин, пароль.
Но что за параметры в остальных случаях и откуда их взять - вот этого никак не пойму.
Параметры 1 и 3, вроде, не меняются. Два оставшиеся не постоянны. 4-й меняется незначительно, но каждый раз; 2-й, видимо, меняется после перевыхода в сеть/перезагрузки/смене дня. Пробовал "atuvc" поискать по response - не нашёл. Может, эти запросы переправляются с другой страницы и нужно на неё делать post? Но тогда где её взять?..
Код программы (на всякий случай весь)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Data:TStringList;
  Request:String;
  HTTP:TIdHTTP;
begin
  Data:=TStringList.Create;
  HTTP:=TIdHTTP.Create(nil);
  HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
  If CheckBox4.Checked then Data.Add('iJijkdaMnerys='+Edit6.Text);
  If CheckBox3.Checked then Data.Add('PHPSESSID='+Edit5.Text);
  If CheckBox2.Checked then Data.Add('_ga='+Edit4.Text);
  If CheckBox1.Checked then Data.Add('__atuvc='+Edit3.Text);
  Data.Add('login[user_id]='+Edit1.Text);
  Data.Add('login[secret]='+Edit2.Text);
  try
    Request:=HTTP.Post('http://relax-fm.ru/',Data);

    if Pos('Выйти',Request)<>0 then
    begin
      ShowMessage('Авторизация прошла успешно!');
    end
    else
    begin
      ShowMessage('Авторизация не удалась!');
    end;

  finally
    Data.Free;
    Request:='';
    HTTP.Free;
  end;
end;

end.

На форме 6 эдитов и 4 галочки, чтоб экспериментально можно было проверить какие из запросов не обязательно отправлять.
Надеюсь, мне повезёт больше, чем предыдущему, попытавшему здесь счастья в поиске ответа.