Xbase++ Requires Chilkat v11.0.0+

Duo Auth API - Auth

See more Duo Auth MFA Examples

The /auth endpoint performs second-factor authentication for a user by sending a push notification to the user's smartphone app, verifying a passcode, or placing a phone call. It is also used to send the user a new batch of passcodes via SMS. Xbase++

LOCAL nSuccess
LOCAL cIntegrationKey
LOCAL cSecretKey
LOCAL oHttp
LOCAL cUrl
LOCAL oReq
LOCAL oResp
LOCAL oJson
LOCAL cResponseResult
LOCAL cResponseStatus
LOCAL cResponseStatus_msg
LOCAL cStat

nSuccess := 0

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

cIntegrationKey := "DIMS3V5QDVG9J9ABRXC4"
cSecretKey := "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

oHttp := CreateObject("Chilkat.Http")

oHttp:Accept := "application/json"

//  Use your own hostname here:
cUrl := "https://api-a03782e1.duosecurity.com/auth/v2/auth"

//  This example requires Chilkat v9.5.0.89 or greater because Chilkat will automatically
//  generate and send the HMAC signature for the requires based on the integration key and secret key.
oHttp:Login := cIntegrationKey
oHttp:Password := cSecretKey

oReq := CreateObject("Chilkat.HttpRequest")
oReq:AddParam("username", "matt")
oReq:AddParam("factor", "push")
//  The device ID can be obtained from the preauth response.  See Duo Preauth Example
oReq:AddParam("device", "DP6GYVTQ5NK82BMR851F")

oReq:HttpVerb := "POST"
oReq:ContentType := "application/x-www-form-urlencoded"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpReq(cUrl, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "status code = " + Str(oResp:StatusCode)

oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:Load(oResp:BodyStr)
oJson:EmitCompact := 0
? oJson:Emit()

//  Sample successful output:

//  status code = 200

//  {
//    "response": {
//      "result": "allow",
//      "status": "allow",
//      "status_msg": "Success. Logging you in..."
//    },
//    "stat": "OK"
//  }

//  Sample code to parse the above JSON response..

//  Use this online tool to generate parsing code from sample JSON: 
//  Generate Parsing Code from JSON

cResponseResult := oJson:StringOf("response.result")
cResponseStatus := oJson:StringOf("response.status")
cResponseStatus_msg := oJson:StringOf("response.status_msg")
cStat := oJson:StringOf("stat")

oHttp:destroy()
oReq:destroy()
oResp:destroy()
oJson:destroy()