VPF::Авторизация в админке Joomla-сайта

DemonXT

Дата 16.12.2009, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

Я не спаммер. В свою админку попасть не могу.

Не получается авторизироваться в админке сайта на движке Joomla.
В ответ на Post-запрос получаю или пустую строку, или "Invalid Token".
Вот моя функция, которой пытаюсь произвести авторизацию:

Код


function GetJoomla(LinkPath,Login,Pass:string):Boolean;
var params,responseres:TStringList; Port:Integer; Server:string; TXTstrem:TStringStream;
Begin
  idHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  idHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
  idHTTP1.Request.AcceptEncoding:='gzip,deflate';
  idHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
  idHTTP1.HandleRedirects:=True;
  params:=TStringList.Create;
  responseres:=TStringList.Create;
  TXTstrem:=TStringStream.Create('');
  try
    idHTTP1.Get(LinkPath,TXTstrem);
    Server:=TXTstrem.DataString;
    while AnsiPos('<input type="hidden" name="',Server)>0 do
    begin
      Port:=AnsiPos('<input type="hidden" name="',Server);
      Delete(Server,1,Port+Length('<input type="hidden" name="')-1);
    end;
    Port:=Ansipos('" value="1" />',Server);
    Server:=copy(Server,0,Port-1);
    params.Add('username='+Login);
    params.Add('passwd='+Pass);
    params.Add('lang=');
    params.Add('option=com_login');
    params.Add('task=login');
    params.Add(Server+'=1');
    idHTTP1.Request.Referer:=LinkPath;
    responseres.Text:=idHTTP1.Post(LinkPath,params);
    //fmWebGrab.rePost.Text:=URLDecode(responseres.Text);
  finally
    if Pos('task=logout',responseres.Text)>0 then Result:=True else Result:=False;
    if Result then ShowMessage('Авторизовались!');
    params.Free; responseres.Free; TXTstrem.Free;
  end;
End;

К idHTTP1 привязал IdCompressorZLib и IdCookieManager1.
Уже не первый день пытаюсь решить эту проблему. И никак не получается. smile

Indy последний. Недавно обновлял.

П.С.
На других форумах мне помочь не могут. На вас последняя надежда.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »