Perl

Generate DSA SSH Key

See more SSH Key Examples

Generates a DSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY). Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# numBits should be a minimum of 1024 and
# a multiple of 64.  Typical values are
# 1024 or 2048.
my $numBits = 2048;
my $success = $key->GenerateDsaKey($numBits);
if (!$success) {
    print "Invalid numBits passed to DSA key generation method.\n";
    exit;
}

# Note: Generating a public/private key pair is CPU intensive
# and may take a short amount of time (more than few seconds,
# but less than a minute).

# Export the DSA private key to OpenSSH, PuTTY, and XML and save.
my $exportEncrypted = 0;
my $exportedKey = $key->ToOpenSshPrivateKey($exportEncrypted);
# Chilkat provides a SaveText method for convenience...
$success = $key->SaveText($exportedKey, 'privkey_openssh_unencrypted.pem');

# Export with encryption to OpenSSH private key format:
$key->Password('secret');
$exportEncrypted = 1;
$exportedKey = $key->ToOpenSshPrivateKey($exportEncrypted);
$success = $key->SaveText($exportedKey, 'privkey_openssh_encrypted.pem');

# Export the DSA private key to unencrypted PuTTY format:
$exportEncrypted = 0;
$exportedKey = $key->ToPuttyPrivateKey($exportEncrypted);
$success = $key->SaveText($exportedKey, 'privkey_putty_unencrypted.ppk');

# Export the DSA private key to encrypted PuTTY format:
$key->Password('secret');
$exportEncrypted = 1;
$exportedKey = $key->ToPuttyPrivateKey($exportEncrypted);
$success = $key->SaveText($exportedKey, 'privkey_putty_encrypted.ppk');

# Export private key to XML:
$exportedKey = $key->ToXml();
$success = $key->SaveText($exportedKey, 'privkey.xml');

# ----------------------------------------------------
# Now for the public key....
# ----------------------------------------------------

# The Secure Shell (SSH) Public Key File Format
# is documented in RFC 4716.
$exportedKey = $key->ToRfc4716PublicKey();
$success = $key->SaveText($exportedKey, 'pubkey_rfc4716.pub');

# OpenSSH has a separate public-key file format, which
# is also supported by Chilkat SshKey:
$exportedKey = $key->ToOpenSshPublicKey();
$success = $key->SaveText($exportedKey, 'pubkey_openSsh.pub');

print "Finished.\n";