B4X

ChartURL - Create a Signed URL

See more HTTP Misc Examples

Demonstrates how to create a signed URL for ChartURL. B4X

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

'  Example key: "dek-d7a46236eda961a6c3c18ffcc6b077ba87d27e9ae85f7842c6d427c265dd5f69d5131308d93332353d4a55a4b1160fcf516515a4a9f0aa50fbf2d7a2e7d0f1c5"
Dim key As String = "charturl-sign-encrypt-key"
'  Example token: "dt-RwYN"
Dim token As String = "charturl-token"

Dim slug As String = "weekly-activity"
Dim data As String = "{ " & Chr(34) & "options" & Chr(34) & ": {" & Chr(34) & "data" & Chr(34) & ": {" & Chr(34) & "columns" & Chr(34) & ": [[" & Chr(34) & "This Week" & Chr(34) & ",10,13],[" & Chr(34) & "Last Week" & Chr(34) & ",9,5]]}}}"

crypt.HashAlgorithm = "SHA256"
crypt.MacAlgorithm = "HMAC"
crypt.SetMacKeyString(key)
crypt.EncodingMode = "base64"

Dim json As ChilkatJsonObject
json.Initialize
json.Load(data)
Log("json = " & json.Emit)

Dim sig As String = crypt.MacStringENC(json.Emit)

Dim sbUrl As ChilkatStringBuilder
sbUrl.Initialize
sbUrl.Append("https://charturl.com/i/")
sbUrl.Append(token)
sbUrl.Append("/")
sbUrl.Append(slug)
sbUrl.Append("?d=")
sbUrl.Append(crypt.EncodeString(json.Emit, "utf-8", "url"))
sbUrl.Append("&s=")
sbUrl.Append(crypt.EncodeString(sig, "utf-8", "url"))

Log("Signed URL: " & sbUrl.GetAsString)