(DataFlex) 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).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoScmd
    String sReaderName
    Boolean iSuccess
    String sPinId
    Integer iRetval
    String sTemp1

    // 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.

    

    Get Create (RefClass(cComChilkatScMinidriver)) To hoScmd
    If (Not(IsComObjectCreated(hoScmd))) Begin
        Send CreateComObject of hoScmd
    End

    // 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
    Move "Alcor Micro USB Smart Card Reader 0" To sReaderName
    Get ComAcquireContext Of hoScmd sReaderName To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // If successful, the name of the currently inserted smart card is available:
    Get ComCardName Of hoScmd To sTemp1
    Showln "Card name: " sTemp1

    // 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
    Move "user" To sPinId
    Get ComPinAuthenticate Of hoScmd sPinId "0000" To iRetval
    If (iRetval <> 0) Begin
        Showln "PIN Authentication failed."
        Get ComDeleteContext Of hoScmd To iSuccess
        Procedure_Return
    End

    // 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.)
    Get ComDeleteKeyContainer Of hoScmd 7 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
        Get ComDeleteContext Of hoScmd To iSuccess
        Procedure_Return
    End

    Get ComDeleteContext Of hoScmd To iSuccess
    Showln "Successfully delete the contents of key container #7"


End_Procedure