(VBScript) Load an Ed25519 Private Key from Hex

Demonstrates how to load an Ed25519 private key from raw hex bytes.

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.PrivateKey")
set privKey = CreateObject("Chilkat.PrivateKey")

' We have the hexidecimal encoded bytes of the private key and public key:
privKeyHex = "d4ee72dbf913584ad5b6d8f1f769f8ad3afe7c28cbf1d4fbe097a88f44755842"
pubKeyHex = "19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1"

' Load these values into the Chilkat private key object:
success = privKey.LoadEd25519(privKeyHex,pubKeyHex)
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

' ---------------------------------------------------------------
' We don't actually need the public key.  If we pass an empty string for the public key,
' Chilkat will automatically compute it.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey2 = CreateObject("Chilkat.PrivateKey")
success = privKey2.LoadEd25519(privKeyHex,"")

' Let's get the public key to see that it computed the same value.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbPubKeyHex = CreateObject("Chilkat.StringBuilder")
privKeyHex = privKey2.GetRawHex(sbPubKeyHex)
outFile.WriteLine("computed public key = " & sbPubKeyHex.GetAsString())

' The output should be:
' computed public key = 19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1

outFile.Close