|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) ECDSA Sign and Verify Data using Different Hash AlgorithmsDemonstrates 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.
LOCAL loPrivKey LOCAL lnSuccess LOCAL loBd LOCAL loEcdsa LOCAL loPrng LOCAL lcSig LOCAL loPubKey LOCAL loEcc2 LOCAL lnResult * 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey') loPrivKey = CreateObject('Chilkat.PrivateKey') lnSuccess = loPrivKey.LoadEncryptedPemFile("qa_data/ecc/secp256r1-key-pkcs8-secret.pem","secret") IF (lnSuccess = 0) THEN ? loPrivKey.LastErrorText RELEASE loPrivKey CANCEL ENDIF * Load some data to be signed. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBd = CreateObject('Chilkat.BinData') lnSuccess = loBd.LoadFile("qa_data/hamlet.xml") IF (lnSuccess = 0) THEN ? "Failed to load file to be hashed." RELEASE loPrivKey RELEASE loBd CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ecc') loEcdsa = CreateObject('Chilkat.Ecc') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng') loPrng = CreateObject('Chilkat.Prng') * Sign the sha256 hash of the data. Return the ECDSA signature in the base64 encoding. ? "ECDSA signing the sha256 hash of the data..." lcSig = loEcdsa.SignBd(loBd,"sha256","base64",loPrivKey,loPrng) ? "sig = " + lcSig * 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey') loPubKey = CreateObject('Chilkat.PublicKey') lnSuccess = loPubKey.LoadFromFile("qa_data/ecc/secp256r1-pub.pem") IF (lnSuccess = 0) THEN ? loPubKey.LastErrorText RELEASE loPrivKey RELEASE loBd RELEASE loEcdsa RELEASE loPrng RELEASE loPubKey CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ecc') loEcc2 = CreateObject('Chilkat.Ecc') lnResult = loEcc2.VerifyBd(loBd,"sha256",lcSig,"base64",loPubKey) IF (lnResult <> 1) THEN ? loEcc2.LastErrorText RELEASE loPrivKey RELEASE loBd RELEASE loEcdsa RELEASE loPrng RELEASE loPubKey RELEASE loEcc2 CANCEL ENDIF ? "Verified!" * ---------------------------------------------------------------------------------------- * Let's do the same thing, but with sha384 hashing... ? "--------------------------------------------" ? "ECDSA signing the sha384 hash of the data..." lcSig = loEcdsa.SignBd(loBd,"sha384","base64",loPrivKey,loPrng) ? "sig = " + lcSig lnResult = loEcc2.VerifyBd(loBd,"sha384",lcSig,"base64",loPubKey) IF (lnResult <> 1) THEN ? loEcc2.LastErrorText RELEASE loPrivKey RELEASE loBd RELEASE loEcdsa RELEASE loPrng RELEASE loPubKey RELEASE loEcc2 CANCEL ENDIF ? "Verified!" RELEASE loPrivKey RELEASE loBd RELEASE loEcdsa RELEASE loPrng RELEASE loPubKey RELEASE loEcc2 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.