Xojo Plugin

ECDSA Sign and Verify Data using Different Hash Algorithms

See more ECC Examples

Demonstrates how to create ECDSA signatures on data using different hash algorithms.

Note: This example requires Chilkat v9.5.0.85 or greater because the SignBd and VerifyBd methods were added in v9.5.0.85.

Xojo Plugin

Dim success As Boolean
success = False

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

// First load an ECDSA private key to be used for signing.
Dim privKey As New Chilkat.PrivateKey
success = privKey.LoadEncryptedPemFile("qa_data/ecc/secp256r1-key-pkcs8-secret.pem","secret")
If (success = False) Then
    System.DebugLog(privKey.LastErrorText)
    Return
End If

// Load some data to be signed.
Dim bd As New Chilkat.BinData
success = bd.LoadFile("qa_data/hamlet.xml")
If (success = False) Then
    System.DebugLog("Failed to load file to be hashed.")
    Return
End If

Dim ecdsa As New Chilkat.Ecc
Dim prng As New Chilkat.Prng

// Sign the sha256 hash of the data.  Return the ECDSA signature in the base64 encoding.
System.DebugLog("ECDSA signing the sha256 hash of the data...")
Dim sig As String
sig = ecdsa.SignBd(bd,"sha256","base64",privKey,prng)
System.DebugLog("sig = " + sig)

// Verify the signature against the original data.
// (We must use the same hash algorithm that was used when signing.)

// Load the public key that corresponds to the private key used for signing.
Dim pubKey As New Chilkat.PublicKey
success = pubKey.LoadFromFile("qa_data/ecc/secp256r1-pub.pem")
If (success = False) Then
    System.DebugLog(pubKey.LastErrorText)
    Return
End If

Dim ecc2 As New Chilkat.Ecc
Dim result As Int32
result = ecc2.VerifyBd(bd,"sha256",sig,"base64",pubKey)
If (result <> 1) Then
    System.DebugLog(ecc2.LastErrorText)
    Return
End If

System.DebugLog("Verified!")

// ----------------------------------------------------------------------------------------
// Let's do the same thing, but with sha384 hashing...

System.DebugLog("--------------------------------------------")
System.DebugLog("ECDSA signing the sha384 hash of the data...")

sig = ecdsa.SignBd(bd,"sha384","base64",privKey,prng)
System.DebugLog("sig = " + sig)

result = ecc2.VerifyBd(bd,"sha384",sig,"base64",pubKey)
If (result <> 1) Then
    System.DebugLog(ecc2.LastErrorText)
    Return
End If

System.DebugLog("Verified!")