property kSSKeychainServiceName : "SSToolkitTestService"
property kSSKeychainAccountName : "SSToolkitTestAccount"
property kSSKeychainPassword : "SSToolkitTestPassword"
property kSSKeychainLabel : "SSToolkitLabel"

set kRes to getPasswordForAccount("apitore API Key", "maro@piyocast.com") of me
–> "xxXXXxxX-XxXx-XXXX-xXXX-XXxXXxxXxxXx"

–Get Password
on getPasswordForAccount(aServiceName as string, anAccount as string)
　　set bQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　bQuery’s setService:aServiceName
　　bQuery’s setAccount:anAccount
　　bQuery’s setPassword:(missing value)
　　set bRes to (bQuery’s fetch:(missing value)) as boolean
　　return (bQuery’s |password|()) as string
end getPasswordForAccount

— New item
on makeNewItem(aPassword as string, aServiceName as string, anAccount as string, aLabel as string)
　　set aQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　aQuery’s setPassword:aPassword
　　aQuery’s setService:aServiceName
　　aQuery’s setAccount:anAccount
　　aQuery’s setLabel:aLabel
　　return (aQuery’s |save|:(missing value)) as boolean
end makeNewItem

— Look up
on lookUpPassWord(aServiceName, anAccount)
　　set bQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　bQuery’s setService:aServiceName
　　bQuery’s setAccount:anAccount
　　bQuery’s setPassword:(missing value)
　　set bRes to (bQuery’s fetch:(missing value)) as boolean
　　return (bQuery’s |password|() ≠ missing value)
end lookUpPassWord

— Search for all accounts
on getAllAccounts()
　　set cQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　return (cQuery’s fetchAll:(missing value)) as list
　　–>　　(NSArray) {​​​​​{​​​​​​​mdat:(NSDate) 2010-02-23 08:36:19 +0000, ​​​​​​​cdat:(NSDate) 2010-02-23 08:36:19 +0000, ​​​​​​​acct:"GoogleJapaneseInput", ​​​​​​​class:"genp", ​​​​​​​svce:"GoogleJapaneseInput", ​​​​​​​labl:"GoogleJapaneseInput", ​​​​​​​crtr:9999999999​​​​​}, ​​​​​……
end getAllAccounts

— Check accounts for service
on getAccount(aServiceName)
　　set cQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　cQuery’s setService:aServiceName
　　return (cQuery’s fetchAll:(missing value)) as list
　　–>　　(NSArray) {​​​​​{​​​​​​​mdat:(NSDate) 2016-03-02 13:54:54 +0000, ​​​​​​​cdat:(NSDate) 2016-03-02 13:44:19 +0000, ​​​​​​​svce:"SSToolkitTestService", ​​​​​​​acct:"SSToolkitTestAccount", ​​​​​​​class:"genp", ​​​​​​​labl:"SSToolkitLabel"​​​​​}​​​}
end getAccount

— Delete
on deleteKeychain(aServiceName, anAccountName)
　　set dQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　dQuery’s setService:aServiceName
　　dQuery’s setAccount:anAccountName
　　return (dQuery’s deleteItem:(missing value)) as boolean
end deleteKeychain

–Test Password Object
on testPasswordObject()
　　set eQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　eQuery’s setService:kSSKeychainServiceName
　　eQuery’s setAccount:kSSKeychainAccountName
　　set eDic1 to current application’s NSDictionary’s dictionaryWithObjectsAndKeys_(42, "number", "Hello World", "string", missing value)
　　eQuery’s setPasswordObject:eDic1
　　set fRes to (eQuery’s |save|:(missing value)) as boolean
　　
　　set fQuery to current application’s SSKeychainQuery’s alloc()’s init()
　　fQuery’s setService:kSSKeychainServiceName
　　fQuery’s setAccount:kSSKeychainAccountName
　　fQuery’s setPassword:(missing value)
　　fQuery’s fetch:(missing value)
　　return {fQuery’s passwordObject(), eDic1}
　　–>　　{​​​​​(NSDictionary) {​​​​​​​number:42, ​​​​​​​string:"Hello World"​​​​​}, ​​​​​(NSDictionary) {​​​​​​​number:42, ​​​​​​​string:"Hello World"​​​​​}​​​}
end testPasswordObject