Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.js

Visual Basic 6.0 Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks

 

 

 

 

 

 

 

(Visual Basic 6.0) HTTP Public Key Pinning

Demonstrates how to specify a TLS pinset that lists the pre-known valid and accepted TLS server certificate public keys. When a TLS pinset is specified, the Chilkat TLS client software will reject TLS connections (inside the TLS handshake) when the server provides a certificate having a public key not listed in the pinset. This makes it possible to reject the connection at the earliest possible time, before any information (such as the HTTP request) has been sent to the server.

What is Pinning?

Pinning is the process of associating a host with their expected X509 certificate or public key. Once a certificate or public key is known or seen for a host, the certificate or public key is associated or 'pinned' to the host. If more than one certificate or public key is acceptable, then the program holds a pinset. In this case, the advertised identity must match one of the elements in the pinset. A host or service's certificate or public key can be added to an application at development time, or it can be added upon first encountering the certificate or public key. The former - adding at development time - is preferred since preloading the certificate or public key out of band usually means the attacker cannot taint the pin. ..

Beginning in Chilkat v9.5.0.55, TLS public key pinning is implemented by (1) making it possible to easily get the SPKI fingerprint of a certificate, and (2) adding the TlsPinSet property to classes that can establish TLS connections.

Get SPKI Fingerprint using OpenSSL

This example shows how Chilkat can be used to obtain the server's public key SPKI fingerprint. OpenSSL can also get the fingerprint with these two commands (shown for the domain ssllabs.com) :

openssl x509 -noout -in ssllabs.com.pem -pubkey | openssl asn1parse -noout -inform pem -out ssllabs.com.key
openssl dgst -sha256 -binary ssllabs.com.key | openssl enc -base64

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim chilkatGlob As New ChilkatGlobal
Dim success As Long
success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> 1) Then
    Text1.Text = Text1.Text & chilkatGlob.LastErrorText & vbCrLf
    Exit Sub
End If

Dim httpA As New ChilkatHttp

'  To do public key pinning, the SPKI fingerprint would be obtained beforehand -- perhaps
'  at design time, or possibly at the time of the 1st connection (where the SPKI fingerprint
'  is persisted for future use).  Note:  "If the certificate or public key is added upon first
// encounter, you will be using key continuity. Key continuity can fail if the attacker has a
'  privileged position during the first first encounter." 
// See https://www.owasp.org/index.php/Certificate_and_Public_Key_Pinning
Dim sslCert As ChilkatCert
Set sslCert = httpA.GetServerSslCert("www.ssllabs.com",443)
If (sslCert Is Nothing ) Then
    Text1.Text = Text1.Text & httpA.LastErrorText & vbCrLf
    Exit Sub
End If

'  The GetSpkiFingerprint method returns the SPKI Fingerprint suitable for use in pinning.
Text1.Text = Text1.Text & "SPKI Fingerprint: " & sslCert.GetSpkiFingerprint("sha256","base64") & vbCrLf

'  ------------------------------------------------------------------------------------

'  At the time of writing this example (on 19-Dec-2015) the sha256/base64 SPKI fingerprint
'  for the ssllabs.com server certificate is: xkWf9Qfs1uZi2NcMV3Gdnrz1UF4FNAslzApMTwynaMU=

Dim httpB As New ChilkatHttp

'  Set the TlsPinSet.  The format of the TlsPinSet string is:
'   "hashAlg, encoding, fingerprint1, fingerprint2, ..."
httpB.TlsPinSet = "sha256, base64, xkWf9Qfs1uZi2NcMV3Gdnrz1UF4FNAslzApMTwynaMU="

'  Our object will refuse to communicate with any TLS server where the server's public key
'  does not match a pin in the pinset.

'  This should be OK (assuming the ssllabs.com server certificate has not changed since
'  the time of writing this example).
Dim html As String
html = httpB.QuickGetStr("https://www.ssllabs.com/")
If (httpB.LastMethodSuccess <> 1) Then
    Text1.Text = Text1.Text & httpB.LastErrorText & vbCrLf
    Exit Sub
End If

Text1.Text = Text1.Text & "Success.  The HTTP GET worked because the server's certificate had a matching public key." & vbCrLf

'  This should NOT be OK because owasp.org's server certificate will not have a matching public key.
html = httpB.QuickGetStr("https://www.owasp.org/index.php/Certificate_and_Public_Key_Pinning")
If (httpB.LastMethodSuccess <> 1) Then
    Text1.Text = Text1.Text & "Good, this connection was rejected..." & vbCrLf
Else
    Text1.Text = Text1.Text & "This was not supposed to happen!" & vbCrLf
    Exit Sub
End If


 

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