(PureBasic) Generate DSA SSH Key

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSshKey.pb"

Procedure ChilkatExample()

    key.i = CkSshKey::ckCreate()
    If key.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    numBits.i

    ; numBits should be a minimum of 1024 and
    ; a multiple of 64.  Typical values are
    ; 1024 or 2048. 
    numBits = 2048
    success = CkSshKey::ckGenerateDsaKey(key,numBits)
    If success <> 1
        Debug "Invalid numBits passed to DSA key generation method."
        CkSshKey::ckDispose(key)
        ProcedureReturn
    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).

    exportedKey.s
    exportEncrypted.i

    ; Export the DSA private key to OpenSSH, PuTTY, and XML and save. 
    exportEncrypted = 0
    exportedKey = CkSshKey::ckToOpenSshPrivateKey(key,exportEncrypted)
    ; Chilkat provides a SaveText method for convenience...
    success = CkSshKey::ckSaveText(key,exportedKey,"privkey_openssh_unencrypted.pem")

    ; Export with encryption to OpenSSH private key format:
    CkSshKey::setCkPassword(key, "secret")
    exportEncrypted = 1
    exportedKey = CkSshKey::ckToOpenSshPrivateKey(key,exportEncrypted)
    success = CkSshKey::ckSaveText(key,exportedKey,"privkey_openssh_encrypted.pem")

    ; Export the DSA private key to unencrypted PuTTY format:
    exportEncrypted = 0
    exportedKey = CkSshKey::ckToPuttyPrivateKey(key,exportEncrypted)
    success = CkSshKey::ckSaveText(key,exportedKey,"privkey_putty_unencrypted.ppk")

    ; Export the DSA private key to encrypted PuTTY format:
    CkSshKey::setCkPassword(key, "secret")
    exportEncrypted = 1
    exportedKey = CkSshKey::ckToPuttyPrivateKey(key,exportEncrypted)
    success = CkSshKey::ckSaveText(key,exportedKey,"privkey_putty_encrypted.ppk")

    ; Export private key to XML:
    exportedKey = CkSshKey::ckToXml(key)
    success = CkSshKey::ckSaveText(key,exportedKey,"privkey.xml")

    ; ----------------------------------------------------
    ; Now for the public key....
    ; ----------------------------------------------------

    ; The Secure Shell (SSH) Public Key File Format
    ; is documented in RFC 4716.
    exportedKey = CkSshKey::ckToRfc4716PublicKey(key)
    success = CkSshKey::ckSaveText(key,exportedKey,"pubkey_rfc4716.pub")

    ; OpenSSH has a separate public-key file format, which 
    ; is also supported by Chilkat SshKey:
    exportedKey = CkSshKey::ckToOpenSshPublicKey(key)
    success = CkSshKey::ckSaveText(key,exportedKey,"pubkey_openSsh.pub")

    Debug "Finished."


    CkSshKey::ckDispose(key)


    ProcedureReturn
EndProcedure