(Xojo Plugin) SFTP use Cert's Private Key for Authentication (Windows)

Demonstrates how to use the private key of a pre-installed certificate (on Windows) for SFTP authentication. The certificate's private key must be marked as "exportable" when originally installed.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim cert As New Chilkat.Cert

// Load the certificate from the Windows certificate store
Dim success As Boolean
success = cert.LoadByCommonName("my_cert_common_name")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Get the private key.  
Dim privKey As Chilkat.PrivateKey
privKey = cert.ExportPrivateKey()
If (cert.LastMethodSuccess = 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...