(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean

// 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.
Dim dt As New Chilkat.CkDateTime
success = dt.SetFromCurrentSystemTime()
// Get the UNIX time string in the GMT timezone.
Dim bLocalTime As Boolean
bLocalTime = False
Dim unixTimeStr As String
unixTimeStr = dt.GetAsUnixTimeStr(bLocalTime)
System.DebugLog(unixTimeStr)

// Use your own API key and secret.  (These are not valid values)
Dim apiKey As String
apiKey = "227b20a2cb705e45f3b0a0944672dc07"
Dim secret As String
secret = "54dc7ba9e2"

Dim sb As New Chilkat.StringBuilder
success = sb.Append(apiKey)
success = sb.Append(secret)
success = sb.Append(unixTimeStr)

Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "sha256"
crypt.EncodingMode = "hexlower"
Dim signature As String
signature = crypt.HashStringENC(sb.GetAsString())

System.DebugLog(signature)

Dim http As New Chilkat.Http

http.SetRequestHeader "Accept","application/json"
http.SetRequestHeader "Api-key",apiKey
http.SetRequestHeader "X-Signature",signature

Dim jsonResponse As String
jsonResponse = http.QuickGetStr("https://api.test.hotelbeds.com/hotel-api/1.0/status")
System.DebugLog(jsonResponse)
System.DebugLog(Str(http.LastStatus))

// Sample output:  

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