(Visual FoxPro) Verify the RSA Signature of a SHA256 Hash

See more RSA Examples

Demonstrates how to verify an RSA signature of a SHA256 hash.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loPubKey
LOCAL lnSuccess
LOCAL loRsa
LOCAL loBdHash
LOCAL loBdSig
LOCAL lcEnc

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

* Let's say you have a file containing the 32-bytes of a SHA256 hash,
* and a file that is an RSA signature of those 32 bytes.
* Here's how you verify using the RSA public key found in a PEM.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubKey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubKey.LoadFromFile("rsaPubKey.pem")
IF (lnSuccess = 0) THEN
    ? loPubKey.LastErrorText
    RELEASE loPubKey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* Get the public key.
lnSuccess = loRsa.ImportPublicKeyObj(loPubKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loPubKey
    RELEASE loRsa
    CANCEL
ENDIF

* Get the 32-byte SHA256 hash.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdHash = CreateObject('Chilkat.BinData')
lnSuccess = loBdHash.LoadFile("myHash.sha256")
IF (lnSuccess = 0) THEN
    ? "Failed to load SHA256 hash."
    RELEASE loPubKey
    RELEASE loRsa
    RELEASE loBdHash
    CANCEL
ENDIF

* Get the RSA signature to be validated.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdSig = CreateObject('Chilkat.BinData')
lnSuccess = loBdSig.LoadFile("mySig.sig")
IF (lnSuccess = 0) THEN
    ? "Failed to load RSA signature."
    RELEASE loPubKey
    RELEASE loRsa
    RELEASE loBdHash
    RELEASE loBdSig
    CANCEL
ENDIF

* Verify the signature against the SHA256 hash.
lcEnc = "base64"
loRsa.EncodingMode = lcEnc
lnSuccess = loRsa.VerifyHashENC(loBdHash.GetEncoded(lcEnc),"sha256",loBdSig.GetEncoded(lcEnc))
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loPubKey
    RELEASE loRsa
    RELEASE loBdHash
    RELEASE loBdSig
    CANCEL
ENDIF

? "Signature validated."

RELEASE loPubKey
RELEASE loRsa
RELEASE loBdHash
RELEASE loBdSig