[VB6 equivalent: CMS_MakeEnvData]
Dim nRet As Integer
Dim strOutputFile As String
Dim strInputFile As String
Dim strCertFile As String
strOutputFile = "cmsalice2bob.p7m"
strInputFile = "excontent.txt"
strCertFile = "BobRSASignByCarl.cer"
' This should return 1 (indicating one successful recipient)
nRet = Cms.MakeEnvData(strOutputFile, strInputFile, strCertFile, CipherAlgorithm.Tdea, 0)
Console.WriteLine("CMS_MakeEnvData returns " & nRet)
See Also:
Cms.MakeEnvData Method ( String, String, String, CipherAlgorithm, Cms.EnvDataOptions )
Cms.MakeEnvData Method ( String, String, String, CipherAlgorithm, Cms.KeyEncrAlgorithm, HashAlgorithm, Cms.EnvDataOptions, KdfAlg, KeyWrapAlg, String, Int32 )