(PureBasic) hotelbeds.com REST API Authentication

Demonstrates how to calculate the X-Signature header and add to requests sent to api.test.hotelbeds.com.

For more information, see https://developer.hotelbeds.com/documentation/getting-started/

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkDateTime.pb"
IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    ; This example duplicates the following CURL statement provided in the hotelbeds.com "Getting Started"
    ; developer documentation:

    ; #!/bin/bash 
    ; apiKey="yourApiKey"
    ; secret="yourSecret"
    ; curl -i \
    ;   -X GET \
    ;   -H 'Accept:application/json' \
    ;   -H 'Api-key:'$apiKey'' \
    ;   -H 'X-Signature:'$(echo -n ${apiKey}${secret}$(date +%s)|sha256sum|awk '{ print $1}')'' \
    ;   https://api.test.hotelbeds.com/hotel-api/1.0/status

    success.i

    ; The "date + %s" command emits a UNIX date/time number such as 1605548842
    ; We need to concatenate the apiKey, secret, and current date/time in UNIX (numeric) time format.
    dt.i = CkDateTime::ckCreate()
    If dt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkDateTime::ckSetFromCurrentSystemTime(dt)
    ; Get the UNIX time string in the GMT timezone.
    bLocalTime.i = 0
    unixTimeStr.s = CkDateTime::ckGetAsUnixTimeStr(dt,bLocalTime)
    Debug unixTimeStr

    ; Use your own API key and secret.  (These are not valid values)
    apiKey.s = "227b20a2cb705e45f3b0a0944672dc07"
    secret.s = "54dc7ba9e2"

    sb.i = CkStringBuilder::ckCreate()
    If sb.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sb,apiKey)
    CkStringBuilder::ckAppend(sb,secret)
    CkStringBuilder::ckAppend(sb,unixTimeStr)

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkCrypt2::setCkHashAlgorithm(crypt, "sha256")
    CkCrypt2::setCkEncodingMode(crypt, "hexlower")
    signature.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sb))

    Debug signature

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::ckSetRequestHeader(http,"Accept","application/json")
    CkHttp::ckSetRequestHeader(http,"Api-key",apiKey)
    CkHttp::ckSetRequestHeader(http,"X-Signature",signature)

    jsonResponse.s = CkHttp::ckQuickGetStr(http,"https://api.test.hotelbeds.com/hotel-api/1.0/status")
    Debug jsonResponse
    Debug Str(CkHttp::ckLastStatus(http))

    ; Sample output:  

    ; 1605549542
    ; 2146aefb36e7331b3b29aafd7638398ca22e689573224f1a71274d60bd201ec2
    ; {"auditData":{"timestamp":"2020-11-16 18:59:02.430"},"status":"OK"}
    ; 200


    CkDateTime::ckDispose(dt)
    CkStringBuilder::ckDispose(sb)
    CkCrypt2::ckDispose(crypt)
    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure