(PowerBuilder) Duplicate openssl pkey -in private.pem -pubout -out pubkey.pem

How to output the public part of a private key: Demonstrates how to duplicate this OpenSSL command:

openssl pkey -in private.pem -pubout -out pubkey.pem

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

integer li_rc
oleobject loo_Pkey
integer li_Success
oleobject loo_PubKey

loo_Pkey = create oleobject
li_rc = loo_Pkey.ConnectToNewObject("Chilkat_9_5_0.PrivateKey")
if li_rc < 0 then
    destroy loo_Pkey
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Load the private key from an PEM file:
li_Success = loo_Pkey.LoadPemFile("private.pem")
if li_Success <> 1 then
    Write-Debug loo_Pkey.LastErrorText
    destroy loo_Pkey
    return
end if

loo_PubKey = loo_Pkey.GetPublicKey()
if loo_Pkey.LastMethodSuccess = 0 then
    Write-Debug loo_Pkey.LastErrorText
    destroy loo_Pkey
    return
end if

li_Success = loo_PubKey.SavePemFile(0,"pubKey.pem")
if li_Success <> 1 then
    Write-Debug loo_PubKey.LastErrorText
    destroy loo_PubKey
    destroy loo_Pkey
    return
end if

Write-Debug "Success."

destroy loo_PubKey


destroy loo_Pkey