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 <[email protected]> > 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
