EDIFACT - S/MIME Create, Sign, and Encrypt

Create an EDIFACT MIME message, signs it, and then encrypts.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()

Dim success As Boolean
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Assuming  you have an EDIFACT document loaded into
'  a string variable, set the MIME body with it:
Dim ediBody As String
ediBody = "UNB+IATB:1+6XPPC+LHPPC+940101:0950+1' ..."
mime.SetBodyFromPlainText(ediBody)

'  The call to SetBodyFromPlainText automatically set the
'  content-type to "text/plain".
'  However, we want:  application/edifact;  name=om080923.edi
mime.ContentType = "application/edifact"
mime.Name = "om080923.edi"

'  We want the content-disposition to be:
'  Content-Disposition: attachment; filename="om080923.edi"
mime.Disposition = "attachment"
mime.Filename = "om080923.edi"

'  Content-Transfer-Encoding: quoted-printable
mime.Encoding = "quoted-printable"

'  Note: MIME header fields are case insensitive.

'  Add a few other header fields:
mime.AddHeaderField("Message-ID","<CHILKAT-MID-83cf2fbf-10cb-4322-ad79-4c1097fd56f2@Matt>")
mime.AddHeaderField("MIME-VERSION","1.0")

'  Display the complete non-signed, non-encrypted MIME:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf
TextBox1.Text = TextBox1.Text & "*********************************************" & vbCrLf

'  Sign the MIME using an opaque signature.
'  (but first load a certificate)
Dim cert As New Chilkat.Cert()
success = cert.LoadByCommonName("Chilkat Software, Inc.")
If (success = false) Then
    MsgBox(cert.LastErrorText)
    Exit Sub
End If


success = mime.ConvertToSigned(cert)
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Perhaps the receiver is picky and wants the content-type to be "application/pkcs7-mime"
'  instead of "application/x-pkcs7-mime".  In that case, simply set the content-type:
mime.ContentType = "applicaton/pkcs7-mime"

'  Display the signed MIME:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf
TextBox1.Text = TextBox1.Text & "*********************************************" & vbCrLf

'  Now encrypt it.
Dim encryptCert As New Chilkat.Cert()
success = encryptCert.LoadByCommonName("speedi speedi")
If (success = false) Then
    MsgBox(encryptCert.LastErrorText)
    Exit Sub
End If


success = mime.Encrypt(encryptCert)
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Again, if receiver is picky and wants the content-type to be "application/pkcs7-mime"
'  instead of "application/x-pkcs7-mime".  In that case, simply set the content-type:
mime.ContentType = "applicaton/pkcs7-mime"

'  Display the signed/encrypted MIME
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf
TextBox1.Text = TextBox1.Text & "*********************************************" & vbCrLf

'  Save the MIME to a file:
success = mime.SaveMime("edifact_smime.txt")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


MsgBox("Success!")