Fastream Technologies wrote:
> Hi Arno,
> 
> Ok, let me explain: due to stupid BCB linker errors,I had to place the
> function below in a pascal unit for calling the function you said:
> 
> function THttpMTConnection.GenerateDigestChallenge : String;
> begin
>  Result := AuthDigestGenerateChallenge(
>                                    FServer.FAuthDigestMethod,
>                                    FServer.FAuthDigestServerSecret,
>                                    FAuthRealm, '', FAuthDigestStale,
>                                    FAuthDigestServerNonce,
>                                    FAuthDigestServerOpaque);
> end;
> 
> And it still does not work. 

If you actually use the function above, why do you append stuff to the 
returned string at all?

--
Arno Garrels


> Isn't there anybody with proxy
> authentication experience? I had basic and NTLM and HTML working
> fine--only digest left... 
> 
> Regards,
> 
> SZ
> 
> On Mon, Sep 21, 2009 at 9:38 AM, Arno Garrels <arno.garr...@gmx.de>
> wrote: 
> 
>> Fastream Technologies wrote:
>>>  headerHead += "Proxy-Authenticate: Digest " + // I only changed
>>> this line from rproxy to forward proxy
>>>        GenerateDigestChallenge() +
>>>        ", domain=\"" + prefix + FAuthRealm + ":" + serverPort +
>>>        "\"" + ", uri=\"" + URI + "\"" +
>>>        //", algorithm=\"MD5\"" +
>>>        staleString + "\r\n";
>> 
>> This obviously is your own implementation, current ICS uses :
>> 
>> function AuthDigestGenerateChallenge(
>>    DigestMethod: TAuthDigestMethod; Secret: TULargeInteger; const
>>    Realm, Domain : String; Stale: Boolean; var Nonce, Opaque:
>> String): String; 
>> 
>> procedure THttpConnection.Answer401;
>> [..]
>> Header := Header + 'WWW-Authenticate: Digest ' +
>>                  AuthDigestGenerateChallenge(
>>                                    FServer.FAuthDigestMethod,
>>                                    FServer.FAuthDigestServerSecret,
>>                                    FAuthRealm, '', FAuthDigestStale,
>>                                    FAuthDigestServerNonce,
>>                                    FAuthDigestServerOpaque) + #13#10;
>> 
>> --
>> Arno Garrels
>> --
>> To unsubscribe or change your settings for TWSocket mailing list
>> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
>> Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to