(Lianja) Generate DSA SSH Key

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

loKey = createobject("CkSshKey")

// numBits should be a minimum of 1024 and
// a multiple of 64.  Typical values are
// 1024 or 2048. 
lnNumBits = 2048
llSuccess = loKey.GenerateDsaKey(lnNumBits)
if (llSuccess <> .T.) then
    ? "Invalid numBits passed to DSA key generation method."
    release loKey
    return
endif

// 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. 
llExportEncrypted = .F.
lcExportedKey = loKey.ToOpenSshPrivateKey(llExportEncrypted)
// Chilkat provides a SaveText method for convenience...
llSuccess = loKey.SaveText(lcExportedKey,"privkey_openssh_unencrypted.pem")

// Export with encryption to OpenSSH private key format:
loKey.Password = "secret"
llExportEncrypted = .T.
lcExportedKey = loKey.ToOpenSshPrivateKey(llExportEncrypted)
llSuccess = loKey.SaveText(lcExportedKey,"privkey_openssh_encrypted.pem")

// Export the DSA private key to unencrypted PuTTY format:
llExportEncrypted = .F.
lcExportedKey = loKey.ToPuttyPrivateKey(llExportEncrypted)
llSuccess = loKey.SaveText(lcExportedKey,"privkey_putty_unencrypted.ppk")

// Export the DSA private key to encrypted PuTTY format:
loKey.Password = "secret"
llExportEncrypted = .T.
lcExportedKey = loKey.ToPuttyPrivateKey(llExportEncrypted)
llSuccess = loKey.SaveText(lcExportedKey,"privkey_putty_encrypted.ppk")

// Export private key to XML:
lcExportedKey = loKey.ToXml()
llSuccess = loKey.SaveText(lcExportedKey,"privkey.xml")

// ----------------------------------------------------
// Now for the public key....
// ----------------------------------------------------

// The Secure Shell (SSH) Public Key File Format
// is documented in RFC 4716.
lcExportedKey = loKey.ToRfc4716PublicKey()
llSuccess = loKey.SaveText(lcExportedKey,"pubkey_rfc4716.pub")

// OpenSSH has a separate public-key file format, which 
// is also supported by Chilkat SshKey:
lcExportedKey = loKey.ToOpenSshPublicKey()
llSuccess = loKey.SaveText(lcExportedKey,"pubkey_openSsh.pub")

? "Finished."


release loKey