(AutoIt) PKCS11 Export Public Key from HSM

See more PKCS11 Examples

Demonstrates how to export a public key from a 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.

$oPkcs11 = ObjCreate("Chilkat.Pkcs11")

; Use the PKCS11 driver (.dll, .so, .dylib) for your particular HSM.
; (The format of the path will change with the operating system.  Obviously, "C:/" is not used on non-Windows systems.
$oPkcs11.SharedLibPath = "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll"

; Establish a logged-on session. (We can typically skip the login by passing an empty PIN if only working with public keys)
; Use your actual PIN here, or an empty string to skip login.
Local $sPin = "0000"
Local $iUserType = 1
Local $bSuccess = $oPkcs11.QuickSession($iUserType,$sPin)
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

; Get the handle of the public key we wish to export.
; You can find public keys in many different ways.
; This example will search for a public key by label.

; Provide a template to find a PKCS11 object.
$oJsonTemplate = ObjCreate("Chilkat.JsonObject")

; Find the public key with the label "Belgium eHealth".
$oJsonTemplate.UpdateString("class","public_key")
$oJsonTemplate.UpdateString("label","Belgium eHealth")

Local $iPubKeyHandle = $oPkcs11.FindObject($oJsonTemplate)
If ($iPubKeyHandle = 0) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

; Export to a Chilkat public key object.
$oPubKey = ObjCreate("Chilkat.PublicKey")
$bSuccess = $oPkcs11.ExportPublicKey($iPubKeyHandle,$oPubKey)
If ($bSuccess = False) Then
    ConsoleWrite($oPkcs11.LastErrorText & @CRLF)
    Exit
EndIf

; Get the public key as PKCS8 PEM.
ConsoleWrite($oPubKey.GetPem(False) & @CRLF)

$oPkcs11.Logout()
$oPkcs11.CloseSession()