Авторизация TurboBit

[Pearl777]

Здравствуйте! Может кто подсказать, как реализовать авторизацию на turbobit.
Пробовал таким способом:

var
  StrPage,Url:string;
  Log:TStringList;
  html : WideString;
begin
IdHTTP1.CookieManager:=IdCookiemanager1;
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=true;
url:='http://turbobit.net/user/login';
Log:=TStringList.Create;
Log.Add('user[login]='+Edit1.Text);
Log.Add('user[pass]='+Edit2.Text);
Log.Add('user[submit]=Войти');
StrPage:=IdHTTP1.Post(Url,Log);
memo1.Text:=StrPage;
Log.Free;
if Pos('logout',StrPage)<>0 then
ShowMessage('Добро пожаловать')
else
ShowMessage('Пароль неверный ! ! !');

Пишет пароль неверный. При проверке через HttpAnalyzer заметил что куки не отправляются, но в программе они подключены. Стоит 10 версия indy.

[AmbaQ]

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

...При проверке через HttpAnalyzer заметил что куки не отправляются, но в программе они подключены. Стоит 10 версия indy.

У меня аналогичная проблема, отписывался в теме, надеюсь, что ответят, если найдёшь решение, отпиши =)

[BDA]

Delphi 2010 Indy 10.5.5 - все работает.

procedure TForm1.Button1Click(Sender: TObject);
var
  StrPage, Url: string;
  Log: TStringList;
begin
  IdHTTP1.AllowCookies := true;
  IdHTTP1.HandleRedirects := true;
  Url := 'http://turbobit.net/user/login';
  Log := TStringList.Create;
  Log.Add('user[login]=' + { Edit1.Text } 'b2141395@rmqkr.net');//ящик фиктивный
  Log.Add('user[pass]=' + { Edit2.Text } '12345678');
  Log.Add('user[submit]=Войти');
  StrPage := IdHTTP1.Post(Url, Log);
  Log.Free;
  if Pos('logout', StrPage) <> 0 then
    ShowMessage('Добро пожаловать')
  else
    ShowMessage('Пароль неверный!');
end;

Совет - перебирайтесь на Synapse.

[Pearl777]

BDA, Подключил библиотеку Synapse. Подскажите как правильно сформулировать запрос на авторизацию?

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res: boolean;
  s: TStringStream;
  str: string;
begin
  HTTP := THTTPSend.Create;
  s := TStringStream.Create;
  try
    s.WriteString('user[login]=' +
      { Edit1.Text } 'b2141395@rmqkr.net' + '&user[pass]=' +
      { Edit2.Text } '12345678' + '&user[submit]=' + utf8encode('Войти'));
    HTTP.Document.LoadFromStream(s);
    HTTP.Headers.Clear;
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    Res := HTTP.HTTPMethod('POST', 'http://turbobit.net/user/login');
    if Res then
    begin
      HTTP.Headers.Clear;
      Res := HTTP.HTTPMethod('Get', 'http://turbobit.net/');
      if Res then
      begin
        s.LoadFromStream(HTTP.Document);
        str := utf8decode(s.DataString);
        if Pos('logout', str) <> 0 then
          ShowMessage('Добро пожаловать')
        else
          ShowMessage('Пароль неверный!');
      end;
    end;
  finally
    HTTP.Free;
    s.Free;
  end;
end;

[Pearl777]

  s := TStringStream.Create;

Этот параметр при запуске выделяется красным.


Сделал вот так:

  s := TStringStream.Create('');

но теперь пишет на LoadFromStream (Undeclared identifier)

[Pearl777]

Все с кодом вроде бы разобрался. Но по прежнему пишет неверный пароль.

[BDA]

uses SynaCode;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res: boolean;
  s: TStringStream;
  str: string;
begin
  HTTP := THTTPSend.Create;
  s := TStringStream.Create;
  try
    s.WriteString(EncodeUrl('user[login]=' +
        { Edit1.Text } 'b2141395@rmqkr.net' + '&user[pass]=' +
        { Edit2.Text } '12345678' + '&user[submit]=' + utf8encode('Войти')));
    HTTP.Document.LoadFromStream(s);
    HTTP.Headers.Clear;
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    Res := HTTP.HTTPMethod('POST', 'http://turbobit.net/user/login');
    if Res then
    begin
      if pos('location: /login', AnsiLowerCase(HTTP.Headers.Text)) > 0 then
        ShowMessage('Превышен лимит входов')
      else
      begin
        HTTP.Headers.Clear;
        Res := HTTP.HTTPMethod('Get', 'http://turbobit.net/');
        if Res then
        begin
          s.LoadFromStream(HTTP.Document);
          str := utf8decode(s.DataString);
          if pos('logout', str) <> 0 then
            ShowMessage('Добро пожаловать')
          else
            ShowMessage('Пароль неверный!');
        end;
      end;
    end;
  finally
    HTTP.Free;
    s.Free;
  end;
end;

У меня не кодируется также символ @, но это не мешает авторизации.
На сайте есть ограничение на количество неправильных входов. Запустите новый код. Если программа выдаст 'Превышен лимит входов', то нужно вводить каптчу.

[Pearl777]

Вот что пишет [Error] Unit1.pas(56): Undeclared identifier: 'SaveToFile'

[BDA]

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

Вот что пишет [Error] Unit1.pas(56): Undeclared identifier: 'SaveToFile'

Забыл убрать эту строку при отладке.
Вам она не нужна.
Хотя, странно, что у меня все компилируется, а у Вас нет.
Какая у Вас версия Дельфи?