(Visual FoxPro) Convert RSA Private Key to Public Key

Demonstrates how to get a public RSA key from a private RSA key.

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

LOCAL loKey
LOCAL lnSuccess
LOCAL loPubKey
LOCAL lnBPreferPkcs1

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

* Step 1: Load the private key from a source.
* (Chilkat can load private keys from all types of formats, and from in-memory bytes or encoded strings.
* see the online reference documentation for more options.)
lnSuccess = loKey.LoadPemFile("qa_data/pem/VP_Private.pem")
IF (lnSuccess <> 1) THEN
    ? loKey.LastErrorText
    RELEASE loKey
    CANCEL
ENDIF

* Step 2: Get the public key object from the private key object.
loPubKey = loKey.GetPublicKey()
IF (loKey.LastMethodSuccess <> 1) THEN
    ? loKey.LastErrorText
    RELEASE loKey
    CANCEL
ENDIF

* Step 3: Save the public key in a desired format. 
* (Chilkat can load or save public and private keys in many different formats.  See
* the online reference documentation for more options.)

* Saves to a PKCS8 PEM file.
lnBPreferPkcs1 = 0
lnSuccess = loPubKey.SavePemFile(lnBPreferPkcs1,"qa_data/pem/VP_Public.pem")
IF (loPubKey.LastMethodSuccess <> 1) THEN
    ? loPubKey.LastErrorText
    RELEASE loKey
    CANCEL
ENDIF

RELEASE loPubKey

? "Extracted and saved public key from private key."

RELEASE loKey