VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

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

 

 

 

 

 

 

Sign with .pfx to create .p7s, Verify with .cer

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

VB.NET example to sign a file using a .pfx and creating a .p7s file as output. It then uses a .cer file to verify the signature.

Dim crypt As New Chilkat.Crypt2()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = crypt.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("Crypt component unlock failed")
    Exit Sub
End If


Dim certStore As New Chilkat.CertStore()
success = certStore.LoadPfxFile("chilkat.pfx","myPfxPassword")
If (success <> true) Then
    MsgBox(certStore.LastErrorText)
    Exit Sub
End If

Dim cert As Chilkat.Cert
cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.")
If (cert Is Nothing ) Then
    MsgBox("Failed to find certificate")
    Exit Sub
End If


'  We can explicitly choose hash/encryption algorithms using a CSP.
Dim csp As New Chilkat.Csp()
csp.SetProviderMicrosoftEnhanced()
csp.SetHashAlgorithm("sha-1")

'  Tell the crypt component to use this cert and this CSP.
crypt.SetSigningCert(cert)
crypt.SetCSP(csp)

'  We can sign any type of file, creating a .p7s as output:
success = crypt.CreateP7S("hamlet.xml","hamlet.p7s")
If (success = true) Then
    MsgBox("Signature created.")
Else
    MsgBox(crypt.LastErrorText)
End If


'  Verify and restore the original file:
'  Use a cert from a .cer file (which only contains the public key)
Dim cert2 As New Chilkat.Cert()
success = cert2.LoadFromFile("chilkat.cer")
If (success <> true) Then
    MsgBox(cert2.LastErrorText)
    Exit Sub
End If

crypt.SetVerifyCert(cert2)

success = crypt.VerifyP7S("hamlet.xml","hamlet.p7s")
If (success = true) Then
    MsgBox("Signature verified.")
Else
    MsgBox(crypt.LastErrorText)
End If




 

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

Mail Component · XML Parser