DataFlex

ScMinidriver - Import a Certificate and Private Key to a Smart Card or USB Token

See more ScMinidriver Examples

Demonstrates how to import a certificate and its private key to a key container on a smart card or USB token.

Note: This functionality was introduced in Chilkat v9.5.0.87.

Note: The ScMinidriver functionality is for Windows-only because ScMinidriver DLLs only exist on Windows.

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoScmd
    String sReaderName
    String sPinId
    Integer iRetval
    Variant vCert
    Handle hoCert
    String sPassword
    Integer iContainerIndex
    String sKeySpec
    String sTemp1

    Move False To iSuccess

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

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

    // Reader names (smart card readers or USB tokens) can be discovered
    // via List Readers or Find Smart Cards
    Move "SCM Microsystems Inc. SCR33x 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 import a cert + private key, 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 "000000" To iRetval
    If (iRetval <> 0) Begin
        Showln "PIN Authentication failed."
        Get ComDeleteContext Of hoScmd To iSuccess
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // Load the cert + private key from a .p12/.pfx
    // We got this .p12 from https://badssl.com/download/
    Move "badssl.com" To sPassword
    Get ComLoadPfxFile Of hoCert "qa_data/pfx/badssl.com-client.p12" sPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Get ComDeleteContext Of hoScmd To iSuccess
        Procedure_Return
    End

    // Let's import this certificate as the "signature" key/cert in key container #6.
    Move 6 To iContainerIndex
    Move "sig" To sKeySpec
    Get pvComObject of hoCert to vCert
    Get ComImportCert Of hoScmd vCert iContainerIndex sKeySpec sPinId To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Successfully imported the cert + private key onto the smart card."
    End

    // When finished with operations that required authentication, you may if you wish, deauthenticate the session.
    Get ComPinDeauthenticate Of hoScmd "user" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
    End

    // Delete the context when finished with the card.
    Get ComDeleteContext Of hoScmd To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
    End



End_Procedure