(Visual FoxPro) RSA Import Public Key from Certificate PEM

Uses a certificate's public key for RSA encryption. The public key from the certificate .pem file is used.

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

LOCAL loCert
LOCAL lnSuccess
LOCAL loPubKey
LOCAL loRsa
LOCAL lcEncryptedStr

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

lnSuccess = loCert.LoadFromFile("qa_data/pem/mf_public_rsa.pem")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

loPubKey = loCert.ExportPublicKey()
IF (loCert.LastMethodSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')
lnSuccess = loRsa.ImportPublicKeyObj(loPubKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loCert
    RELEASE loRsa
    CANCEL
ENDIF

RELEASE loPubKey

loRsa.EncodingMode = "base64"
lcEncryptedStr = loRsa.EncryptStringENC("hello",0)
? "encrypted string = " + lcEncryptedStr

RELEASE loCert
RELEASE loRsa