(DataFlex) PKCS7 Sign Text using RSA 2048, SHA256, Base64 Output

Demonstrates how to sign text using 2048-bit RSA with SHA256, producing PKCS#7 output in Base64. The certificate w/ private key used for signing is loaded from a .p12/.pfx file.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vCert
    Handle hoCert
    Boolean iSuccess
    Handle hoCrypt
    String sTextToSign
    String sSigBase64
    String sTemp1
    Boolean bTemp1

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

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

    // Load the cert and private key.  Whatever the private key happens to be,
    // such as RSA or ECC, then Chilkat will use it.  If the private key is 
    // a 2048-bit RSA key, then that's what will be used..
    Get ComLoadPfxFile Of hoCert "qa_data/pfx/myCertAndKey.p12" "password" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

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

    // Use SHA-256
    Set ComHashAlgorithm Of hoCrypt To "sha256"

    // Hash the utf-8 byte representation of the string
    Set ComCharset Of hoCrypt To "utf-8"

    // Return the result in base64
    Set ComEncodingMode Of hoCrypt To "base64"

    // Sign some text..
    Move "This is the text to be hashed and signed." To sTextToSign
    Get ComOpaqueSignStringENC Of hoCrypt sTextToSign To sSigBase64
    Get ComLastMethodSuccess Of hoCrypt To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoCrypt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sSigBase64

    // The result:
    // MIIS2wYJKoZIhvcNAQc ... zGeeY4Oxg==


End_Procedure