B4X

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-----

B4X

Dim success As Boolean = False

Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
'  Assume success...

Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = privKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
'  Assume success...

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

crypt.CryptAlgorithm = "pki"

'  ...
'  ...

success = crypt.SetDecryptCert2(cert, privKey)
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


Log("Success.")