Encrypt and Decrypt Data in PKCS#7 format

To encrypt (and then decrypt) data in PKCS#7 format, follow these steps:

Create a new CreaSign object.
Call the Encrypt method.
(Call the Decrypt method.)

' Create CreaSignClientIE
Set cs=CreateObject("CreaSignClientIE.CreaSign") 

' The following certificate will be used for encryption
encryptCert="CERT_FIND_SUBJECT_STR=CREA_TESTUSER_1"

' Load a sample xml from file
Set data=CreateObject("CreaSignClientIE.Data")
data.AppendAnsiString("Some data")

WScript.Echo "Original: " & data.DataAsAnsiString

' Encrypt Data
Set encryptedData = cs.Encrypt(encryptCert, data, "3DES")

WScript.Echo "Encrypted: " & encryptedData.DataAsAnsiString

' Decrypt Data
Set decryptedData = cs.Decrypt(encryptedData)

WScript.Echo "Decrypted: " & decryptedData.DataAsAnsiString

Send comments on this topic.