(Visual FoxPro) RSASSA-PSS Algorithm with SHA256 Hashing

RSA encrypt a SHA256 hash with OAEP padding.

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

LOCAL loPrivkey
LOCAL lnSuccess
LOCAL loRsa
LOCAL lcSigStr

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

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

* Load the private key object from a PEM file.
* (To load from a PEM string, call LoadPem instead.)
lnSuccess = loPrivkey.LoadPemFile("somePath/myPrivateKey.pem")
IF (lnSuccess <> 1) THEN
    ? loPrivkey.LastErrorText
    RELEASE loPrivkey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')
* Use RSA-PSS by setting OaepPadding = 1
loRsa.OaepPadding = 1
* Use SHA256
loRsa.OaepHash = "SHA-256"

loRsa.ImportPrivateKeyObj(loPrivkey)

* Generate a base64 signature.
loRsa.EncodingMode = "base64"

lcSigStr = loRsa.SignStringENC("String to be signed","SHA-256")
IF (loRsa.LastMethodSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPrivkey
    RELEASE loRsa
    CANCEL
ENDIF

? "Signature: " + lcSigStr

RELEASE loPrivkey
RELEASE loRsa