(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

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

    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    ; Load these values into the Chilkat private key object:
    success.i = CkPrivateKey::ckLoadEd25519(privKey,privKeyHex,pubKeyHex)
    If success = 0
        Debug CkPrivateKey::ckLastErrorText(privKey)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    ; ---------------------------------------------------------------
    ; We don't actually need the public key.  If we pass an empty string for the public key,
    ; Chilkat will automatically compute it.
    privKey2.i = CkPrivateKey::ckCreate()
    If privKey2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPrivateKey::ckLoadEd25519(privKey2,privKeyHex,"")

    ; Let's get the public key to see that it computed the same value.
    sbPubKeyHex.i = CkStringBuilder::ckCreate()
    If sbPubKeyHex.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    privKeyHex = CkPrivateKey::ckGetRawHex(privKey2,sbPubKeyHex)
    Debug "computed public key = " + CkStringBuilder::ckGetAsString(sbPubKeyHex)

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


    CkPrivateKey::ckDispose(privKey)
    CkPrivateKey::ckDispose(privKey2)
    CkStringBuilder::ckDispose(sbPubKeyHex)


    ProcedureReturn
EndProcedure