(VBScript) 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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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")
set eddsa = CreateObject("Chilkat.EdDSA")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Prng")
set prng = CreateObject("Chilkat.Prng")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey = CreateObject("Chilkat.PrivateKey")

' Generates a new eddsa key and stores it in privKey.
success = eddsa.GenEd25519Key(prng,privKey)
If (success = 0) Then
    outFile.WriteLine(eddsa.LastErrorText)
    WScript.Quit
End If

' Examine the ed25519 key in JWK format;
jwk = privKey.GetJwk()

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load(jwk)
json.EmitCompact = 0
outFile.WriteLine(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.

outFile.Close