B4X

PKCS11 Find Private Key by Label

See more PKCS11 Examples

Demonstrates how to find a private key based on a user-specified label.

Note: This example requires Chilkat v9.5.0.96 or later.

B4X

Dim success As Boolean = False

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

'  Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems.

Dim pkcs11 As ChilkatPkcs11
pkcs11.Initialize

'  Use the PKCS11 driver (.dll, .so, .dylib) for your particular HSM.
'  For example:
pkcs11.SharedLibPath = "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS11.dll"

'  Use your HSM's PIN.
Dim pin As String = "0000"

'  Normal user = 1
Dim userType As Int = 1

'  Establish a logged-on user session with the HSM.
success = pkcs11.QuickSession(userType, pin)
If success = False Then
    Log(pkcs11.LastErrorText)
    Return
End If


'  Provide a template to find a PKCS11 object.
Dim jsonTemplate As ChilkatJsonObject
jsonTemplate.Initialize

'  Find an RSA private key with the label "MySshKey".
'  Here's an example of how the key was originally imported: 
'  PKCS11 Import SSH Key
jsonTemplate.UpdateString("class", "private_key")
jsonTemplate.UpdateString("key_type", "rsa")
jsonTemplate.UpdateString("label", "MySshKey")

Dim privKeyHandle As Long = pkcs11.FindObject(jsonTemplate)
If privKeyHandle = 0 Then
    Log(pkcs11.LastErrorText)
    Return
End If


'  The private key handle is only valid during the PKCS11 session.
'  If you wish to use the private key in another PKCS11 session,
'  you'll first need to find it.  See:  
Log("private key handle: " & privKeyHandle)

'  Do whatever you wish with the private key handle...
'  ...
'  ...

pkcs11.Logout
pkcs11.CloseSession