(Lianja) Bunny Sign URL and then Download using Signed URL

See more Bunny CDN Examples

Shows how to sign a URL for BunnyCDN Token Authentication and then use it to download.

For more information, see https://support.bunny.net/hc/en-us/articles/360016055099-How-to-sign-URLs-for-BunnyCDN-Token-Authentication

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

lcMySecurityKey = "e7ea8d73-8fa0-44ef-a2cc-91526f7df5ed"

lcUrl = "https://test.b-cdn.net/sample-pdf-with-images.pdf"

// Extract the URL components.
loUrlObj = createobject("CkUrl")
loUrlObj.ParseUrl(lcUrl)

lcUrl_scheme = "https"
if (loUrlObj.Ssl = .F.) then
    lcUrl_scheme = "http"
endif

lcUrl_host = loUrlObj.Host
lcUrl_path = loUrlObj.Path

// Calculate an expiration time 1 hour from the current date/time.
loExpTime = createobject("CkDateTime")
loExpTime.SetFromCurrentSystemTime()
loExpTime.AddSeconds(3600)
lcExpires = loExpTime.GetAsUnixTimeStr(.F.)

? "Expires = " + lcExpires

// Create the string to hash
loSbToHash = createobject("CkStringBuilder")
loSbToHash.Append(lcMySecurityKey)
loSbToHash.Append(lcUrl_path)
loSbToHash.Append(lcExpires)

// Base64Url encoding is the same as base64, except "-" is used instead of "+",
// "_" is used instead of "/", and no "=" padding is added.
lcToken = loSbToHash.GetHash("sha256","base64Url","utf-8")

loSbSignedUrl = createobject("CkStringBuilder")
loSbSignedUrl.Append(lcUrl_scheme)
loSbSignedUrl.Append("://")
loSbSignedUrl.Append(lcUrl_host)
loSbSignedUrl.Append(lcUrl_path)
loSbSignedUrl.Append("?token=")
loSbSignedUrl.Append(lcToken)
loSbSignedUrl.Append("&expires=")
loSbSignedUrl.Append(lcExpires)

lcSignedUrl = loSbSignedUrl.GetAsString()
? "Signed URL: " + lcSignedUrl

// Use the signed URL to download the file.
loHttp = createobject("CkHttp")
llSuccess = loHttp.Download(lcSignedUrl,"c:/aaworkarea/sample.pdf")
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
else
    ? "Success."
endif



release loUrlObj
release loExpTime
release loSbToHash
release loSbSignedUrl
release loHttp