(DataFlex) Generate DSA SSH Key

Generates a DSA 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
    Boolean iSuccess
    Integer iNumBits
    String sExportedKey
    Boolean iExportEncrypted

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

    // numBits should be a minimum of 1024 and
    // a multiple of 64.  Typical values are
    // 1024 or 2048. 
    Move 2048 To iNumBits
    Get ComGenerateDsaKey Of hoKey iNumBits To iSuccess
    If (iSuccess <> True) Begin
        Showln "Invalid numBits passed to DSA 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 DSA 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 DSA 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 DSA 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