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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$key = chilkat::CkSshKey->new();

# 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-----

$privKeyText = $key->loadText("c:/temp/id_ed25519");
if ($key->get_LastMethodSuccess() != 1) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

# 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.
$key->put_Password("blahblah");

$success = $key->FromOpenSshPrivateKey($privKeyText);
if ($success != 1) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

$sftp = chilkat::CkSFtp->new();

# Set some timeouts, in milliseconds:
$sftp->put_ConnectTimeoutMs(5000);
$sftp->put_IdleTimeoutMs(15000);

$hostname = "sftp.example.com";
$port = 22;
$success = $sftp->Connect($hostname,$port);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Authenticate with the SSH server.  Chilkat SFTP supports
# both password-based authenication as well as public-key
# authentication.  
$success = $sftp->AuthenticatePk("myLogin",$key);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

print $sftp->lastErrorText() . "\r\n";
print "Public-Key Authentication Successful!" . "\r\n";

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