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
(Tcl) 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.
load ./chilkat.dll # 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. set pkcs11 [new_CkPkcs11] # 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) CkPkcs11_put_SharedLibPath $pkcs11 "aetpkss1.dll" set success [CkPkcs11_Initialize $pkcs11] if {$success == 0} then { puts [CkPkcs11_lastErrorText $pkcs11] delete_CkPkcs11 $pkcs11 exit } # Pass -1 for the slotID to open a session on the first non-empty slot. set slotID -1 # Open a session. set readWrite 1 set success [CkPkcs11_OpenSession $pkcs11 $slotID $readWrite] if {$success == 0} then { puts [CkPkcs11_lastErrorText $pkcs11] delete_CkPkcs11 $pkcs11 exit } # 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. set userType 1 set pin "0000" set success [CkPkcs11_Login $pkcs11 $userType $pin] if {$success == 0} then { puts [CkPkcs11_lastErrorText $pkcs11] set success [CkPkcs11_CloseSession $pkcs11] delete_CkPkcs11 $pkcs11 exit } # Do what is needed with the authenticated session... # ... # ... # Revert to an unauthenticated session by calling Logout. set success [CkPkcs11_Logout $pkcs11] if {$success == 0} then { puts [CkPkcs11_lastErrorText $pkcs11] set success [CkPkcs11_CloseSession $pkcs11] delete_CkPkcs11 $pkcs11 exit } # When finished, close the session. # It is important to close the session (memory leaks will occur if the session is not properly closed). set success [CkPkcs11_CloseSession $pkcs11] if {$success == 0} then { puts [CkPkcs11_lastErrorText $pkcs11] delete_CkPkcs11 $pkcs11 exit } puts "PKCS11 Login and Logout successfully demonstrated." delete_CkPkcs11 $pkcs11 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.