Visual FoxPro

Http Digest Authentication

Demonstrates the DigestAuth property to do HTTP Digest Authentication. Visual FoxPro

LOCAL loHttp
LOCAL lcJsonResponse

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

loHttp = CreateObject('Chilkat.Http')

*  To use HTTP Digest Authentication:
loHttp.Login = "myLogin"
loHttp.Password = "myPassword"
loHttp.DigestAuth = 1

*  If you would like to see the HTTP session log to see how 
*  HTTP digest authentication worked.
loHttp.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.)
lcJsonResponse = loHttp.QuickGetStr("https://httpbin.org/digest-auth/auth/myLogin/myPassword")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "Response status code: " + STR(loHttp.LastStatus)

? lcJsonResponse

*  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"
*  }

RELEASE loHttp