Sample code for 30+ languages & platforms
Tcl

Duo Auth API - Check

See more Duo Auth MFA Examples

The /check endpoint can be called to verify that the Auth API integration and secret keys are valid, and that the signature is being generated properly.

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

set integrationKey "DIMS3V5QDVG9J9ABRXC4"
set secretKey "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

set http [new_CkHttp]

CkHttp_put_Accept $http "application/json"

# Use your own hostname here:
set url "https://api-a03782e1.duosecurity.com/auth/v2/check"

CkHttp_put_Login $http $integrationKey
CkHttp_put_Password $http $secretKey

set jsonStr [CkHttp_quickGetStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "status code = [CkHttp_get_LastStatus $http]"
puts "$jsonStr"

# Sample successful output:

# status code = 200
# {"response": {"time": 1632358829}, "stat": "OK"}

delete_CkHttp $http