(Xojo Plugin) Example: Crypt2.SetDecryptCert2 method
Demonstrates how to call the SetDecryptCert2 method. This example loads the certificate and private key from PEM files:
PEM Format
Certificate file (cert.pem or cert.crt ):
-----BEGIN CERTIFICATE-----
MIID... (base64-encoded data)
-----END CERTIFICATE-----
Private key file (key.pem or key.key ):
-----BEGIN PRIVATE KEY-----
MIIE... (base64-encoded data)
-----END PRIVATE KEY-----
Dim cert As New Chilkat.Cert
Dim success As Boolean
success = cert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
// Assume success...
Dim privKey As New Chilkat.PrivateKey
success = privKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
// Assume success...
Dim crypt As New Chilkat.Crypt2
crypt.CryptAlgorithm = "pki"
// ...
// ...
success = crypt.SetDecryptCert2(cert,privKey)
If (success = False) Then
System.DebugLog(crypt.LastErrorText)
Return
End If
System.DebugLog("Success.")
|