(Visual FoxPro) Example: Crypt2.SetSigningCert method
Demonstrates how to call the SetSigningCert method.
LOCAL loCryptA
LOCAL loCertA
LOCAL lnSuccess
LOCAL loCryptB
LOCAL loCertB
LOCAL loCryptC
LOCAL loCertC
* Signing certificates can be obtained from many different sources..
* Load from a PFX
loCryptA = CreateObject('Chilkat.Crypt2')
loCertA = CreateObject('Chilkat.Cert')
lnSuccess = loCertA.LoadPfxFile("c:/someDir/pfx_files/a.pfx","pfx_file_password")
lnSuccess = loCryptA.SetSigningCert(loCertA)
* ...
* Load from a smart card or USB token.
loCryptB = CreateObject('Chilkat.Crypt2')
loCertB = CreateObject('Chilkat.Cert')
loCertB.SmartCardPin = "123456"
lnSuccess = loCertB.LoadFromSmartcard("")
lnSuccess = loCryptB.SetSigningCert(loCertB)
* ...
* Load from a the Windows certificate store or macOS keychain
loCryptC = CreateObject('Chilkat.Crypt2')
loCertC = CreateObject('Chilkat.Cert')
lnSuccess = loCertC.LoadByCommonName("Xyz 123")
lnSuccess = loCryptC.SetSigningCert(loCertC)
* ...
RELEASE loCryptA
RELEASE loCertA
RELEASE loCryptB
RELEASE loCertB
RELEASE loCryptC
RELEASE loCertC
|
