(DataFlex) Oracle Cloud Secrets - Setup Bootstrap Secret in Memory

See more Secrets Examples

Accessing a cloud-based secrets manager requires authentication credentials, which cannot be stored within the secrets manager itself.

This example shows how to set up an in-memory bootstrap secret with authentication credentials which will be used in other examples to access Oracle Cloud Secrets.

Note: This example requires Chilkat v10.1.0 or later.

For more information, see https://cknotes.com/chilkat-secrets-class-added-in-version-10-1-0/

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoBootstrap
    Variant vJson
    Handle hoJson
    Boolean iSuccess
    Variant vSbPem
    Handle hoSbPem
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatSecrets)) To hoBootstrap
    If (Not(IsComObjectCreated(hoBootstrap))) Begin
        Send CreateComObject of hoBootstrap
    End

    // This bootstrap secret will reside in memory.
    Set ComLocation Of hoBootstrap To "memory"

    // Specify the name of the bootstrap secret.
    // service and username are required.
    // appName and domain are optional.
    // Note: The values are arbitrary and can be anything you want.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "appName" "oracle_bs" To iSuccess
    Get ComUpdateString Of hoJson "service" "Example" To iSuccess
    Get ComUpdateString Of hoJson "username" "Joe" To iSuccess

    // The bootstrap secret for Oracle Cloud Secrets is the PEM of your private key.
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbPem
    If (Not(IsComObjectCreated(hoSbPem))) Begin
        Send CreateComObject of hoSbPem
    End
    Get ComLoadFile Of hoSbPem "qa_data/pem/oracle_cloud_privkey.pem" "utf-8" To iSuccess
    If (iSuccess = False) Begin
        Showln "Failed to load the private key PEM file."
        Procedure_Return
    End

    // The bootstrap secret for the Oracle Cloud Secrets will contain
    // the private key PEM.
    // The secret is stored encrypted in memory, and is available to be used
    // regardless of the lifetime of the "bootstrap" object.
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoSbPem to vSbPem
    Get ComUpdateSecretSb Of hoBootstrap vJson vSbPem To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoBootstrap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "The Oracle Cloud bootstrap secret has been stored in memory."


End_Procedure