Xbase++

Ed25519ph Sign and Verify

See more Ed25519 Examples

Demonstrates how to create an Ed25519ph signature, and then to verify it.

Note: This example requires Chilkat v9.5.0.91 or greater.

Xbase++

LOCAL nSuccess
LOCAL cPrivKeyHex
LOCAL cPubKeyHex
LOCAL oPrivKey
LOCAL oBd
LOCAL oEddsa
LOCAL cHexSig
LOCAL oPubKey
LOCAL nBVerified

nSuccess := 0

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

//  Use the following test vector from https://www.rfc-editor.org/rfc/rfc8032#page-30

//     -----TEST abc
//  
//     ALGORITHM:
//     Ed25519ph
//  
//     SECRET KEY:
//     833fe62409237b9d62ec77587520911e
//     9a759cec1d19755b7da901b96dca3d42
//  
//     PUBLIC KEY:
//     ec172b93ad5e563bf4932c70e1245034
//     c35467ef2efd4d64ebf819683467e2bf
//  
//     MESSAGE (length 3 bytes):
//     616263
//  
//     SIGNATURE:
//     98a70222f0b8121aa9d30f813d683f80
//     9e462b469c7ff87639499bb94e6dae41
//     31f85042463c2a355a2003d062adf5aa
//     a10b8c61e636062aaad11c2a26083406

cPrivKeyHex := "833fe62409237b9d62ec77587520911e9a759cec1d19755b7da901b96dca3d42"
cPubKeyHex := "ec172b93ad5e563bf4932c70e1245034c35467ef2efd4d64ebf819683467e2bf"

oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadEd25519(cPrivKeyHex, cPubKeyHex)
IF (nSuccess == 0)
    ? oPrivKey:LastErrorText
    oPrivKey:destroy()
    RETURN
ENDIF

//  The data to be signed...
oBd := CreateObject("Chilkat.BinData")
oBd:AppendEncoded("616263", "hex")

oEddsa := CreateObject("Chilkat.EdDSA")
//  Indicate we want the Ed25519ph instance.
oEddsa:Algorithm := "Ed25519ph"

cHexSig := oEddsa:SignBdENC(oBd, "hexlower", oPrivKey)

? "signature = " + cHexSig

//  The expected output is: 98a70222f0b8121aa9d30f813d683f80....

//  Verify the signature..
oPubKey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubKey:LoadEd25519(cPubKeyHex)
IF (nSuccess == 0)
    ? oPubKey:LastErrorText
    oPrivKey:destroy()
    oBd:destroy()
    oEddsa:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

nBVerified := oEddsa:VerifyBdENC(oBd, cHexSig, "hexlower", oPubKey)
IF (nBVerified == 0)
    ? oEddsa:LastErrorText
    ? "Failed to verify the signature."
    oPrivKey:destroy()
    oBd:destroy()
    oEddsa:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

? "The Ed25519ph signature is verified!"

oPrivKey:destroy()
oBd:destroy()
oEddsa:destroy()
oPubKey:destroy()