Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

Download: Chilkat .NET Assemblies

Dim rsa As New Chilkat.Rsa()

Dim success As Boolean
success = rsa.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If


'  First demonstrate importing a PEM public key:
Dim publicKeyPem As String
publicKeyPem = "PEM public-key data goes here"
Dim pubkey As New Chilkat.PublicKey()

success = pubkey.LoadOpenSslPem(publicKeyPem)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & pubkey.LastErrorText & vbCrLf
    Exit Sub
End If


Dim publicKeyXml As String
publicKeyXml = pubkey.GetXml()

success = rsa.ImportPublicKey(publicKeyXml)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If


'  Demonstrate importing a PEM private key:
Dim privateKeyPem As String
privateKeyPem = "PEM private-key data goes here"
Dim privkey As New Chilkat.PrivateKey()

'  If the private key PEM is protected with a password, then
'  call LoadEncryptedPem.  Otherwise call LoadPem.
success = privkey.LoadPem(privateKeyPem)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & privkey.LastErrorText & vbCrLf
    Exit Sub
End If


Dim privateKeyXml As String
privateKeyXml = privkey.GetXml()
success = rsa.ImportPrivateKey(privateKeyXml)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If


MsgBox("OK!")