Delphi авторизация на сайте DLE с помощью idHTTP

dleНедавно задумался над тем что было бы неплохо постить автоматом новости на новостные порталы под чудесной CMS DLE, но для начала надо научиться авторизовываться автоматом, подумал я, и не долго думая достал запылившийся Delphi, запустил.
На форму кинул два Edit-a,  одну кнопку которую успешно обозвал Авторизироваться и компонент idHTTP.
У меня получилась такая страшненькая форма:
form
где:
Edit1 — поле для ввода имени пользователя
Edit2 — поле для ввода пароля
В обработчике нажатия на кнопку написал следующий код:


procedure TForm1.Button1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text);
LoginData.Add('login_password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://СЮДА ВПИСАТЬ АДРЕС САЙТА/index.php',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

Если авторизация прошла успешно, то получим окно с сообщением Авторизовались! иначе Авторизация не удалась!

Оцените статью
( Пока оценок нет )

Добавить комментарий

  1. Dimitriy

    Ух-ты! Интересненько… и как все гениальное просто! А продолжение будет?

    Ответить
  2. Gua

    Все так легко и просто! Давай еще!

    Ответить
  3. username

    без проблем!

    Ответить
  4. Bbb

    А вот как с капчей быть?

    Ответить
  5. username

    с капчей не ковырялся ни разу, но не думаю что там сложно, будет время гляну, просто найти идентификатор картинки, загрузить ее, ну как-то так, в общем как попробую выложу рабочий кусок, если есть наработки кидай сюда, сфарганим вместе что-то 🙂

    Ответить
  6. Алексей

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

    Ответить
  7. username

    если я правильно понял, то измени кусок кода
    if Pos(‘logout’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)
    else
    на
    if Pos(‘logout’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)
    WebBrowser1.Navigate(‘http://СЮДА ВПИСАТЬ АДРЕС САЙТА/index.php’);
    else
    и все, только не забудь добавить WebBrowser1 на форму

    Ответить
  8. Степан

    Собственно оставил комментарий только чтобы покрутить картинки в антикаптче ^_^

    Ответить
  9. username

    =)))) забавно)

    Ответить
  10. Дмитрий

    как сделать чтобы не только английские, но и руские буквы можно было использовать?

    Ответить
  11. username

    отсылать в правильной кодировке на сайт, проанализируй любым снифером запрос который делашь через сайт, и попробуй реализовать это программно

    Ответить
  12. Пшли нахуй

    Полная хуйня а не урок.

    Ответить
  13. username

    Будь проще!
    Если есть чем поделиться — поделись, обсирать каждый может, а напрячь остатки прямых извилин видимо нет!
    Just smile.

    Ответить
  14. lastwagen

    В упор не понимаю, откуда вечно возьмется ложка дегтя?! Вот, никак без нее. Всегда же находиться некая дрянь, которая придет и нагадит без каких либо оснований, а только потому, что свербит в очке.

    Ответить
  15. username

    В точку!
    Абсолютно с тобой согласен!

    Ответить
  16. Spot

    а если в Response.Text
    переход на другую страницу
    например
    document.location.href=’login.php?user=testuser’

    Ответить
  17. username

    if Pos(‘login.php?user=testuser’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)

    Ответить
  18. Spot

    но, на стороне сервера клиент еще не авторизован, т. е. ид юзера сохраняется в пременной сессии, только при переходе по login.php?user=testuser

    Ответить
  19. username

    Проверь снифером, что отправляет браузер и что отправляет программа.
    Возможно необходимо переписать алгоритм авторизации под себя

    Ответить
  20. Алексей

    будет ли обновление?

    Ответить
    1. username

      немного не понял вопрос) можно конкретнее его поставить?)

      Ответить
  21. Олег

    А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
    Спасибо!

    Ответить
  22. ovpmusic

    А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
    Спасибо!

    Ответить