(Tcl) HTTP Digest-MD5 Authentication Testing with httpbin.org

The URL https://httpbin.org/digest-auth/auth/user/passwd is password protected with user="user" and password="passwd". It requires Digest-MD5 authentication. Chilkat will automatically handle Digest-MD5 authentication as required by the server response. In this case, however, the server will fail the authentication unless a Cookie is included in the request. The cookie can have any name and any value. (Yes, this is ridiculous, and many developers have probably spent countless hours assuming their Digest-MD5 implementations were incorrect.)

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat HTTP API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

CkHttp_put_Login $http "user"
CkHttp_put_Password $http "passwd"

# Add a cookie to satisfy httpbin.org's desire for cookies..
# Otherwise, it will fail the perfectly valid Digest-MD5 authentication.
CkHttp_SetRequestHeader $http "Cookie" "something=\"something\""

set strResponse [CkHttp_quickGetStr $http "https://httpbin.org/digest-auth/auth/user/passwd"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "$strResponse"

set status [CkHttp_get_LastStatus $http]
puts "response status code = $status"

# The output of this program is:
# 
# 	{ 
# 	  "authenticated": true, 
# 	  "user": "user"
# 	} 
# 
# 	response status code = 200

delete_CkHttp $http