Visual Basic 6.0

Http Digest Authentication

Demonstrates the DigestAuth property to do HTTP Digest Authentication. Visual Basic 6.0

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

Dim http As New ChilkatHttp

' To use HTTP Digest Authentication:
http.Login = "myLogin"
http.Password = "myPassword"
http.DigestAuth = 1

' If you would like to see the HTTP session log to see how 
' HTTP digest authentication worked.
http.SessionLogFilename = "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.)
Dim jsonResponse As String
jsonResponse = http.QuickGetStr("https://httpbin.org/digest-auth/auth/myLogin/myPassword")
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response status code: " & http.LastStatus

Debug.Print 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"
' }