(Tcl) Http Digest Authentication

Demonstrates the DigestAuth property to do HTTP Digest Authentication.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# To use HTTP Digest Authentication:
CkHttp_put_Login $http "myLogin"
CkHttp_put_Password $http "myPassword"
CkHttp_put_DigestAuth $http 1

# If you would like to see the HTTP session log to see how 
# HTTP digest authentication worked.
CkHttp_put_SessionLogFilename $http "c:/temp/qa_output/sessionLog.txt"

# Run the test using this URL with the credentials above.  
# (Works while httpbin.org keeps the test endpoint available.)
set jsonResponse [CkHttp_quickGetStr $http "https://httpbin.org/digest-auth/auth/myLogin/myPassword"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response status code: [CkHttp_get_LastStatus $http]"

puts "$jsonResponse"

# Output:

# Response status code: 200
# {
#   "authenticated": true, 
#   "user": "myLogin"
# }

# -----------------------------------------------
# Here are the contents of the sessionLog.txt

# ---- Sending Sat, 30 Aug 2025 11:23:12 GMT ----
# GET /digest-auth/auth/myLogin/myPassword HTTP/1.1
# Host: httpbin.org
# Accept: */*
# Accept-Encoding: gzip
# 
# 
# ---- Received Sat, 30 Aug 2025 11:23:12 GMT ----
# HTTP/1.1 401 UNAUTHORIZED
# Date: Sat, 30 Aug 2025 11:23:12 GMT
# Content-Type: text/html; charset=utf-8
# Content-Length: 0
# Connection: keep-alive
# Server: gunicorn/19.9.0
# WWW-Authenticate: Digest realm="me@kennethreitz.com", nonce="fbc6733e2f4d126e7a92d19918f42b0f", qop="auth", opaque="5a14177dc4089cb22c019e6df4fdaadf", algorithm=MD5, stale=FALSE
# Set-Cookie: stale_after=never; Path=/
# Set-Cookie: fake=fake_value; Path=/
# Access-Control-Allow-Origin: *
# Access-Control-Allow-Credentials: true
# 
# 
# ---- Sending Sat, 30 Aug 2025 11:23:12 GMT ----
# GET /digest-auth/auth/myLogin/myPassword HTTP/1.1
# Host: httpbin.org
# Accept: */*
# Accept-Encoding: gzip
# Authorization: Digest ****
# 
# 
# ---- Received Sat, 30 Aug 2025 11:23:12 GMT ----
# HTTP/1.1 200 OK
# Date: Sat, 30 Aug 2025 11:23:13 GMT
# Content-Type: application/json
# Content-Length: 50
# Connection: keep-alive
# Server: gunicorn/19.9.0
# Set-Cookie: fake=fake_value; Path=/
# Access-Control-Allow-Origin: *
# Access-Control-Allow-Credentials: true
# 
# {
#   "authenticated": true, 
#   "user": "myLogin"
# }

delete_CkHttp $http