B4X

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

B4X

Dim success As Boolean = False

Dim sshkey As ChilkatSshKey
sshkey.Initialize

'  First, use the LoadText convenience method to load a text file (of any SSH key format)
'  into a string:
Dim strKey As String = sshkey.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.)
success = sshkey.FromOpenSshPrivateKey(strKey)
If success <> True Then
    Log(sshkey.LastErrorText)
Else
    Log("Loaded OpenSSH private key.")
    Return
End If


'  If the key is an OpenSSH public key:
success = sshkey.FromOpenSshPublicKey(strKey)
If success <> True Then
    Log(sshkey.LastErrorText)
Else
    Log("Loaded OpenSSH public key.")
    Return
End If


'  If the key is a PuTTY private key:
success = sshkey.FromPuttyPrivateKey(strKey)
If success <> True Then
    Log(sshkey.LastErrorText)
Else
    Log("Loaded PuTTY private key.")
    Return
End If


'  If the key is an RFC 4716 public key:
success = sshkey.FromRfc4716PublicKey(strKey)
If success <> True Then
    Log(sshkey.LastErrorText)
Else
    Log("Loaded RFC 4716 public key.")
End If