Visual FoxPro

Get Base64 Public Key from Private Key

See more ECC Examples

Demonstrates how to get the public key in base64 format from a private key. Visual FoxPro

LOCAL lnSuccess
LOCAL loBd
LOCAL loPrivKey
LOCAL loPubKey
LOCAL lcPubKeyBase64

lnSuccess = 0

* Load a private key from base64.
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.AppendEncoded("MHQCA....n0Q==","base64")

loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadAnyFormat(loBd,"")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loBd
    RELEASE loPrivKey
    CANCEL
ENDIF

loPubKey = CreateObject('Chilkat.PublicKey')
loPrivKey.ToPublicKey(loPubKey)

lcPubKeyBase64 = loPubKey.GetEncoded(1,"base64")
? lcPubKeyBase64

RELEASE loBd
RELEASE loPrivKey
RELEASE loPubKey