(VBScript) 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-----

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
' Assume success...

set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
' Assume success...

set crypt = CreateObject("Chilkat.Crypt2")

crypt.CryptAlgorithm = "pki"

' ...
' ...

success = crypt.SetDecryptCert2(cert,privKey)
If (success = 0) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close