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
(Lianja) PKCS11 Initialize Normal User PINSee more PKCS11 ExamplesInitializes the Normal User PIN from the Security Officer's logged-on session. This provides a way to reset the user PIN if it has been forgotten. Note: Requires Chilkat v9.5.0.89 or greater.
// 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. loPkcs11 = createobject("CkPkcs11") // See PKCS11 Find Driver Library Path for information about how to find the // PKCS11 driver file (if not explicitly known) for the plugged-in token or smart card in reader. loPkcs11.SharedLibPath = "IDPrimePKCS1164.dll" llSuccess = loPkcs11.Initialize() if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 return endif // Call Discover to get the slot ID. llOnlyTokensPresent = .T. loJson = createobject("CkJsonObject") llSuccess = loPkcs11.Discover(llOnlyTokensPresent,loJson) if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson return endif // Make sure we have at least one slot. if (loJson.SizeOfArray("slot") <= 0) then ? "No occuplied slots." release loPkcs11 release loJson return endif // Get the ID of the 1st slot lnSlotID = loJson.IntOf("slot[0].id") // Open a session. llReadWrite = .T. llSuccess = loPkcs11.OpenSession(lnSlotID,llReadWrite) if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson return endif // Login as the security officer. // 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. lnUserType = 0 lcPin = "AA0000000000000000000000000000000000000000000000" llSuccess = loPkcs11.Login(lnUserType,lcPin) if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson return endif // Reset the user PIN to 1234 llSuccess = loPkcs11.InitPin("1234") if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson return endif // Revert to an unauthenticated session by calling Logout. llSuccess = loPkcs11.Logout() if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson return endif // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). llSuccess = loPkcs11.CloseSession() if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson return endif ? "Successfully reset user PIN to 1234" release loPkcs11 release loJson |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.