(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, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

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.