Xbase++

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

See more Azure Service Bus Examples

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

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

Xbase++

LOCAL oAuthSas
LOCAL oDtExpiry
LOCAL oSbResourceUri
LOCAL cSasToken
LOCAL oFac

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

oAuthSas := CreateObject("Chilkat.AuthAzureSAS")
oAuthSas: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.
oAuthSas:StringToSign := "resourceURI,expiry"

//  Create an expiry to 30 days in the future.
oDtExpiry := CreateObject("Chilkat.CkDateTime")
oDtExpiry:SetFromCurrentSystemTime()
oDtExpiry:AddDays(30)
oAuthSas:SetTokenParam("expiry", "se", oDtExpiry: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.
oAuthSas:SetTokenParam("keyName", "skn", "RootManageSharedAccessKey")

//  Set the URL-encoded-resourceURI
oSbResourceUri := CreateObject("Chilkat.StringBuilder")
oSbResourceUri:Append("https://<yournamespace>.servicebus.windows.net/")
oSbResourceUri:Encode("url", "utf-8")
oAuthSas:SetTokenParam("resourceURI", "sr", oSbResourceUri:GetAsString())

//  Generate the SAS token.
cSasToken := oAuthSas:GenerateToken()
IF (oAuthSas:LastMethodSuccess != 1)
    ? oAuthSas:LastErrorText
    oAuthSas:destroy()
    oDtExpiry:destroy()
    oSbResourceUri:destroy()
    RETURN
ENDIF

? "SAS token: " + cSasToken

//  Save the SAS token to a file.
//  We can then use this pre-generated token for future Service Bus operations.
oFac := CreateObject("Chilkat.FileAccess")
oFac:WriteEntireTextFile("qa_data/tokens/serviceBusSas.txt", cSasToken, "utf-8", 0)

oAuthSas:destroy()
oDtExpiry:destroy()
oSbResourceUri:destroy()
oFac:destroy()