Xbase++

SFTP Public-Key Authentication (id_ed25519)

See more SFTP Examples

Demonstrates how to authenticate with an SSH/SFTP server using publickey authentication with an Ed25519 private key (id_ed25519). Xbase++

LOCAL nSuccess
LOCAL oKey
LOCAL cPrivKeyText
LOCAL oSftp
LOCAL cHostname
LOCAL nPort

nSuccess := 0

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

oKey := CreateObject("Chilkat.SshKey")

//  The id_ed25519 file should contain something like this:
//  (You can open it in a text editor..)

//  -----BEGIN OPENSSH PRIVATE KEY-----
//  b3BlbnNzaC1rZXktdjEAAAAACmFlczI1Ni1jdHIAAAAGYmNyeXB0AAAAGAAAABDIeK9+Xw
//  6Do9gnhtrJu5iJAAAAZAAAAAEAAAAzAAAAC3NzaC1lZDI1NTE5AAAAIMh/Ge7fjQCssmVd
//  BqjYZbRAI0pY8IrnB6J1yLetq34OAAAAoMVP7cvy4hTiAINA3I4v55OonkpKza8mzfUW18
//  RDQeYL3ovCVaAYOGcCpf/SW3QiY6tnXq+5WDEfJ7Z/kQ0nl2+1wSLOytxpyO+IY0rRtLrX
//  6e/agR4nbZpt/MFG6xqcNASbtDgg+9IWGvDrtXOLFofx07/zml+UjFL0tXRpCjOxeqKyXH
//  t8SRgdT97d9/bYPwapaXY+b2DVVy5/LVx4Sq8=
//  -----END OPENSSH PRIVATE KEY-----

cPrivKeyText := oKey:LoadText("c:/temp/id_ed25519")
IF (oKey:LastMethodSuccess != 1)
    ? oKey:LastErrorText
    oKey:destroy()
    RETURN
ENDIF

//  If your private key was saved encrypted, then you'll need the password.
//  In this example, the password "blahblah" is valid for the above key -- which is a real Ed25519 key generated/saved from puttygen.
oKey:Password := "blahblah"

nSuccess := oKey:FromOpenSshPrivateKey(cPrivKeyText)
IF (nSuccess != 1)
    ? oKey:LastErrorText
    oKey:destroy()
    RETURN
ENDIF

oSftp := CreateObject("Chilkat.SFtp")

//  Set some timeouts, in milliseconds:
oSftp:ConnectTimeoutMs := 5000
oSftp:IdleTimeoutMs := 15000

cHostname := "sftp.example.com"
nPort := 22
nSuccess := oSftp:Connect(cHostname, nPort)
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oKey:destroy()
    oSftp:destroy()
    RETURN
ENDIF

//  Authenticate with the SSH server.  Chilkat SFTP supports
//  both password-based authenication as well as public-key
//  authentication.  
nSuccess := oSftp:AuthenticatePk("myLogin", oKey)
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oKey:destroy()
    oSftp:destroy()
    RETURN
ENDIF

? oSftp:LastErrorText
? "Public-Key Authentication Successful!"

//  Now go do whatever you're app needs to do...

oKey:destroy()
oSftp:destroy()