Авторизация на сайте if pos

[ClMlD]

Добрый час что то я не как не могу понять по какому слову проверять вошел я или нет logaut не катит
вот мой код может что не так?

procedure TForm1.Button1Click(Sender: TObject);
var
  StrPage,Url:string;
  Log:TStringList;
begin
url:='http://stalker-online.so/account/';
Log:=TStringList.Create;
Log.Add('token=475015255fd10cd819ac8b4f9f1f2670');
Log.Add('name='+Edit1.Text);
Log.Add('pass='+Edit2.Text);
Log.Add('login=Вход');
StrPage:=IdHTTP1.Post(Url,Log);
if Pos('logaut',StrPage)<>0 then
ShowMessage('Добро пожаловать')
else
ShowMessage('Пароль неверный ! ! !');
Log.Free;
end;

end.

И параметр token что это разъясните пожалуйста

[Arigato]

Что такое "logaut"?

[ClMlD]

Arigato о опять ваше внимание =) я вам уже много чем благодарен. Честно сказать я сам хз но обычно так все авторизуются я как понял это первая строка в StrPage или они наоборот сравниваются я вот сам и не понял откуда брать значение по которому нужно проверять логинелся я или нет?

[Lardes]

Скорее logout, а не logaut

[ClMlD]

Lardes толку нет , вы можете мне объяснить функцию post как в данном случае мне найти то самое слово по которому я определю что я активировался? я просто не пойму как искать данный параметр, он же не с воздуха берется. Так же в силе вопрос что такое ('token=475015255fd10cd819ac8b4f9f1 f2670'); может данное значение рандомно или берется по какому то значения , поэтому нет активации , может именно из за этого параметра я не могу законектится ? в чем проблема то?

[BDA]

Токен желательно "парсить":
Запрашиваем get'ом страницу http://stalker-online.so/account/.
"Выкусываем" строку между <input type="hidden" name="token" value=" и ">.

Я не силен в интернет-технологиях, но токен, скорее всего, характеризует Вашу сессию.
Что-то похожее http://ru.wikipedia.org/wiki/Токен_(авторизации).

[ClMlD]

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

Токен желательно "парсить":
Запрашиваем get'ом страницу http://stalker-online.so/account/.
"Выкусываем" строку между <input type="hidden" name="token" value=" и ">.

Почему гет? если вроде бы пост? так как я просматривал в ручную страницу,
по материалу на данной теме в закрепленных темах об авторизации на сайтах это получается именно пост запрос , объясните пожалуйста я просто сам хочу понять и вникнуть в данную задачу

Если я вас правильно понял значения token все таки рандом и нужно значение token не вписывать в ручную а подгружать во время активации типо защита или что?

[BDA]

Токен меняется (при обновлении страницы в браузере несколько раз он не меняется, но если сменить ip адрес, то он точно поменяется), поэтому нужно его как-то выяснить.
Сначала get запросом скачиваем страницу.
Затем достаем из нее токен.
Затем делаем post запрос с нужными логином и паролем и полученным токеном.

[ClMlD]

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

Токен меняется (при обновлении страницы в браузере несколько раз он не меняется, но если сменить ip адрес, то он точно поменяется), поэтому нужно его как-то выяснить.
Сначала get запросом скачиваем страницу.
Затем достаем из нее токен.
Затем делаем post запрос с нужными логином и паролем и полученным токеном.

Вот оно что у меня как раз динам ip а такой вопрос как все таки проверить конетк я или нет? или logout так и писать это стандарт?
И пожалустай если можно пример как мне достать этот token то есть нужно будет отшетать сколько то строчек потом до какого то символа потом только занести значение в переменную не могли бы мини пример или ссылку на статью так как даже не знаю как к гуглу обратиться

[BDA]

uses strutils;
...
function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

procedure SetCookies(HTTP: TIdHTTP);
var
  temp: TStringList;
  i: integer;
begin
  temp := TStringList.Create;
  HTTP.Response.RawHeaders.extract('Set-cookie', temp);
  HTTP.Request.CustomHeaders.text := 'Cookie: ';
  for i := 0 to temp.Count - 1 do
    HTTP.Request.CustomHeaders.text := HTTP.Request.CustomHeaders.text + Copy
      (temp.Strings[i], 1, Pos(';', temp.Strings[i]) - 1);
  temp.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  StrPage, Url, token: string;
  Log: TStringList;
begin
  Url := 'http://stalker-online.so/account/';
  StrPage := IdHTTP1.Get(Url);
  token := extract(StrPage, 'name="token" value="', '"');
  SetCookies(IdHTTP1);
  Log := TStringList.Create;
  Log.Add('token=' + token);
  Log.Add('name=' + Edit1.text);
  Log.Add('pass=' + Edit2.text);
  Log.Add('login=Вход');
  StrPage := IdHTTP1.Post(Url, Log);
  if Pos(ansitoutf8(
      'Вы успешно зашли. Через несколько секунд вы будете перенаправлены в личный кабинет.'), StrPage) <> 0 then
    showmessage('Добро пожаловать')
  else
    showmessage('Ошибка');
  Log.Free;
end;

Теперь некоторые пояснения.
Во-первых, предпочитаю индивидуальный подход к сайтам.
Опираться на поиск слова logout не всегда можно. Например, на сайте есть чат, в котором кто-нибудь напишет это слово, тогда будет неправильно определяться авторизация. В данном случае сайт оповещает об успешном заходе достаточно большой фразой, которую и нужно искать.
Во-вторых, у меня возникла проблема с тем, что idhttp не хотел сохранять cookies, которые приходили при первом get запросе, поэтому их пришлось добавлять с помощью самописной функции setcookies.
В-третьих, функция extract извлекает из строки значение токена.

Update
Упрощенный вариант, который предназначен только для данной авторизации:

uses strutils;
...
function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  StrPage, Url, token: string;
  Log: TStringList;
begin
  Url := 'http://stalker-online.so/account/';
  StrPage := IdHTTP1.Get(Url);
  token := extract(StrPage, 'name="token" value="', '"');
  Log := TStringList.Create;
  IdHTTP1.Response.RawHeaders.extract('Set-cookie', Log);
  IdHTTP1.Request.CustomHeaders.text := 'Cookie: s_id=' + extract(Log.text,
    's_id=', ';') + ';';
  Log.Clear;
  Log.Add('token=' + token);
  Log.Add('name=' + Edit1.text);
  Log.Add('pass=' + Edit2.text);
  Log.Add('login=Вход');
  StrPage := IdHTTP1.Post(Url, Log);
  if Pos(ansitoutf8(
      'Вы успешно зашли. Через несколько секунд вы будете перенаправлены в личный кабинет.'), StrPage) <> 0 then
    showmessage('Добро пожаловать')
  else
    showmessage('Ошибка');
  Log.Free;
end;