(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$eddsa = chilkat::CkEdDSA->new();
$prng = chilkat::CkPrng->new();
$privKey = chilkat::CkPrivateKey->new();

# Generates a new eddsa key and stores it in privKey.
$success = $eddsa->GenEd25519Key($prng,$privKey);
if ($success == 0) {
    print $eddsa->lastErrorText() . "\r\n";
    exit;
}

# Examine the ed25519 key in JWK format;
$jwk = $privKey->getJwk();

$json = chilkat::CkJsonObject->new();
$json->Load($jwk);
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# 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.