(DataFlex) ScMinidriver - Import a Certificate to IDPrime MD T=0 Smart Card

See more ScMinidriver Examples

Demonstrates how to import a certificate and its private key to a key container on an ID Prime MD T=0 smartcard.

Note: Requires Chilkat v9.5.0.88 or later. This example only runs on Windows because ScMinidriver is a Windows-only class.

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
    Variant vCert
    Handle hoCert
    String sPassword
    Integer iContainerIndex
    String sKeySpec
    String sTemp1

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

    // The IDPRime MD smart card has 4 different PIN roles:
    // "user" -- Primary Card PIN
    // "admin" -- Administrator PIN
    // "3" -- Digital Signature PIN
    // "4" -- Unblock only PIN (PUK)
    // To import a certificate to the "IDPrime MD T=0" smart card, we must first PIN authenticate using "user", and then also PIN authenticate using "3" (the Digital Signature PIN)
    Move "user" To sPinId
    // (Of course, use your PIN which may be different than "0000")
    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

    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

    // Also authenticate using "3", the digital signature PIN.
    // (Of course, use your PIN which may be different than "12345678")
    Get ComPinAuthenticate Of hoScmd "3" "12345678" To iRetval
    If (iRetval <> 0) Begin
        Showln "PIN Authentication failed."
        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
    // Note the last argument (the pin ID) is "3".  This is the required PIN ID for the IDPrime MD T=0 smart card.
    Get pvComObject of hoCert to vCert
    Get ComImportCert Of hoScmd vCert iContainerIndex sKeySpec "3" 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

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