Visual FoxPro

RSASSA-PSS Algorithm with SHA256 Hashing

See more RSA Examples

RSA encrypt a SHA256 hash with OAEP padding. Visual FoxPro

LOCAL lnSuccess
LOCAL loPrivkey
LOCAL loRsa
LOCAL lcSigStr

lnSuccess = 0

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

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 = 0) THEN
    ? loPrivkey.LastErrorText
    RELEASE loPrivkey
    CANCEL
ENDIF

loRsa = CreateObject('Chilkat.Rsa')
* Use RSA-PSS by setting PkcsPadding = 0
loRsa.PkcsPadding = 0
* Use SHA256
loRsa.OaepHash = "SHA-256"

loRsa.UsePrivateKey(loPrivkey)

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

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

? "Signature: " + lcSigStr

RELEASE loPrivkey
RELEASE loRsa