(Visual Basic 6.0) Import an SSH Key to an HSM using PKCS11

See more PKCS11 Examples

Demonstrates how to import an SSH private key to an HSM (smartcard or token).

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 New ChilkatPkcs11

' 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
pin = "0000"

' Normal user = 1
Dim userType As Long
userType = 1

' Establish a logged-on user session with the HSM.
Dim success As Long
success = pkcs11.QuickSession(userType,pin)
If (success = 0) Then
    Debug.Print pkcs11.LastErrorText
    Exit Sub
End If

' Create a PKCS11 template for importing the SSH key.
Dim jsonTemplate As New ChilkatJsonObject

' Indicate the key is to be stored on the token (i.e. it is not a session-only key)
success = jsonTemplate.UpdateBool("token",1)
' The key should have the ability to sign
success = jsonTemplate.UpdateBool("sign",1)

' Let's provide a few attributes to help us find the this key at a later time.
' See SSH Public-Key Authentication using an HSM

' The ID is byte data, so it should be base64 or hex.
' Specify "id" if passing base64 data, "id_hex" for hexidecimal, or "id_ascii" for directly copying the ascii bytes of the string.
' You can provide any ID of your choice.  It is optional.
success = jsonTemplate.UpdateString("id_hex","0A0B0C0D01020304")

' Optionally specify a label.
success = jsonTemplate.UpdateString("label","MySshKey")

' Load the SSH key to be imported to the HSM (smartcard or token)
Dim sshKey As New ChilkatSshKey
sshKey.Password = "password_of_the_encrypted_ppk_file"
Dim ppkContents As String
ppkContents = sshKey.LoadText("c:/my_ssh_keys/someSshKey.ppk")
success = sshKey.FromPuttyPrivateKey(ppkContents)
If (success = 0) Then
    Debug.Print sshKey.LastErrorText
    Exit Sub
End If

' Import the SSH private key onto the HSM.
' The PKCS11 handle to the imported private key is returned.
' A 0 is returned on failure.
Dim privKeyHandle As Long
privKeyHandle = pkcs11.ImportSshKey(sshKey,jsonTemplate)
If (privKeyHandle = 0) Then
    Debug.Print pkcs11.LastErrorText
    Exit Sub
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  SSH Public-Key Authentication using a Smartcard
Debug.Print "private key handle: " & privKeyHandle

Debug.Print "Successfully imported the SSH key onto the HSM."

success = pkcs11.Logout()
success = pkcs11.CloseSession()