Public Key Encrypt File with Digital Certificate

VBScript to public-key encrypt a file using a digital certificate.

set crypt = CreateObject("ChilkatCrypt2.ChilkatCrypt2")
crypt.UnlockComponent "30-day trial"

crypt.CryptAlgorithm = "PKI"

' We need a certificate for signing.
set cert = CreateObject("ChilkatCertificate.ChilkatCert")
cert.LoadFromFile("chilkat.cer")
crypt.SetEncryptCert cert

crypt.CkEncryptFile "test.txt","test.enc"

crypt.SaveLastError "errors.txt"