(Visual FoxPro) Load Certificate from .cer and Private Key from .pem
Load a certificate from a .cer and its associated private key from a .pem.
LOCAL loCert
LOCAL lnSuccess
LOCAL loSbPem
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("C:/certs_and_keys/Certificate.cer")
IF (lnSuccess = 0) THEN
? loCert.LastErrorText
RELEASE loCert
CANCEL
ENDIF
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbPem = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbPem.LoadFile("C:/certs_and_keys/PrivateKey.pem","utf-8")
IF (lnSuccess = 0) THEN
? "Failed to load private key PEM"
RELEASE loCert
RELEASE loSbPem
CANCEL
ENDIF
lnSuccess = loCert.SetPrivateKeyPem(loSbPem.GetAsString())
IF (lnSuccess = 0) THEN
? loCert.LastErrorText
RELEASE loCert
RELEASE loSbPem
CANCEL
ENDIF
? "The certificate and associated private key are now loaded and ready for signing."
RELEASE loCert
RELEASE loSbPem
|