(DataFlex) Create CMS (PKCS7) Detached MIME Signature

Demonstrates how to add a CMS detached signature to MIME.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoMime
    Variant vCert
    Handle hoCert
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    // Load a certificate w/ private key for signing.
    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get ComLoadPfxFile Of hoCert "qa_data/pfx/ecc256_12345.p12" "12345" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert To sTemp1
    Showln "Cert: " sTemp1

    // Create a simple MIME message to be signed:
    Get ComAddHeaderField Of hoMime "Subject" "This is a test" To iSuccess
    Get ComAddHeaderField Of hoMime "MyCustomHeader" "abc123" To iSuccess
    Set ComContentType Of hoMime To "text/plain"
    Send ComSetBody To hoMime "This is a plain-text body."

    // Examine the MIME prior to signing:
    Showln "--- MIME prior to signing ---"
    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // The MIME prior to signing looks like this:

    // Subject: This is a test
    // MyCustomHeader: abc123
    // Content-Type: text/plain; format=flowed
    // 
    // This is a plain-text body.

    // Use SHA256 as the hash algorithm in the CMS signature.
    Set ComSigningHashAlg Of hoMime To "SHA256"

    // Add a detached signature:
    Get pvComObject of hoCert to vCert
    Get ComAddDetachedSignature Of hoMime vCert To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the MIME with detached signature:
    Showln "--- MIME with detached signature ---"
    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // Content-Type: multipart/signed; boundary="----=_NextPart_6e3_c655_9641494d.b4f00501";
    //  protocol="application/x-pkcs7-signature";
    //  micalg=sha256
    // 
    // ------=_NextPart_6e3_c655_9641494d.b4f00501
    // Subject: This is a test
    // MyCustomHeader: abc123
    // Content-Type: text/plain; format=flowed
    // 
    // This is a plain-text body.
    // ------=_NextPart_6e3_c655_9641494d.b4f00501
    // Content-Transfer-Encoding: base64
    // Content-Type: application/x-pkcs7-signature; name="smime.p7s"
    // Content-Disposition: attachment; filename="smime.p7s"
    // 
    // MIID7AYJKoZIhvcNAQcCoIID3TCCA9kCAQExDzANBglghkgBZQMEAgEFADALBgkqhkiG9w0BBwGg
    // ggJxMIICbTCCAhOgAwIBAgIJAJuS2kgOoyr+MAkGByqGSM49BAEwWzELMAkGA1UEBhMCQVUxEzAR
    // BgNVBAgTClNvbWUtU3RhdGUxITAfBgNVBAoTGEludGVybmV0IFdpZGdpdHMgUHR5IEx0ZDEUMBIG
    // A1UEAxMLZWNjMjU2LXRlc3QwHhcNMTYwODIzMTU0OTM5WhcNNDQwMTA4MTU0OTM5WjBbMQswCQYD
    // VQQGEwJBVTETMBEGA1UECBMKU29tZS1TdGF0ZTEhMB8GA1UEChMYSW50ZXJuZXQgV2lkZ2l0cyBQ
    // dHkgTHRkMRQwEgYDVQQDEwtlY2MyNTYtdGVzdDBZMBMGByqGSM49AgEGCCqGSM49AwEHA0IABARy
    // Hd86A7+qQ4DlIfKynZaFGdGLpkU3GlQwqaVD6GIJg3QIDhaWEksYtZ9OWjNHn9a6+i/P9o5/NrdI
    // SP0VWDWjgcAwgb0wHQYDVR0OBBYEFGmd2DfK4c3VBTVn8ebKH2BTmRicMIGNBgNVHSMEgYUwgYKA
    // FGmd2DfK4c3VBTVn8ebKH2BTmRicoV+kXTBbMQswCQYDVQQGEwJBVTETMBEGA1UECBMKU29tZS1T
    // dGF0ZTEhMB8GA1UEChMYSW50ZXJuZXQgV2lkZ2l0cyBQdHkgTHRkMRQwEgYDVQQDEwtlY2MyNTYt
    // dGVzdIIJAJuS2kgOoyr+MAwGA1UdEwQFMAMBAf8wCQYHKoZIzj0EAQNJADBGAiEAhuiwGy0lZKtK
    // LA13Ffc8AMTK7NsePPSfs0clXlZUR78CIQDXsJXpYsJ7tlTeockrK+6099sG/gGFTRPiQYU8juyf
    // LzGCAT8wggE7AgEBMGgwWzELMAkGA1UEBhMCQVUxEzARBgNVBAgTClNvbWUtU3RhdGUxITAfBgNV
    // BAoTGEludGVybmV0IFdpZGdpdHMgUHR5IEx0ZDEUMBIGA1UEAxMLZWNjMjU2LXRlc3QCCQCbktpI
    // DqMq/jANBglghkgBZQMEAgEFAKBpMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcN
    // AQkFMQ8XDTIyMDUwODE0MzM1NFowLwYJKoZIhvcNAQkEMSIEIMvNpYuymLvF68aFFe+l3NEQTdkB
    // 7T8U6/j+Y5FgDlIUMAoGCCqGSM49BAMCBEYwRAIgQ6migEn3Le9ciIVUP/qc2JZAJZWjpulJXY9Q
    // IZJ3XK0CIGZwpLOgiv7ES8958hqT9a/q7aPc1xmkaZHtsat/k+Ki
    // 
    // ------=_NextPart_6e3_c655_9641494d.b4f00501--


End_Procedure