Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL lcIntegrationKey
LOCAL lcSecretKey
LOCAL loHttp
LOCAL lcUrl
LOCAL loReq
LOCAL loResp
LOCAL loJson
LOCAL lcDevice
LOCAL lcDisplay_name
LOCAL lcName
LOCAL lcNumber
LOCAL lcV_type
LOCAL j
LOCAL lnCount_j
LOCAL lcStrVal
LOCAL lcResponseResult
LOCAL lcResponseStatus_msg
LOCAL lcStat
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

lcIntegrationKey = "DIMS3V5QDVG9J9ABRXC4"
lcSecretKey = "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

loHttp = CreateObject('Chilkat.Http')

loHttp.Accept = "application/json"

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

loHttp.Login = lcIntegrationKey
loHttp.Password = lcSecretKey

loReq = CreateObject('Chilkat.HttpRequest')
loReq.AddParam("username","matt")

loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq(lcUrl,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

? "status code = " + STR(loResp.StatusCode)

loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0
? loJson.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

lcResponseResult = loJson.StringOf("response.result")
lcResponseStatus_msg = loJson.StringOf("response.status_msg")
lcStat = loJson.StringOf("stat")
i = 0
lnCount_i = loJson.SizeOfArray("response.devices")
DO WHILE i < lnCount_i
    loJson.I = i
    lcDevice = loJson.StringOf("response.devices[i].device")
    lcDisplay_name = loJson.StringOf("response.devices[i].display_name")
    lcName = loJson.StringOf("response.devices[i].name")
    lcNumber = loJson.StringOf("response.devices[i].number")
    lcV_type = loJson.StringOf("response.devices[i].type")
    j = 0
    lnCount_j = loJson.SizeOfArray("response.devices[i].capabilities")
    DO WHILE j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("response.devices[i].capabilities[j]")
        j = j + 1
    ENDDO
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loReq
RELEASE loResp
RELEASE loJson