Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) PKCS11 Find Private Key by LabelSee more PKCS11 ExamplesDemonstrates how to find a private key based on a user-specified label. Note: This example requires Chilkat v9.5.0.96 or later.
' 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 Chilkat.Pkcs11 ' 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 Integer = 1 ' Establish a logged-on user session with the HSM. Dim success As Boolean = pkcs11.QuickSession(userType,pin) If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) Exit Sub End If ' Provide a template to find a PKCS11 object. Dim jsonTemplate As New Chilkat.JsonObject ' 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 UInt32 = pkcs11.FindObject(jsonTemplate) If (privKeyHandle = 0) Then Debug.WriteLine(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: Debug.WriteLine("private key handle: " & privKeyHandle) ' Do whatever you wish with the private key handle... ' ... ' ... pkcs11.Logout() pkcs11.CloseSession() |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.