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 Basic 6.0) ScMinidriver - Delete Smart Card Key Container
See more ScMinidriver Examples
Demonstrates how to delete the contents of a key container on a smart card (or USB token).
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Chilkat recommends the following free tool for interactively examining the contents of your smart card ' through the ScMinidriver interface: MGTEK Tool for Minidriver enabled Smart Cards ' Let's first look at our smart card.. ' Here's the view of the card we happen to be using: a Gemalto (Thales) IDPrime MD T=0 smart card. Dim scmd As New ChilkatScMinidriver ' First we need to acquire a context to the smart card in the reader where it is inserted. ' Reader names (smart card readers or USB tokens) can be discovered ' via List Readers or Find Smart Cards Dim readerName As String readerName = "Alcor Micro USB Smart Card Reader 0" Dim success As Long success = scmd.AcquireContext(readerName) If (success = 0) Then Debug.Print scmd.LastErrorText Exit Sub End If ' If successful, the name of the currently inserted smart card is available: Debug.Print "Card name: " & scmd.CardName ' To delete the contents of a key container, we'll need to be PIN authenticated.. ' For more details about smart card PIN authentication, see the Smart Card PIN Authentication Example Dim pinId As String pinId = "user" Dim retval As Long retval = scmd.PinAuthenticate(pinId,"0000") If (retval <> 0) Then Debug.Print "PIN Authentication failed." success = scmd.DeleteContext() Exit Sub End If ' Let's delete the contents of key container #7 ' This deletes both keys (signature key and "key exchange" key) that might be present in the key container. ' (It is not possible to delete just one or the other.) success = scmd.DeleteKeyContainer(7) If (success = 0) Then Debug.Print scmd.LastErrorText success = scmd.DeleteContext() Exit Sub End If success = scmd.DeleteContext() Debug.Print "Successfully delete the contents of key container #7"
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.