(Visual FoxPro) Generate an Ed25519 Key Pair

Demonstrates how to generate a new Ed25519 public/private key pair.

Note: This example requires Chilkat v9.5.0.83 or greater.

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

LOCAL loEddsa
LOCAL loPrng
LOCAL loPrivKey
LOCAL lnSuccess
LOCAL lcJwk
LOCAL loJson

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.EdDSA')
loEddsa = CreateObject('Chilkat.EdDSA')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loPrng = CreateObject('Chilkat.Prng')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')

* Generates a new eddsa key and stores it in privKey.
lnSuccess = loEddsa.GenEd25519Key(loPrng,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loEddsa.LastErrorText
    RELEASE loEddsa
    RELEASE loPrng
    RELEASE loPrivKey
    CANCEL
ENDIF

* Examine the ed25519 key in JWK format;
lcJwk = loPrivKey.GetJwk()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcJwk)
loJson.EmitCompact = 0
? loJson.Emit()

* Sample output:
* {
*   "kty": "OKP",
*   "crv": "Ed25519",
*   "x": "SE2Kne5xt51z1eciMH2T2ftDQp96Gl6FhY6zSQujiP0",
*   "d": "O-eRXewadF0sNyB0U9omcnt8Qg2ZmeK3WSXPYgqe570",
*   "use": "sig"
* }

* In the above JWK, x is the public key, y is the private key.
* Both are 32 bytes and are base64-url encoded.

RELEASE loEddsa
RELEASE loPrng
RELEASE loPrivKey
RELEASE loJson