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

[PaHaNjkee]

Всем привет! Необходимо сделать авторизацию на проекте seosprint. Мучался, при авторизации выдавало "Нарушена технология входа", вроде исправился, теперь какую бы капчу я не вводил, она не совпадает

uses
  clHTTPSendEx, superobject;
 
var
  http: THTTPSendEx;
  userInfo: ISuperObject;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Response, Request: string;
begin
  http.ClearAll;
  http.GET('http://www.seosprint.net/index.php', Response);
  userInfo.PutS('ccl', Pars('var ccl = "', Response, '";'));
  Request := 'qp=mnu302&qc='+userInfo.S['ccl'];
  http.Clear;
  http.Headers.Add('X-Requested-With: XMLHttpRequest');
  http.Headers.Add('Accept: application/json, text/javascript, */*; q=0.01');
  http.Headers.Add('Referer: http://www.seosprint.net/index.php');
  http.UserAgent := 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.124 Safari/537.36';
  http.POST('http://www.seosprint.net/core/run.php', Request, Response);
  userInfo.PutS('captcha_sid', Pars('"siimage\" src=\"\/captcha\/captcha-fr\/captcha.php?sid=', Response, '\" alt=\"'));
  userInfo.PutS('qc', Pars('<\/div>","', Response, '"]'));
  userInfo.PutS('email_name', Pars('E-mail<\/span><input type=\"text\" id=\"', Response, '\"'));
  userInfo.PutS('password_name', Pars('<input type=\"password\" id=\"', Response, '\"'));
  userInfo.PutS('captcha_name', Pars('\u0443<\/span><input type=\"text\" id=\"', Response, '\"'));
  http.Clear;
  http.DownloadFile('http://www.seosprint.net/captcha/captcha-fr/captcha.php?sid='+userInfo.S['captcha_sid'], 'captcha_auth.png');
  Image1.Picture.LoadFromFile('captcha_auth.png');
  DeleteFile('captcha_auth.png');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  Request, Response, msg: string;
begin
  Request := userInfo.S['email_name']+'='+LabeledEdit1.Text+
             '&'+userInfo.S['password_name']+'='+LabeledEdit2.Text+
             '&'+userInfo.S['captcha_name']+'='+LabeledEdit3.Text+
             '&qc='+userInfo.S['qc'];
  http.Clear;
  http.Headers.Add('X-Requested-With: XMLHttpRequest');
  http.Headers.Add('Accept: application/json, text/javascript, */*; q=0.01');
  http.Headers.Add('Referer: http://www.seosprint.net/index.php');
  http.UserAgent := 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.124 Safari/537.36';
  http.POST('http://www.seosprint.net/core/enter.php', Request, Response);
  if Pos('\u041f\u0440\u043e\u0432\u0435\u0440\u043e\u0447\u043d\u044b\u0439', Response) <> 0 then
    msg := 'Проверочный код введен неверно!'
  else
    msg := 'Вошли!';
  ShowMessage(msg);
end;

[PaHaNjkee]

Решил проблему, может кому понадобится, при получении капчи, добавить 1 хеадер:

http.Headers.Add('Referer: http://www.seosprint.net/index.php');

Тему закрываем