PowerBuilder

Load Certificate from Smart Card by Key Usage

See more Certificates Examples

You may have a smartcard or USB token that contains only 2 certificates, one for signing, and one for authentication, and you wish to load the certificate for signing. This example demonstrates how to load the 1st certificate found on a smartcard that matches the intended key usage. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Cert

li_Success = 0

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

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
loo_Cert.SmartCardPin = "12345678"

//  To load a certificate matching an intended key usage, specify the type of usage as shown below.
//  
//  The possible key usage keywords are:
//  
//  digitalsignature
//  Use when the public key is used with a digital signature mechanism to support security services other than non-repudiation, certificate signing, or CRL signing. 
//  A digital signature is often used for entity authentication and data origin authentication with integrity.

//  nonrepudiation
//  When a digital certificate's key usage includes "nonrepudiation," it implies that the certificate and its associated private key can be used to 
//  create digital signatures that provide proof of the origin and integrity of the signed data, and the signer cannot later deny having signed the data.

//  Other less common usages:

//  certificatesigning
//  keyencipherment
//  dataencipherment
//  crlsigning
//  secureemail
//  serverauthentication
//  clientauthentication
//  codesigning
//  timestamping

li_Success = loo_Cert.LoadFromSmartcard("keyusage=nonrepudiation")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    Write-Debug "Certificate not loaded."
    destroy loo_Cert
    return
end if

Write-Debug "Found: " + loo_Cert.SubjectDN + " serial=" + loo_Cert.SerialNumber


destroy loo_Cert