PowerBuilder

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.

PowerBuilder

integer li_rc
integer li_Success
string ls_PrivKeyHex
string ls_PubKeyHex
oleobject loo_PrivKey
oleobject loo_Bd
oleobject loo_Eddsa
string ls_HexSig
oleobject loo_PubKey
integer li_BVerified

li_Success = 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

ls_PrivKeyHex = "833fe62409237b9d62ec77587520911e9a759cec1d19755b7da901b96dca3d42"
ls_PubKeyHex = "ec172b93ad5e563bf4932c70e1245034c35467ef2efd4d64ebf819683467e2bf"

loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")
if li_rc < 0 then
    destroy loo_PrivKey
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_PrivKey.LoadEd25519(ls_PrivKeyHex,ls_PubKeyHex)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_PrivKey
    return
end if

// The data to be signed...
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

loo_Bd.AppendEncoded("616263","hex")

loo_Eddsa = create oleobject
li_rc = loo_Eddsa.ConnectToNewObject("Chilkat.EdDSA")

// Indicate we want the Ed25519ph instance.
loo_Eddsa.Algorithm = "Ed25519ph"

ls_HexSig = loo_Eddsa.SignBdENC(loo_Bd,"hexlower",loo_PrivKey)

Write-Debug "signature = " + ls_HexSig

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

// Verify the signature..
loo_PubKey = create oleobject
li_rc = loo_PubKey.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_PubKey.LoadEd25519(ls_PubKeyHex)
if li_Success = 0 then
    Write-Debug loo_PubKey.LastErrorText
    destroy loo_PrivKey
    destroy loo_Bd
    destroy loo_Eddsa
    destroy loo_PubKey
    return
end if

li_BVerified = loo_Eddsa.VerifyBdENC(loo_Bd,ls_HexSig,"hexlower",loo_PubKey)
if li_BVerified = 0 then
    Write-Debug loo_Eddsa.LastErrorText
    Write-Debug "Failed to verify the signature."
    destroy loo_PrivKey
    destroy loo_Bd
    destroy loo_Eddsa
    destroy loo_PubKey
    return
end if

Write-Debug "The Ed25519ph signature is verified!"


destroy loo_PrivKey
destroy loo_Bd
destroy loo_Eddsa
destroy loo_PubKey