(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert

' Load the certificate from the Windows certificate store

success = cert.LoadByCommonName("my_cert_common_name")
If (success = False) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' Get the private key.  

Set privKey = cert.ExportPrivateKey()
If (cert.LastMethodSuccess = False) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If


privKeyPem = privKey.GetPkcs8Pem()
If (privKey.LastMethodSuccess = False) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

Dim sshKey As Chilkat.SshKey
Set sshKey = Chilkat.NewSshKey
success = sshKey.FromOpenSshPrivateKey(privKeyPem)
If (success = False) Then
    Debug.Print sshKey.LastErrorText
    Exit Sub
End If

' Connect to an SSH/SFTP server
Dim sftp As Chilkat.SFtp
Set sftp = Chilkat.NewSFtp
success = sftp.Connect("sftp.example.com",22)
If (success = False) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
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
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

Debug.Print "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...