Проблема с HTTP авторизацией в Indy (Tidhttp)

[cyberexpert]

Здравствуйте! Столкнулся с некой проблемой, связанной с HTTP авторизацией, используя tidhttp. Привожу код:

procedure TForm1.Button2Click(Sender: TObject);
var
  PostData: TStringList;
  Response: TStringStream;
begin
  Response := TStringStream.Create('');
  PostData := TStringList.Create;

  try
    IdHTTP1.Post(Edit1.Text, PostData, Response);
    Memo1.Lines.Text := Response.DataString;
  finally
    Response.Free;
    PostData.Free;
    IdHTTP1.Disconnect;
  end;
end;

procedure TForm1.IdHTTP1Authorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
  Handled := true;
  Authentication.Username := 'login';
  Authentication.Password := 'password';
end;

В результате авторизации не происходит. IdHttp мне возвращает "401 Unauthorized". Пожалуйста, помогите найти ошибку!

Быть может я забыл учесть еще какие-либо моменты?

[KORT]

Проблема возможно кроется в самом компоненте IdHTTP... я своем крупном проекте использовал модуль, приведенный ниже...Он выполняет те же функции, только более правильно...

[cyberexpert]

Спасибо за ответ, но от ошибки по прежнему избавиться не удалось.

Неужели никто не сталкивался с подобной проблемой?

Попробовал использовать synapse. Результат такой же. Видимо я что-то действительно не учел. Привожу код synapse:

  http := THTTPSend.Create;
  http.UserName := 'login';
  http.Password := 'password';
  http.Document.Write(pointer(postdata)^, length(postdata));
  http.HTTPMethod('POST', 'http://????');
  ShowMessage(http.ResultString);
  http.Free;

В итоге showmessage показывает "Unauthorized". Что делать?

[N0iD]

Дайте ссылку там где вы авторизируетесь.

[cyberexpert]

К сожалению, в целях безопасности, я не могу вам дать ссылку. Зато я могу показать пакеты, которые я отловил сниффером.

Отправляемый HTTP пакет:

POST /???/???.asmx HTTP/1.0
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 0
Host: ???.???.ru
Accept: text/html, */*
Accept-Encoding: identity
User-Agent: Mozilla/3.0 (compatible; Indy Library)
Authorization: Basic ???

Полученный пакет:

HTTP/1.1 401 Unauthorized
Connection: keep-alive
Date: Fri, 18 Nov 2011 10:35:27 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
X-AspNet-Version: 2.0.50727
WWW-Authenticate: Digest realm="bidding-monitoring", nonce="shygXmxTRUSafVTdWYa6GQ==", opaque="YZdYm4e37UyY1VoOPYGaLA==", stale=False, algorithm="MD5", qop="auth"
Cache-Control: private
Content-Type: text/html; charset=utf-8
Content-Length: 16

401 Unauthorized

По моему, нужно как-то по другому реализовывать авторизацию. Вопрос только как?

[p51x]

ясно же написано алгоритм=MD5

[cyberexpert]

p51x, да я понимаю, но только подскажите, что мне сделать, чтобы использовалось MD5 шифрование? По умолчанию Indy шифрует при помощи Base64. Может надо авторизацию прописать вручную в хедере? Подскажите как это можно сделать. Буду очень благодарен!