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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoKey
    Integer iNumBits
    Integer iExponent
    Boolean iSuccess
    String sExportedKey
    Boolean iExportEncrypted

    Get Create (RefClass(cComChilkatSshKey)) To hoKey
    If (Not(IsComObjectCreated(hoKey))) Begin
        Send CreateComObject of hoKey
    End

    // 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.
    Move 2048 To iNumBits
    Move 65537 To iExponent
    Get ComGenerateRsaKey Of hoKey iNumBits iExponent To iSuccess
    If (iSuccess <> True) Begin
        Showln "Bad params passed to RSA key generation method."
        Procedure_Return
    End

    // 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. 
    Move False To iExportEncrypted
    Get ComToOpenSshPrivateKey Of hoKey iExportEncrypted To sExportedKey
    // Chilkat provides a SaveText method for convenience...
    Get ComSaveText Of hoKey sExportedKey "privkey_openssh_unencrypted.pem" To iSuccess

    // Export with encryption to OpenSSH private key format:
    Set ComPassword Of hoKey To "secret"
    Move True To iExportEncrypted
    Get ComToOpenSshPrivateKey Of hoKey iExportEncrypted To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "privkey_openssh_encrypted.pem" To iSuccess

    // Export the RSA private key to unencrypted PuTTY format:
    Move False To iExportEncrypted
    Get ComToPuttyPrivateKey Of hoKey iExportEncrypted To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "privkey_putty_unencrypted.ppk" To iSuccess

    // Export the RSA private key to encrypted PuTTY format:
    Set ComPassword Of hoKey To "secret"
    Move True To iExportEncrypted
    Get ComToPuttyPrivateKey Of hoKey iExportEncrypted To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "privkey_putty_encrypted.ppk" To iSuccess

    // Export private key to XML:
    Get ComToXml Of hoKey To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "privkey.xml" To iSuccess

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

    // The Secure Shell (SSH) Public Key File Format
    // is documented in RFC 4716.
    Get ComToRfc4716PublicKey Of hoKey To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "pubkey_rfc4716.pub" To iSuccess

    // OpenSSH has a separate public-key file format, which 
    // is also supported by Chilkat SshKey:
    Get ComToOpenSshPublicKey Of hoKey To sExportedKey
    Get ComSaveText Of hoKey sExportedKey "pubkey_openSsh.pub" To iSuccess

    Showln "Finished."


End_Procedure