(DataFlex) Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vCert
    Handle hoCert
    Boolean iSuccess
    Handle hoDecrypt
    Variant vBd
    Handle hoBd
    String sTemp1

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

    Get ComLoadPfxFile Of hoCert "c:/pfx_files/my.pfx" "password" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatCrypt2)) To hoDecrypt
    If (Not(IsComObjectCreated(hoDecrypt))) Begin
        Send CreateComObject of hoDecrypt
    End
    Set ComCryptAlgorithm Of hoDecrypt To "pki"

    Get pvComObject of hoCert to vCert
    Get ComSetDecryptCert Of hoDecrypt vCert To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDecrypt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatBinData)) To hoBd
    If (Not(IsComObjectCreated(hoBd))) Begin
        Send CreateComObject of hoBd
    End
    Get ComLoadFile Of hoBd "c:/someDir/pkcs7_encrypted.dat" To iSuccess

    Get pvComObject of hoBd to vBd
    Get ComDecryptBd Of hoDecrypt vBd To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDecrypt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // bd contains the decrypted content.


End_Procedure