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
(Visual FoxPro) 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.
LOCAL loPkcs11 LOCAL lnSuccess LOCAL lnSlotID LOCAL lnReadWrite LOCAL lnUserType LOCAL lcPin * 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('Chilkat_9_5_0.Pkcs11') * Set your shared lib path -- either a full path to the DLL, .so, or .dylib, * or just the filename if the driver is in a location that can be automatically found. (Such as in C:\Windows\System32) loPkcs11.SharedLibPath = "aetpkss1.dll" lnSuccess = loPkcs11.Initialize() IF (lnSuccess = 0) THEN ? loPkcs11.LastErrorText RELEASE loPkcs11 CANCEL ENDIF * Pass -1 for the slotID to open a session on the first non-empty slot. lnSlotID = -1 * Open a session. lnReadWrite = 1 lnSuccess = loPkcs11.OpenSession(lnSlotID,lnReadWrite) IF (lnSuccess = 0) THEN ? loPkcs11.LastErrorText RELEASE loPkcs11 CANCEL ENDIF * 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. lnUserType = 1 lcPin = "0000" lnSuccess = loPkcs11.Login(lnUserType,lcPin) IF (lnSuccess = 0) THEN ? loPkcs11.LastErrorText lnSuccess = loPkcs11.CloseSession() RELEASE loPkcs11 CANCEL ENDIF * Do what is needed with the authenticated session... * ... * ... * Revert to an unauthenticated session by calling Logout. lnSuccess = loPkcs11.Logout() IF (lnSuccess = 0) THEN ? loPkcs11.LastErrorText lnSuccess = loPkcs11.CloseSession() RELEASE loPkcs11 CANCEL ENDIF * When finished, close the session. * It is important to close the session (memory leaks will occur if the session is not properly closed). lnSuccess = loPkcs11.CloseSession() IF (lnSuccess = 0) THEN ? loPkcs11.LastErrorText RELEASE loPkcs11 CANCEL ENDIF ? "PKCS11 Login and Logout successfully demonstrated." RELEASE loPkcs11 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.