(Visual Basic 6.0) Load PEM Public/Private Key into RSA Object

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

Note: This example requires Chilkat v11.0.0 or greater.

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

Dim success As Long
success = 0

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

Dim rsa As New ChilkatRsa

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

success = pubkey.LoadFromString(publicKeyPem)
If (success = 0) Then
    Debug.Print pubkey.LastErrorText
    Exit Sub
End If

success = rsa.UsePublicKey(pubkey)
If (success = 0) Then
    Debug.Print rsa.LastErrorText
    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 PrivateKey

' If the private key PEM is protected with a password, then 
' call LoadEncryptedPem.  Otherwise call LoadPem.
success = privkey.LoadPem(privateKeyPem)
If (success = 0) Then
    Debug.Print privkey.LastErrorText
    Exit Sub
End If

success = rsa.UsePrivateKey(privkey)
If (success = 0) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

Debug.Print "OK!"