CMS_MakeSigData[2]

We create a PKCS#7 certficate chain file containing Carl's and Alice's X.509 certificates.

VB6/VBA

Debug.Print "Testing CMS_MakeSigData ..."
Dim nRet As Long
Dim strOutputFile As String
Dim strCertList As String

' Make a list of certs separated by semi-colons (;)
strCertList = "CarlRSASelf.cer;" & "AliceRSASignByCarl.cer"
Debug.Print "CertList=" & strCertList
strOutputFile = "SigDataCertsOnly.p7c"

' Create a certs-only .p7c chain
nRet = CMS_MakeSigData(strOutputFile, "", strCertList, "", PKI_CMS_CERTS_ONLY)
Debug.Print "CMS_MakeSigData returns " & nRet
If nRet <> 0 Then Debug.Print pkiGetLastError()

Output

Testing CMS_MakeSigData ...
CertList=CarlRSASelf.cer;AliceRSASignByCarl.cer
CMS_MakeSigData returns 0

VB.NET

Console.WriteLine("Testing 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())

[Contents]