(Visual FoxPro) How to Generate an Azure Service Bus Shared Access Signature (SAS)

Demonstrates generating and using an Azure Service Bus Shared Access Signature (SAS).

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loAuthSas
LOCAL loDtExpiry
LOCAL loSbResourceUri
LOCAL lcSasToken
LOCAL loFac

* Note: Requires Chilkat v9.5.0.65 or greater.

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

* -------------------------------------------------------------------
* Create a Shared Access Signature (SAS) token for Azure Service Bus.
* -------------------------------------------------------------------

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAzureSAS')
loAuthSas = CreateObject('Chilkat.AuthAzureSAS')
loAuthSas.AccessKey = "AzureServiceBus_PrimaryKey"

* The SAS token for Service Bus will look like this:
* (The order of params will be different.  The order does not matter.)
* sig=<signature-string>&se=<expiry>&skn=<keyName>&sr=<URL-encoded-resourceURI>

* Specify the format of the string to sign.
loAuthSas.StringToSign = "resourceURI,expiry"

* Create an expiry to 30 days in the future.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDtExpiry = CreateObject('Chilkat.CkDateTime')
loDtExpiry.SetFromCurrentSystemTime()
loDtExpiry.AddDays(30)
loAuthSas.SetTokenParam("expiry","se",loDtExpiry.GetAsUnixTimeStr(1))

* Set the skn (keyname)
* This example uses the key "RootManageSharedAccessKey".  This give full access.
* In a typical scenario, you would create a new Azure key (for the service bus)
* in the Azure portal, such that the key has limited permissions.  This would
* allow you to give the SAS token to others for specific access for some period of time.
loAuthSas.SetTokenParam("keyName","skn","RootManageSharedAccessKey")

* Set the URL-encoded-resourceURI
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResourceUri = CreateObject('Chilkat.StringBuilder')
loSbResourceUri.Append("https://<yournamespace>.servicebus.windows.net/")
loSbResourceUri.Encode("url","utf-8")
loAuthSas.SetTokenParam("resourceURI","sr",loSbResourceUri.GetAsString())

* Generate the SAS token.
lcSasToken = loAuthSas.GenerateToken()
IF (loAuthSas.LastMethodSuccess <> 1) THEN
    ? loAuthSas.LastErrorText
    RELEASE loAuthSas
    RELEASE loDtExpiry
    RELEASE loSbResourceUri
    CANCEL
ENDIF

? "SAS token: " + lcSasToken

* Save the SAS token to a file.
* We can then use this pre-generated token for future Service Bus operations.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
loFac.WriteEntireTextFile("qa_data/tokens/serviceBusSas.txt",lcSasToken,"utf-8",0)

RELEASE loAuthSas
RELEASE loDtExpiry
RELEASE loSbResourceUri
RELEASE loFac