AutoIt

Create CMS (PKCS7) Detached MIME Signature

Demonstrates how to add a CMS detached signature to MIME. AutoIt

Local $bSuccess = False

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

$oMime = ObjCreate("Chilkat.Mime")

; Load a certificate w/ private key for signing.
$oCert = ObjCreate("Chilkat.Cert")
$bSuccess = $oCert.LoadPfxFile("qa_data/pfx/ecc256_12345.p12","12345")
If ($bSuccess <> True) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Cert: " & $oCert.SubjectDN & @CRLF)

; Create a simple MIME message to be signed:
$oMime.AddHeaderField("Subject","This is a test")
$oMime.AddHeaderField("MyCustomHeader","abc123")
$oMime.ContentType = "text/plain"
$oMime.SetBody "This is a plain-text body."

; Examine the MIME prior to signing:
ConsoleWrite("--- MIME prior to signing ---" & @CRLF)
ConsoleWrite($oMime.GetMime() & @CRLF)

; 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.
$oMime.SigningHashAlg = "SHA256"

; Add a detached signature:
$bSuccess = $oMime.AddDetachedSignature($oCert)
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

; Examine the MIME with detached signature:
ConsoleWrite("--- MIME with detached signature ---" & @CRLF)
ConsoleWrite($oMime.GetMime() & @CRLF)

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