Xbase++ Requires Chilkat v11.0.0+

Duo Auth API - Preauth

See more Duo Auth MFA Examples

The /preauth endpoint determines whether a user is authorized to log in, and (if so) returns the user's available authentication factors. Xbase++

LOCAL nSuccess
LOCAL cIntegrationKey
LOCAL cSecretKey
LOCAL oHttp
LOCAL cUrl
LOCAL oReq
LOCAL oResp
LOCAL oJson
LOCAL cDevice
LOCAL cDisplay_name
LOCAL cName
LOCAL cNumber
LOCAL cV_type
LOCAL j
LOCAL nCount_j
LOCAL cStrVal
LOCAL cResponseResult
LOCAL cResponseStatus_msg
LOCAL cStat
LOCAL i
LOCAL nCount_i

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/preauth"

oHttp:Login := cIntegrationKey
oHttp:Password := cSecretKey

oReq := CreateObject("Chilkat.HttpRequest")
oReq:AddParam("username", "matt")

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": {
//      "devices": [
//        {
//          "capabilities": [
//            "auto",
//            "push",
//            "sms",
//            "mobile_otp"
//          ],
//          "device": "DP6GYVTQ5NK82BMR851F",
//          "display_name": "iOS (XXX-XXX-1871)",
//          "name": "",
//          "number": "XXX-XXX-1871",
//          "type": "phone"
//        }
//      ],
//      "result": "auth",
//      "status_msg": "Account is active"
//    },
//    "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_msg := oJson:StringOf("response.status_msg")
cStat := oJson:StringOf("stat")
i := 0
nCount_i := oJson:SizeOfArray("response.devices")
DO WHILE i < nCount_i
    oJson:I := i
    cDevice := oJson:StringOf("response.devices[i].device")
    cDisplay_name := oJson:StringOf("response.devices[i].display_name")
    cName := oJson:StringOf("response.devices[i].name")
    cNumber := oJson:StringOf("response.devices[i].number")
    cV_type := oJson:StringOf("response.devices[i].type")
    j := 0
    nCount_j := oJson:SizeOfArray("response.devices[i].capabilities")
    DO WHILE j < nCount_j
        oJson:J := j
        cStrVal := oJson:StringOf("response.devices[i].capabilities[j]")
        j := j + 1
    ENDDO
    i := i + 1
ENDDO

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