(Visual FoxPro) Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

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

LOCAL loSshkey
LOCAL lcStrKey
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SshKey')
loSshkey = CreateObject('Chilkat.SshKey')

* First, use the LoadText convenience method to load a text file (of any SSH key format)
* into a string:
lcStrKey = loSshkey.LoadText("../mySshKeys/myKey.txt")

* Next, load the key into the SSH key object.

* If the key is an OpenSSH private key:
* (In actuality, the From* methods will automatically detect the format and load
* the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
* it  will still load correctly.)
lnSuccess = loSshkey.FromOpenSshPrivateKey(lcStrKey)
IF (lnSuccess <> 1) THEN
    ? loSshkey.LastErrorText
ELSE
    ? "Loaded OpenSSH private key."
    RELEASE loSshkey
    CANCEL
ENDIF

* If the key is an OpenSSH public key:
lnSuccess = loSshkey.FromOpenSshPublicKey(lcStrKey)
IF (lnSuccess <> 1) THEN
    ? loSshkey.LastErrorText
ELSE
    ? "Loaded OpenSSH public key."
    RELEASE loSshkey
    CANCEL
ENDIF

* If the key is a PuTTY private key:
lnSuccess = loSshkey.FromPuttyPrivateKey(lcStrKey)
IF (lnSuccess <> 1) THEN
    ? loSshkey.LastErrorText
ELSE
    ? "Loaded PuTTY private key."
    RELEASE loSshkey
    CANCEL
ENDIF

* If the key is an RFC 4716 public key:
lnSuccess = loSshkey.FromRfc4716PublicKey(lcStrKey)
IF (lnSuccess <> 1) THEN
    ? loSshkey.LastErrorText
ELSE
    ? "Loaded RFC 4716 public key."
ENDIF

RELEASE loSshkey