Xbase++

Generate RSA SSH Key

See more SSH Key Examples

Generates an RSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY). Xbase++

LOCAL nSuccess
LOCAL oKey
LOCAL nNumBits
LOCAL nExponent
LOCAL cExportedKey
LOCAL nExportEncrypted

nSuccess := 0

oKey := CreateObject("Chilkat.SshKey")

//  numBits may range from 384 to 4096.  Typical values are
//  1024 or 2048.  (must be a multiple of 64)
//  A good choice for the exponent is 65537.  Chilkat recommends
//  always using this value.
nNumBits := 2048
nExponent := 65537
nSuccess := oKey:GenerateRsaKey(nNumBits, nExponent)
IF (nSuccess != 1)
    ? "Bad params passed to RSA key generation method."
    oKey:destroy()
    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 RSA private key to OpenSSH, PuTTY, and XML and save. 
nExportEncrypted := 0
cExportedKey := oKey:ToOpenSshPrivateKey(nExportEncrypted)
//  Chilkat provides a SaveText method for convenience...
nSuccess := oKey:SaveText(cExportedKey, "privkey_openssh_unencrypted.pem")

//  Export with encryption to OpenSSH private key format:
oKey:Password := "secret"
nExportEncrypted := 1
cExportedKey := oKey:ToOpenSshPrivateKey(nExportEncrypted)
nSuccess := oKey:SaveText(cExportedKey, "privkey_openssh_encrypted.pem")

//  Export the RSA private key to unencrypted PuTTY format:
nExportEncrypted := 0
cExportedKey := oKey:ToPuttyPrivateKey(nExportEncrypted)
nSuccess := oKey:SaveText(cExportedKey, "privkey_putty_unencrypted.ppk")

//  Export the RSA private key to encrypted PuTTY format:
oKey:Password := "secret"
nExportEncrypted := 1
cExportedKey := oKey:ToPuttyPrivateKey(nExportEncrypted)
nSuccess := oKey:SaveText(cExportedKey, "privkey_putty_encrypted.ppk")

//  Export private key to XML:
cExportedKey := oKey:ToXml()
nSuccess := oKey:SaveText(cExportedKey, "privkey.xml")

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

//  The Secure Shell (SSH) Public Key File Format
//  is documented in RFC 4716.
cExportedKey := oKey:ToRfc4716PublicKey()
nSuccess := oKey:SaveText(cExportedKey, "pubkey_rfc4716.pub")

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

? "Finished."

oKey:destroy()