Xojo Plugin

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

See more OpenSSL Examples

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

Xojo Plugin

Dim success As Boolean
success = False

Dim pkey As New Chilkat.PrivateKey

// Load the private key from an PEM file:
success = pkey.LoadPemFile("private.pem")
If (success = False) Then
    System.DebugLog(pkey.LastErrorText)
    Return
End If

Dim pubKey As New Chilkat.PublicKey
success = pkey.ToPublicKey(pubKey)

success = pubKey.SavePemFile(False,"pubKey.pem")
If (success <> True) Then
    System.DebugLog(pubKey.LastErrorText)

    Return
End If

System.DebugLog("Success.")