(PureBasic) Generate RSA Key for SFTP

See more SSH Key Examples

Generates an 2048-bit RSA key for SSH/SFTP. Your application will use the generated private key. The public key is to be uploaded to the server and stored in the ".ssh" directory located under the HOME directory of the SSH/SFTP user account.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSshKey.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    numBits.i = 2048
    exponent.i = 65537
    success.i = CkSshKey::ckGenerateRsaKey(key,numBits,exponent)
    If success <> 1
        Debug "Bad params passed to RSA 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 RSA private key to encrypted PuTTY format:
    CkSshKey::setCkPassword(key, "secret")
    exportEncrypted = 1
    exportedKey = CkSshKey::ckToPuttyPrivateKey(key,exportEncrypted)
    success = CkSshKey::ckSaveText(key,exportedKey,"qa_output/rsa_privkey_putty_encrypted.ppk")

    ; Export the public key to openSSH format..
    exportedKey = CkSshKey::ckToOpenSshPublicKey(key)
    success = CkSshKey::ckSaveText(key,exportedKey,"qa_output/id_rsa.pub")

    ; Sample id_rsa.pub:
    ; ssh-rsa
    ; AAAAB3NzaC1yc2EAAAADAQABAAA.....6tK3+vjwX/YC9dIXUz2Z 

    Debug "Finished.  Upload the id_rsa.pub to your .ssh directory located on the SSH/SFTP server under your user account's HOME directory"
    Debug "(Your HOME directory is the default directory you are in when you login via an SSH terminal.)"

    ; After the id_rsa.pub is uploaded to your user account on the SSH/SFTP server, you can authenticate using the private key.
    ; Your application will load the private key (.ppk) as shown here: Load SSH/SFTP Private Key .ppk
    ; and then authenticate by calling AuthenticatePk (or AuthenticatePwPk).


    CkSshKey::ckDispose(key)


    ProcedureReturn
EndProcedure