PureBasic

Set an FTPS Client Certificate from a PFX File

Demonstrates the Chilkat Ftp2.SetSslClientCertPfx method, which loads a client certificate and private key from a PFX/P12 file. The first argument is the file path and the second is its password.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: A PFX (PKCS #12) file bundles a certificate with its private key in one password-protected file — the format Windows and many corporate PKI tools export. This is the counterpart to SetSslClientCertPem for mutual-TLS authentication when your credentials are packaged as a single .pfx. Set it before connecting.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the Ftp2.SetSslClientCertPfx method, which loads a client certificate and private
    ;  key from a PFX/P12 file.  The 1st argument is the PFX file path and the 2nd is its password.

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "myFtpLogin")

    ;  Normally you would not hard-code the password in source.  You should instead obtain it
    ;  from an interactive prompt, environment variable, or a secrets vault.
    CkFtp2::setCkPassword(ftp, "myPassword")

    ;  Use explicit FTPS (AUTH TLS) on the standard FTP port.
    CkFtp2::setCkAuthTls(ftp, 1)

    ;  Provide the PFX client certificate before connecting.  The password should come from a secure
    ;  source rather than being hard-coded.
    pfxPassword.s = "myPfxPassword"
    success = CkFtp2::ckSetSslClientCertPfx(ftp,"qa_data/client.pfx",pfxPassword)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckConnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    Debug "Connected with a PFX client certificate."

    success = CkFtp2::ckDisconnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf



    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure