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

Dim success As Boolean = False

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

Dim cert As ChilkatCert
cert.Initialize("cert")

Dim pfxFilepath As String = "qa_data/pfx/my.pfx"
Dim pfxPassword As String = "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
    Log(cert.LastErrorText)
    Return
End If


'  Get the private key.  
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = cert.GetPrivateKey(privKey)
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


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


Dim sshKey As ChilkatSshKey
sshKey.Initialize
success = sshKey.FromOpenSshPrivateKey(privKeyPem)
If success = False Then
    Log(sshKey.LastErrorText)
    Return
End If


'  Connect to an SSH/SFTP server
Dim sftp As ChilkatSFtp
sftp.Initialize("sftp")
success = sftp.Connect("sftp.example.com", 22)
If success = False Then
    Log(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
    Log(sftp.LastErrorText)
    Return
End If


Log("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...