Xojo Plugin Requires Chilkat v11.5.0+

Example: Secrets.SecretSpecToJson method

Demonstrates the SecretSpecToJson method. This method converts a secret specification string to the JSON required to create or lookup the secret. Xojo Plugin

Dim success As Boolean
success = False

Dim secrets As New Chilkat.Secrets
Dim json As New Chilkat.JsonObject
json.EmitCompact = False

//  A secret name can include up to 4 components:
//  [appName] / service / [domain] / username

//  This example will demonstrate secret specification strings
//  for each possible combination.

//  ------------------------------------------------------
//  1: service + username
Dim sspec As String
sspec = "!!imap|john@example.com"

success = secrets.SecretSpecToJson(sspec,json)
System.DebugLog(json.Emit())

//  Result:
//  {
//    "service": "imap",
//    "username": "john@example.com"
//  }

//  ------------------------------------------------------
//  2: appName + service + username
sspec = "!!myApp|imap|john@example.com"

success = secrets.SecretSpecToJson(sspec,json)
System.DebugLog(json.Emit())

//  Result:
//  {
//    "appName": "myApp",
//    "service": "imap",
//    "username": "john@example.com"
//  }

//  ------------------------------------------------------
//  3: service + domain + username
sspec = "!!|imap|imap.example.com|john"

success = secrets.SecretSpecToJson(sspec,json)
System.DebugLog(json.Emit())

//  Result:
//  {
//    "service": "imap",
//    "domain": "imap.example.com",
//    "username": "john"
//  }

//  ------------------------------------------------------
//  4: appName + service + domain + username
sspec = "!!myApp|imap|imap.example.com|john"

success = secrets.SecretSpecToJson(sspec,json)
System.DebugLog(json.Emit())

//  Result:
//  {
//    "appName": "myApp",
//    "service": "imap",
//    "domain": "imap.example.com",
//    "username": "john"
//  }