[VB6 equivalent: CMS_MakeSigData]
Dim nRet As Integer
Dim strOutputFile As String
Dim strCertList As String
' Make a list of certs separated by semi-colons (,)
strCertList = "CarlRSASelf.cer;" & "AliceRSASignByCarl.cer"
Console.WriteLine("CertList=" & strCertList)
strOutputFile = "SigDataCertsOnly.p7c"
' Create a certs-only .p7c chain
nRet = Cms.MakeSigData(strOutputFile, "", strCertList, "", Cms.Options.CertsOnly)
Console.WriteLine("CMS_MakeSigData returns " & nRet)
If nRet <> 0 Then Console.WriteLine(General.LastError())
See Also:
Cms.MakeSigData Method ( String, String, String, String, Cms.Options )
Cms.MakeSigData Method ( String, String, String, String, HashAlgorithm, Cms.SigDataOptions )