B4X

Generate an Ed25519 Key Pair

See more Ed25519 Examples

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

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

B4X

Dim success As Boolean = False

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

Dim eddsa As ChilkatEdDSA
eddsa.Initialize
Dim prng As ChilkatPrng
prng.Initialize
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")

'  Generates a new eddsa key and stores it in privKey.
success = eddsa.GenEd25519Key(prng, privKey)
If success = False Then
    Log(eddsa.LastErrorText)
    Return
End If


'  Examine the ed25519 key in JWK format;
Dim jwk As String = privKey.GetJwk

Dim json As ChilkatJsonObject
json.Initialize
json.Load(jwk)
json.EmitCompact = False
Log(json.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.