(Visual FoxPro) SSH Authentication using an SSH Certificate

See more SSH Examples

Demonstrates how to authenticate using an SSH certificate.

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://www.chilkatsoft.com/understanding_ssh_certificates.asp

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loSbSshCert
LOCAL lnSuccess
LOCAL loSbPrivKey
LOCAL loKey
LOCAL loSsh
LOCAL lcHostname
LOCAL lnPort

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbSshCert = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbSshCert.LoadFile("qa_data/sshCert/user_ecdsa_key-cert.pub","utf-8")
IF (lnSuccess = 0) THEN
    ? "Failed to load user_ecdsa_key-cert.pub"
    RELEASE loSbSshCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbPrivKey = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbPrivKey.LoadFile("qa_data/sshKeys/user_ecdsa_key","utf-8")
IF (lnSuccess = 0) THEN
    ? "Failed to load user_ecdsa_key"
    RELEASE loSbSshCert
    RELEASE loSbPrivKey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SshKey')
loKey = CreateObject('Chilkat.SshKey')
* Provide the password if the user_ecdsa_key is stored in an encrypted format.
loKey.Password = "secret"
lnSuccess = loKey.FromOpenSshPrivateKey(loSbPrivKey.GetAsString())
IF (lnSuccess = 0) THEN
    ? loKey.LastErrorText
    RELEASE loSbSshCert
    RELEASE loSbPrivKey
    RELEASE loKey
    CANCEL
ENDIF

* Indicate that the SSH certificate is to be used for authentication.
* The UseSshCertificate method was added in Chilkat v11.0.0
loKey.UseSshCertificate(loSbSshCert.GetAsString())

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ssh')
loSsh = CreateObject('Chilkat.Ssh')

lcHostname = "ssh.example.com"
lnPort = 22
lnSuccess = loSsh.Connect(lcHostname,lnPort)
IF (lnSuccess <> 1) THEN
    ? loSsh.LastErrorText
    RELEASE loSbSshCert
    RELEASE loSbPrivKey
    RELEASE loKey
    RELEASE loSsh
    CANCEL
ENDIF

lnSuccess = loSsh.AuthenticatePk("myLogin",loKey)
IF (lnSuccess <> 1) THEN
    ? loSsh.LastErrorText
    RELEASE loSbSshCert
    RELEASE loSbPrivKey
    RELEASE loKey
    RELEASE loSsh
    CANCEL
ENDIF

? "Public-Key Authentication using an SSH Certificate was Successful!"

RELEASE loSbSshCert
RELEASE loSbPrivKey
RELEASE loKey
RELEASE loSsh