Авторизация

[Pearl777]

Здравствуйте! Помогите решить проблемму с куки. Дело в том, что при авторизации куки не отправляются, из-за этого я не могу выполнять дальнейшие передвижения по сайту. Запрос отсылаю на zhyk.ru.
Использую indy 10.5
На других сайтах куки отправляются.
Кукименеджер подключен к Idhttp, все параметры выставил как пологается.

Помогите, в чем может быть проблемма?

[BDA]

Проблема кроется в Indy (наверное)
Вот из-за таких непонятных происшествий и перешел на Synapse.

[Pearl777]

BDA, На Synapse то же самое. Ну вернее чтобы не переписывать код я просто послал get запросс, куки не отправляются(

[BDA]

Может быть покажите проблемный код?

[Pearl777]

var
LoginInfo: TStringList;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
try
    LoginInfo.Add('vb_login_username='+sedit1.text);
    LoginInfo.Add('cookieuser=1');
    LoginInfo.Add('vb_login_password='+sedit2.Text);
    LoginInfo.Add('s=');
    LoginInfo.Add('securitytoken=guest');
    LoginInfo.Add('do=login');
    LoginInfo.Add('vb_login_md5password=');
    LoginInfo.Add('vb_login_md5password_utf=');
    idhttp1.Post('http://zhyk.ru/forum/login.php?do=login',LoginInfo, Response);
//Дальше подобные post и get запросы//
except
end;

[BDA]

Авторизация на жуке осложнена каптчей.
Вот так можно авторизоваться на нашем форуме (но для жука этого мало):

uses httpsend, SynaCode, synautil;

...

var
  Form1: TForm1;
  HTTP: THTTPSend;

const
  login = 'login';
  password = 'pass';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Res: boolean;
  s: TStringList;
  str, md5pass: string;
begin
  md5pass := StrToHex(MD5(password));
  s := TStringList.Create;
  try
    HTTP.Headers.Clear;
    HTTP.Document.Clear;
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    str := 'vb_login_username=' + EncodeUrl(login) +
        '&cookieuser=1&vb_login_password=&s=&securitytoken=guest&do=login&vb_login_md5password=' +
        md5pass + '&vb_login_md5password_utf=' + md5pass;
    HTTP.Document.Write(pointer(str)^, length(str));
    Res := HTTP.HTTPMethod('POST', 'http://zhyk.ru/forum/login.php?do=login');
    if Res then
    begin
      s.LoadFromStream(HTTP.Document);
      if pos('Спасибо, что зашли', s.Text) <> 0 then// для жука мало
        showmessage('Добро пожаловать')
      else
        showmessage('Пароль неверный');
    end;
  finally
    s.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HTTP := THTTPSend.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  HTTP.Free;
end;

end.

[Pearl777]

BDA, С авторизацией у меня все впорядке. Спарсил все значение, вывел капчу, закодировал пароль в md5. Ну короче авторизация проходит успешно, но вот только без куки.

[bulldog5293]

попробуй это добавь

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  IdHTTP1.Get('http://'+сайт);
  for i:=0 to IdCookieManager1.CookieCollection.Count-1 do
    Memo1.Lines.Add(IdCookieManager1.CookieCollection[i].CookieName+'='+IdCookieManager1.CookieCollection[i].Value);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.CookieManager:=IdCookieManager1;
end;

мне когда то помогло

[Pearl777]

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

попробуй это добавь

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  IdHTTP1.Get('http://'+сайт);
  for i:=0 to IdCookieManager1.CookieCollection.Count-1 do
    Memo1.Lines.Add(IdCookieManager1.CookieCollection[i].CookieName+'='+IdCookieManager1.CookieCollection[i].Value);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.CookieManager:=IdCookieManager1;
end;

мне когда то помогло

Спасибо, но не помогло.

Помогите все это переписать на синапс.

var
LoginInfo,LoginInfo2: TStringList;
html:WideString;
Response,Response2: TStringStream;
pic: TJPEGImage;
pre: TMemoryStream;
md5pass,hash,capcha,dir,capurl,pass: string;
i: integer;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo2 := TStringList.Create;
Response2 := TStringStream.Create('');
pic:= TJPEGImage.Create;
pre:= TMemoryStream.Create;
begin
try
    Http := TIdHTTP.Create(Self);
    Cookie := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := Cookie;
    Http.HandleRedirects := true;

http.request.useragent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
http.request.host := 'zhyk.ru';
http.request.Accept := 'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
http.request.AcceptLanguage := 'ru-RU,ru;q=0.9,en;q=0.8';
Http.Request.AcceptCharSet:='windows-1251';

    LoginInfo.Add('vb_login_username='+sedit1.text);
    LoginInfo.Add('cookieuser=1');
    LoginInfo.Add('vb_login_password='+sedit2.Text);
    LoginInfo.Add('s=');
    LoginInfo.Add('securitytoken=guest');
    LoginInfo.Add('do=login');
    LoginInfo.Add('vb_login_md5password=');
    LoginInfo.Add('vb_login_md5password_utf=');
    http.Post('http://zhyk.ru/forum/login.php?do=login',LoginInfo,Response);


    hash := ParsToString('<input id="hash" type="hidden" name="humanverify[hash]" value="', Response.DataString, '" />');
    capcha := ParsToString('<script type="text/javascript" src="http://api.recaptcha.net/challenge?k=', Response.DataString, '">');
    html := http.Get('http://api.recaptcha.net/challenge?k='+capcha);
    capurl := Pars('challenge :', html, ',');

 http.Get('http://www.google.com/recaptcha/api/image?c='+capurl, pre);
 pre.Position := 0;
 pic.LoadFromStream(pre);
 form2.Image1.Picture.Assign(pic);
 form2.showmodal;

md5pass := StrToHex(MD5(sedit2.text));
pass:=md5pass;

    LoginInfo2.Add('humanverify[hash]='+hash);
    LoginInfo2.Add('recaptcha_challenge_field='+capurl);
    LoginInfo2.Add('recaptcha_response_field='+form2.sedit1.Text);
    LoginInfo2.Add('s=');
    LoginInfo2.Add('securitytoken=guest');
    LoginInfo2.Add('do=dologin');
    LoginInfo2.Add('vb_login_password='+pass);
    LoginInfo2.Add('vb_login_username='+sedit1.text);
    LoginInfo2.Add('url=http://zhyk.ru/');
    LoginInfo2.Add('cookieuser=1');
    LoginInfo2.Add('postvars=');
    LoginInfo2.Add('logintype=');
    LoginInfo2.Add('cssprefs=');
    http.Post('http://zhyk.ru/forum/login.php?do=dologin',LoginInfo2, Response2);
    dir := ParsToString('<p class="smallfont"><a href="', Response2.DataString, '">');
    http.Get(dir);
    if pos('Спасибо, что зашли, '+sedit1.Text, Response2.DataString) <> 0 then
    ShowMessage('Успешный вход!')
    else
    ShowMessage('Неверный пароль!!!');

  except
LoginInfo.Free;
Response.Free;
LoginInfo2.Free;
Response2.Free;
pic.Free;
pre.Free;
  end;

В synapse не силен, а вернее вообще не знаю что да как там.

[BDA]

Вроде авторизуюсь