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

[Pearl777]

BDA, delphi 7. Теперь при авторизации пишет неверный пароль.

[BDA]

Проверьте на моих логине и пароле:

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res: boolean;
  s: TStringList;
  str: string;
begin
  HTTP := THTTPSend.Create;
  s := TStringList.Create;
  try
    str := EncodeUrl('user[login]=' +
      { Edit1.Text } 'b2141395@rmqkr.net' + '&user[pass]=' +
      { Edit2.Text } '12345678' + '&user[submit]=' + utf8encode('Войти'));
    HTTP.Document.Write(pointer(str)^, length(str));
    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);
          if pos('logout', s.Text) <> 0 then
            ShowMessage('Добро пожаловать')
          else
            ShowMessage('Пароль неверный!');
        end;
      end;
    end;
  finally
    HTTP.Free;
    s.Free;
  end;
end;

UPD Пожалуйста

[Pearl777]

Спасибо!! Авторизация работает.

[Pearl777]

Решил вывести капчу в программу, но вот в исходном коде нашел только такой код:

PHP код:

<script type="text/javascript">

    function updateCaptchaImage() {

        var img = $('.captcha_login img');

        var src = img.attr('src');

        var slashPos = src.lastIndexOf('/');

        var randCount = Math.round(Math.random()*(90000000000 - 10000000000)) + 10000000000;

        var src = img.attr('src', src.slice(0, slashPos)+'/'+randCount); 


Что с ним делать я не понимаю.

[Pearl777]

Есть у кого пример парсера на Synapse?

[Lardes]

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

Есть у кого пример парсера на Synapse?

Парсер на темы для нашего форума

[megostudent]

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

Решил вывести капчу в программу, но вот в исходном коде нашел только такой код:

PHP код:

<script type="text/javascript">

    function updateCaptchaImage() {

        var img = $('.captcha_login img');

        var src = img.attr('src');

        var slashPos = src.lastIndexOf('/');

        var randCount = Math.round(Math.random()*(90000000000 - 10000000000)) + 10000000000;

        var src = img.attr('src', src.slice(0, slashPos)+'/'+randCount); 


Что с ним делать я не понимаю.

когда исследуешь элемент капчи перекидует на эти строки?

[Pearl777]

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

когда исследуешь элемент капчи перекидует на эти строки?

Это в google chrome такое выводит, проверил через оперу и нашел нормальную ссылку на капчу.

[megostudent]

мож пригодится

var
MS:TMemoryStream;
pic: TJPEGImage;
begin
Memo1.Clear;
MS:=TMemoryStream.Create;
pic:= TJPEGImage.Create;
idHTTP1.Get('ссыль на капчу', MS);
MS.Position:=0;
pic.LoadFromStream(MS);
Image1.Picture.Assign(pic);
MS.Free;
pic.Free;

[Pearl777]

megostudent, Спасибо, но с этим у меня проблем нету.