авторизация wap сайт

[DeDoK]

Пробую авторизоваться на wap.love.mail.ru

IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.6.30 Version/10.62';
params:=TStringList.Create;
params.Add('login=xxxx');
params.Add('password=xxxxx');
s:=IdHTTP1.Post('http://wap.love.mail.ru/?area=login',params);
Memo1.Lines.Add(s);
Memo1.Lines.SaveToFile('log.txt');
if pos('Мой профайл',s)>0
then ShowMessage('Успешно');
params.Free;

получаю Connection Closed Gracefully
редиректы включены, куки подключены, что не так?

[Voland-791]

Пропусти через сниффер

[DeDoK]

пропускал уже. там откуда то еще в куках MambaID светится, я куки менеджер подключил - никакого результата. еще предложения есть?

[Voland-791]

Попробуй тип такого:

ResponseData := TStringList.Create;
PostData.Add('Login=name');
PostData.Add('Domain=mail.ru');
PostData.Add('Password=pass');
ResponseData.Text := IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData);
if Pos('logout',ResponseData.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
end;

[DeDoK]

это просто авторизация для mail.ru
я пробовал отдельно авторизацию для mail.ru и wap.love.mail.ru
куки не подходят. т.е авторизоваться надо отдельно на каждом проекте

[pesi]

1. Сначала гет запрос на http://wap.love.mail.ru, в сокетах получишь mambaId=KDPT9ocbT88R9pqY8pIEG5QIgOR gddHv
2. Потом, а может и не надо гет запрос на http: //wap.love.mail.ru/?area=login&mambaId=KDPT9ocbT88R9pq Y8pIEG5QIgORgddHv
3. Пост запрос

PostData.Add('Login=name');
PostData.Add('Password=pass');
PostData.Add('submitted=Войти');
ResponseData.Text := IdHTTP1.Post('http://wap.love.mail.ru/?area=login', PostData);

[Alest]

Держи

procedure TForm1.Button2Click(Sender: TObject);
var
  Header, Structure: TStringList;
  s1: String;
begin
  Structure := TStringList.Create;
  Header := TStringList.Create;
try
  Header.Text := idhttp.Get('http://wap.love.mail.ru/?area=registration');
  s1:=copy(Header.Text,pos('name="secureCode"',Header.Text)+25,PosEx('"', Header.Text,
                        Pos('name="secureCode"', Header.Text)+26)-Pos('name="secureCode"',Header.Text)-25);
  DisplayMemo.Text := UTF8Decode(Header.Text);
  Structure.Add('secureCode='+s1);
  Structure.Add('login=qwertyfffffghjk');
  Structure.Add('password=987654345678');
  Structure.Add('info%5Bname%5D=qwertyefffefd');
  Structure.Add('sex=1');
  Structure.Add('info%5BlookFor%5D%5B1%5D=2');
  Structure.Add('info%5BbirthDate%5D%5Bday%5D=3');
  Structure.Add('info%5BbirthDate%5D%5Bmonth%5D=4');
  Structure.Add('info%5BbirthDate%5D%5Byear%5D=1985');
  Structure.Add('info%5Bwhere%5D=City.4400');
  Structure.Add('standardSecretQuestion=3');
  Structure.Add('secretQuestion=ersdfsd');
  Structure.Add('secretAnswer=sefesf');
  Structure.Add('submitted=Продолжить');
  ProgressMemo.Text := Structure.Text;
  DisplayMemo.Text := UTF8Decode(idhttp.Post('http://wap.love.mail.ru/?area=registration', Structure));
  Structure.Create;
  if Pos('Я принимаю условия', DisplayMemo.Text)>0 then
    begin
     ShowMessage('Успех!');
     Structure.Add('agree=1');
     Structure.Add('submitted=Продолжить');
     DisplayMemo.Text := UTF8Decode(idhttp.Post('http://wap.love.mail.ru/?area=registration&step=2', Structure));
    end
  else
    ShowMessage('Ошибка при регистрации!');
finally
  Structure.Free;
  Header.Free;
end;

end;

Эт рега, а вот авторизация -

procedure TForm1.Button1Click(Sender: TObject);
var
  Header, Structure: TStringList;
begin
  Structure := TStringList.Create;
  Header := TStringList.Create;
try
  Header.Text := idhttp.Get('http://wap.love.mail.ru/?area=login');
  DisplayMemo.Text := UTF8Decode(Header.Text);
  Structure.Add('login=qwertyfffffghjk');
  Structure.Add('password=987654345678');
  Structure.Add('submitted=Войти');
  ProgressMemo.Text := Structure.Text;
  DisplayMemo.Text := UTF8Decode(idhttp.Post('http://wap.love.mail.ru/?area=login', Structure));
  if Pos('XXXXX(там уже разберетесь)', DisplayMemo.Text)>0 then
    ShowMessage('Успех!')
  else
    ShowMessage('Ошибка!');
finally
  Structure.Free;
  Header.Free;
end;
end;

Проверяем , все работает)

[Alest]

2. Потом, а может и не надо гет запрос на http: //wap.love.mail.ru/?area=login&mambaId=KDPT9ocbT88R9pq Y8pIEG5QIgORgddHv

referrer не обязательно