(PowerBuilder) 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

integer li_rc
oleobject loo_Key
integer li_Success
oleobject loo_PubKey
integer li_BPreferPkcs1

loo_Key = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_Key.ConnectToNewObject("Chilkat.PrivateKey")
if li_rc < 0 then
    destroy loo_Key
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.)
li_Success = loo_Key.LoadPemFile("qa_data/pem/VP_Private.pem")
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

// Step 2: Get the public key object from the private key object.
loo_PubKey = loo_Key.GetPublicKey()
if loo_Key.LastMethodSuccess <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

// 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.
li_BPreferPkcs1 = 0
li_Success = loo_PubKey.SavePemFile(li_BPreferPkcs1,"qa_data/pem/VP_Public.pem")
if loo_PubKey.LastMethodSuccess <> 1 then
    Write-Debug loo_PubKey.LastErrorText
    destroy loo_Key
    return
end if

destroy loo_PubKey

Write-Debug "Extracted and saved public key from private key."


destroy loo_Key