Xojo Plugin Requires Chilkat v11.0.0+

SFTP use Cert's Private Key from PFX (.pfx/.p12)

See more SFTP Examples

Demonstrates how to use the private key associated with a certificate from a .pfx/.p12 file. Xojo Plugin

Dim success As Boolean
success = False

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

Dim cert As New Chilkat.Cert

Dim pfxFilepath As String
pfxFilepath = "qa_data/pfx/my.pfx"
Dim pfxPassword As String
pfxPassword = "secret"

//  A PFX typically contains certificates in the chain of authentication.
//  The Chilkat cert object will choose the certificate w/
//  private key farthest from the root authority cert.
//  To access all the certificates in a PFX, use the 
//  Chilkat certificate store object instead.
success = cert.LoadPfxFile(pfxFilepath,pfxPassword)
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

//  Get the private key.  
Dim privKey As New Chilkat.PrivateKey
success = cert.GetPrivateKey(privKey)
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim privKeyPem As String
privKeyPem = privKey.GetPkcs8Pem()
If (privKey.LastMethodSuccess = False) Then
    System.DebugLog(privKey.LastErrorText)
    Return
End If

Dim sshKey As New Chilkat.SshKey
success = sshKey.FromOpenSshPrivateKey(privKeyPem)
If (success = False) Then
    System.DebugLog(sshKey.LastErrorText)
    Return
End If

//  Connect to an SSH/SFTP server
Dim sftp As New Chilkat.SFtp
success = sftp.Connect("sftp.example.com",22)
If (success = False) Then
    System.DebugLog(sftp.LastErrorText)
    Return
End If

//  Authenticate with the SSH server using a username + private key.
//  (The private key serves as the password.  The username identifies
//  the SSH user account on the server.)
success = sftp.AuthenticatePk("mySshLogin",sshKey)
If (success = False) Then
    System.DebugLog(sftp.LastErrorText)
    Return
End If

System.DebugLog("OK, the connection and authentication with the SSH server is completed.")

//  This example is only to show the connection + authentication using a private key associated with a certificate in the Windows certificate store...