Delphi DLL Requires Chilkat v10.1.0+
Delphi DLL
Windows Credentials Manager / Apple Keychain - List All Secrets
See more Secrets Examples
On Windows, lists all secrets in the Windows Credentials Manager.On MacOS or iOS, lists all secrets in the Apple Keychain.
Chilkat Delphi DLL Downloads
var
success: Boolean;
secrets: HCkSecrets;
json: HCkJsonObject;
results: HCkJsonObject;
appName: PWideChar;
service: PWideChar;
domain: PWideChar;
username: PWideChar;
targetName: PWideChar;
keyChainService: PWideChar;
keyChainAccount: PWideChar;
i: Integer;
count_i: Integer;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
secrets := CkSecrets_Create();
// On Windows, this is the Windows Credentials Manager
// On MacOS/iOS, it is the Apple Keychain
CkSecrets_putLocation(secrets,'local_manager');
// Pass an empty JSON object to list all secrets.
json := CkJsonObject_Create();
results := CkJsonObject_Create();
CkJsonObject_putEmitCompact(results,False);
success := CkSecrets_ListSecrets(secrets,json,results);
if (success = False) then
begin
Memo1.Lines.Add(CkSecrets__lastErrorText(secrets));
Exit;
end;
Memo1.Lines.Add(CkJsonObject__emit(results));
// Sample output on Windows (listing all secrets contained in the Windows Credentials Manager)
// The "targetName" is purely informational and indicates the raw TargetName of the secret (i.e. Credential) stored in the Credentials Manager.
// Code for parsing (iterating) the JSON results is shown below..
// {
// "secrets": [
// {
// "appName": "Test",
// "service": "MyService",
// "domain": "Xyz",
// "username": "MySecret",
// "targetName": "Test/MyService/Xyz/MySecret"
// },
// {
// "appName": "Chilkat",
// "service": "TestSplit",
// "domain": "local",
// "username": "Matt",
// "targetName": "Chilkat/TestSplit/local/Matt"
// },
// {
// "appName": "Test2",
// "service": "Custom",
// "domain": "Ocean",
// "username": "Starfish20",
// "targetName": "Test2/Custom/Ocean/Starfish20"
// },
// {
// "service": "VS Code Azure",
// "domain": "",
// "username": "Azure",
// "targetName": "VS Code Azure/Azure"
// },
// {
// "appName": "Test2",
// "service": "Custom",
// "domain": "Ocean",
// "username": "Starfish",
// "targetName": "Test2/Custom/Ocean/Starfish"
// },
// {
// "appName": "AA_MyApp",
// "service": "OAuth2",
// "domain": "onedrive",
// "username": "matt",
// "targetName": "AA_MyApp/OAuth2/onedrive/matt"
// }
// ]
// }
// ---------------------------------------------------------------------------------------
// Here's sample output for listing secrets on MacOS
// Some are secrets created using Chilkat's API, others are pre-existing secrets.
// The "keyChainService" and "keyChainAccount" members are purely informational and show the raw Apple Keychain Service and Account information for the secret.
// {
// "secrets": [
// {
// "service": "com.apple.scopedbookmarksagent.xpc",
// "username": "com.apple.scopedbookmarksagent.xpc",
// "keyChainService": "com.apple.scopedbookmarksagent.xpc",
// "keyChainAccount": "com.apple.scopedbookmarksagent.xpc"
// },
// {
// "service": "StandaloneBeacon",
// "username": "searchparty",
// "keyChainService": "StandaloneBeacon",
// "keyChainAccount": "searchparty"
// },
// {
// "service": "BeaconStore",
// "username": "BeaconStoreKey",
// "keyChainService": "BeaconStore",
// "keyChainAccount": "BeaconStoreKey"
// },
// {
// "service": "LocalStorage",
// "username": "findmylocate",
// "keyChainService": "LocalStorage",
// "keyChainAccount": "findmylocate"
// },
// {
// "service": "ProtectedCloudStorage",
// "username": "default",
// "keyChainService": "ProtectedCloudStorage",
// "keyChainAccount": "default"
// },
// {
// "service": "CloudStorage",
// "username": "findmylocate",
// "keyChainService": "CloudStorage",
// "keyChainAccount": "findmylocate"
// },
// {
// "service": "CloudKitCache",
// "username": "FindMyCloudKit",
// "keyChainService": "CloudKitCache",
// "keyChainAccount": "FindMyCloudKit"
// },
// {
// "service": "com.apple.continuity.encryption",
// "username": "handoff-own-encryption-key",
// "keyChainService": "com.apple.continuity.encryption",
// "keyChainAccount": "handoff-own-encryption-key"
// },
// {
// "service": "com.apple.NetworkServiceProxy.ProxyToken",
// "username": "CloudFlare",
// "keyChainService": "com.apple.NetworkServiceProxy.ProxyToken",
// "keyChainAccount": "CloudFlare"
// },
// {
// "appName": "Chilkat",
// "service": "çözツ新",
// "domain": "local",
// "username": "Matt",
// "keyChainService": "Chilkat/çözツ新",
// "keyChainAccount": "local/Matt"
// },
// {
// "service": "AirPort",
// "username": "FP Public WiFi",
// "keyChainService": "AirPort",
// "keyChainAccount": "FP Public WiFi"
// }
// ]
// }
// ---------------------------------------------------------------------------------------
// Here's sample code for parsing the JSON list of secrets.
i := 0;
count_i := CkJsonObject_SizeOfArray(results,'secrets');
while i < count_i do
begin
CkJsonObject_putI(results,i);
appName := CkJsonObject__stringOf(results,'secrets[i].appName');
service := CkJsonObject__stringOf(results,'secrets[i].service');
domain := CkJsonObject__stringOf(results,'secrets[i].domain');
username := CkJsonObject__stringOf(results,'secrets[i].username');
targetName := CkJsonObject__stringOf(results,'secrets[i].targetName');
keyChainService := CkJsonObject__stringOf(results,'secrets[i].keyChainService');
keyChainAccount := CkJsonObject__stringOf(results,'secrets[i].keyChainAccount');
i := i + 1;
end;
CkSecrets_Dispose(secrets);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(results);