Perl

Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sshkey = Chilkat2::SshKey->new;

# First, use the LoadText convenience method to load a text file (of any SSH key format)
# into a string:
my $strKey = $sshkey->LoadText('../mySshKeys/myKey.txt');

# Next, load the key into the SSH key object.

# If the key is an OpenSSH private key:
# (In actuality, the From* methods will automatically detect the format and load
# the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
# it  will still load correctly.)
my $success = $sshkey->FromOpenSshPrivateKey($strKey);
if (!$success) {
    print $sshkey->LastErrorText, "\n";
} else {
    print "Loaded OpenSSH private key.\n";
    exit;
}

# If the key is an OpenSSH public key:
$success = $sshkey->FromOpenSshPublicKey($strKey);
if (!$success) {
    print $sshkey->LastErrorText, "\n";
} else {
    print "Loaded OpenSSH public key.\n";
    exit;
}

# If the key is a PuTTY private key:
$success = $sshkey->FromPuttyPrivateKey($strKey);
if (!$success) {
    print $sshkey->LastErrorText, "\n";
} else {
    print "Loaded PuTTY private key.\n";
    exit;
}

# If the key is an RFC 4716 public key:
$success = $sshkey->FromRfc4716PublicKey($strKey);
if (!$success) {
    print $sshkey->LastErrorText, "\n";
} else {
    print "Loaded RFC 4716 public key.\n";
}