Hello Arno, I noticed I was using a derived-class variable called FRequestAuthorization and the function was looking for FRequestAuth! It's fine now! Thanks!!
SZ On Mon, Sep 21, 2009 at 10:42 AM, Fastream Technologies <[email protected]>wrote: > Ok, that's a bug but not even with it fixed, it still does not work. > > Thanks, > > SZ > > On Mon, Sep 21, 2009 at 10:23 AM, Arno Garrels <[email protected]>wrote: > >> 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
