Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) PKCS11 Login / LogoutSee more PKCS11 ExamplesSample code showing how to login and logout of a PKCS11 session. A session becomes authenticated when Login is called, and returns to the unauthenticated state when Logout is called. A smart card's PIN is passed to the Login method. Note: This example requires Chilkat v9.5.0.88 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 ' "aetpkss1.dll" is the DLL for the SafeSign Identity Client Standard Version 3.5 ' The aetpkss1.dll can be used with the following smart cards or USB tokens: ' Defensiepas ' Defensiepas 2 ' G&D Convego Join 4.01 40k/80k ' G&D SkySIM Hercules ' G&D SkySIM Scorpius ' G&D Sm@rtCaf Expert 3.2 ' G&D Sm@rtCaf Expert 4.0 ' G&D Sm@rtCaf Expert 5.0 ' G&D Sm@rtCaf Expert 6.0 ' G&D Sm@rtCaf Expert 7.0 ' G&D Sm@rtCaf Expert 64 ' Gemalto Desineo ICP D72 FXR1 Java ' Gemalto IDCore 30 ' Gemalto MultiApp ID v2.1 ' Gemalto Optelio D72 FR1 ' Gemalto TOP DL v2 ' Infineon Oracle JCOS Ed.1 ' JCOP21 v2.3 ' Morpho IDealCitiz v2.1 ' Morpho JMV ProCL V3.0 ' NXP J2A080 / J2A081 (JCOP 2.4.1 R3) ' NXP JD081 (JCOP 2.4.1 R3) ' NXP J3A080 (JCOP 2.4.1 R3) ' NXP JCOP 2.4.2 R3 ' NXP JCOP 3 SecID P60 ' Oberthur IDOne Cosmo v7.0 ' RDW ABR kaart ' Rijkspas ' Rijkspas 2 ' Sagem YpsID s2 ' Sagem YpsID s3 ' StarSign Crypto USB Token S ' Swissbit PS-100u SE ' UZI-pas ' UZI-pas 2 pkcs11.SharedLibPath = "aetpkss1.dll" Dim success As Boolean = pkcs11.Initialize() If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) Exit Sub End If ' We need to call Discover to get the slot ID. Dim onlyTokensPresent As Boolean = True Dim json As New Chilkat.JsonObject success = pkcs11.Discover(onlyTokensPresent,json) If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) Exit Sub End If json.EmitCompact = False Debug.WriteLine(json.Emit()) ' Make sure we have at least one slot. If (json.SizeOfArray("slot") <= 0) Then Debug.WriteLine("No occuplied slots.") Exit Sub End If ' Get the ID of the 1st slot Dim slotID As Integer = json.IntOf("slot[0].id") ' Open a session. Dim readWrite As Boolean = True success = pkcs11.OpenSession(slotID,readWrite) If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) Exit Sub End If ' Make it an authenticated session by calling Login. ' The smart card PIN is passed to the Login method. ' The user type can be one of three choices: ' 0 - Security Officer ' 1 - Normal User ' 2 - Context Specific. ' You'll likely always login as the Normal User. Dim userType As Integer = 1 Dim pin As String = "0000" success = pkcs11.Login(userType,pin) If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) success = pkcs11.CloseSession() Exit Sub End If ' Do what is needed with the authenticated session... ' ... ' ... ' Revert to an unauthenticated session by calling Logout. success = pkcs11.Logout() If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) success = pkcs11.CloseSession() Exit Sub End If ' When finished, close the session. ' It is important to close the session (memory leaks will occur if the session is not properly closed). success = pkcs11.CloseSession() If (success = False) Then Debug.WriteLine(pkcs11.LastErrorText) Exit Sub End If Debug.WriteLine("PKCS11 Login and Logout successfully demonstrated.") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.