DataFlex

HTTP Public Key Pinning

See more HTTP Examples

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. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttpA
    Variant vSslCert
    Handle hoSslCert
    Handle hoHttpB
    String sHtml
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttpA
    If (Not(IsComObjectCreated(hoHttpA))) Begin
        Send CreateComObject of hoHttpA
    End

    // 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
    Get Create (RefClass(cComChilkatCert)) To hoSslCert
    If (Not(IsComObjectCreated(hoSslCert))) Begin
        Send CreateComObject of hoSslCert
    End
    Get pvComObject of hoSslCert to vSslCert
    Get ComGetServerCert Of hoHttpA "www.ssllabs.com" 443 vSslCert To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttpA To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The GetSpkiFingerprint method returns the SPKI Fingerprint suitable for use in pinning.
    Get ComGetSpkiFingerprint Of hoSslCert "sha256" "base64" To sTemp1
    Showln "SPKI Fingerprint: " sTemp1

    // ------------------------------------------------------------------------------------

    Get Create (RefClass(cComChilkatHttp)) To hoHttpB
    If (Not(IsComObjectCreated(hoHttpB))) Begin
        Send CreateComObject of hoHttpB
    End

    // Set the TlsPinSet.  The format of the TlsPinSet string is:
    //  "hashAlg, encoding, fingerprint1, fingerprint2, ..."
    Set ComTlsPinSet Of hoHttpB To "sha256, base64, zVYucUTcGEk/8/HHt9ifInCRXVAf+hbxTgRTYnCjYk8="

    // 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).
    Get ComQuickGetStr Of hoHttpB "https://www.ssllabs.com/" To sHtml
    Get ComLastMethodSuccess Of hoHttpB To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttpB To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success.  The HTTP GET worked because the server's certificate had a matching public key."

    // This should NOT be OK because owasp.org's server certificate will not have a matching public key.
    Get ComQuickGetStr Of hoHttpB "https://www.owasp.org/index.php/Certificate_and_Public_Key_Pinning" To sHtml
    Get ComLastMethodSuccess Of hoHttpB To bTemp1
    If (bTemp1 = False) Begin
        Showln "Good, this connection was rejected..."
    End
    Else Begin
        Showln "This was not supposed to happen!"
    End



End_Procedure