VB.NET Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# WinRTDelphi ActiveXDelphi DLLVisual FoxProJavaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerShellPythonRubySQL ServerUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET WinRTVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

EDIFACT - S/MIME Create, Sign, and Encrypt

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

Chilkat .NET Downloads

Chilkat .NET Assemblies

Chilkat for Mono

Chilkat for Xamarin

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!")
 

© 2000-2013 Chilkat Software, Inc. All Rights Reserved.