Dim signedCms As SignedCms = New SignedCms(contentInfo)

        ' Подписываем сообщение в формате CMS/PKCS7
        ' один раз для каждого сертификата отправителя.
        For Each cert As X509Certificate2 In signerCerts
            Console.Write("Вычисляем подпись сообщения для субъекта " & _
                "{0} ... ", cert.SubjectName.Name)
            signedCms.ComputeSignature(New CmsSigner(cert), False)
            Console.WriteLine("Успешно.")
        Next

        ' Вычисляем соподписи к первой в сообщении в формате
        ' CMS/PKCS7 один раз для каждого сертификата дополнительной подписи.
        For Each cert As X509Certificate2 In countersignerCerts
            Console.Write("Вычисляем соподписи сообщения для субъекта " & _
                " {0} ... ", _
                cert.SubjectName.Name)
            signedCms.SignerInfos(0).ComputeCounterSignature( _
                New CmsSigner(cert))
            Console.WriteLine("Успешно.")
        Next

 ' Этот метод выводит некотоорые свойства подписанного сообщения 
    ' в формате CMS/PKCS7. Эти свойства включают число основных и 
    ' дополнительных подписей, информацию, является ли сообщение 
    ' отделенным и версию сообщения.
    Private Sub DisplaySignedCmsProperties(ByVal info As String, _
        ByVal s As SignedCms)
        Console.WriteLine()
        Me.ListBox1.Items.Add("{0}SignedCms: {1}" & _
            Environment.NewLine & " - " & info)
        Me.ListBox1.Items.Add(ChrW(9) + "Количество подписавших:" & _
            ChrW(9) + ChrW(9) + ChrW(9) + " {0} " & _
            s.SignerInfos.Count)
        For i As Integer = 0 To s.SignerInfos.Count - 1
            Me.ListBox1.Items.Add(ChrW(9) + "Имя субъекта подписавшего #{0}:" & _
                ChrW(9) & ChrW(9) & "{1}" & _
                i + 1 & " - " & s.SignerInfos(i).Certificate.SubjectName.Name)
            Me.ListBox1.Items.Add(ChrW(9) + "Количество соподпией для " & _
                "подписавшего #{0}:" & ChrW(9) & "{1}" & _
                i + 1 & " - " & s.SignerInfos(i).CounterSignerInfos.Count)
        Next
        Console.WriteLine()
    End Sub

        ByVal signerCert As X509Certificate2) As Byte()
        ' Создаем объект ContentInfo по сообщению.
        ' Это необходимо для создания объекта SignedCms.
        Dim ContentInfo As ContentInfo = New ContentInfo(msg)

        ' Создаем объект SignedCms по только что созданному
        ' объекту ContentInfo.
        ' SubjectIdentifierType установлен по умолчанию в 
        ' IssuerAndSerialNumber.
        ' Свойство Detached установлено по умолчанию в false, таким 
        ' образом сообщение будет включено в SignedCms.
        Dim signedCms As SignedCms = New SignedCms(ContentInfo)

        ' Определяем подписывающего, объектом CmsSigner.
        Dim cmsSigner As CmsSigner = New CmsSigner(signerCert)

        ' Подписываем CMS/PKCS #7 сообение.
        Console.Write("Вычисляем подпись сообщения для субъекта " & _
            "{0} ... ", signerCert.SubjectName.Name)
        signedCms.ComputeSignature(cmsSigner)
        Console.WriteLine("Успешно.")

        ' Кодируем CMS/PKCS #7 сообщение.
        Return signedCms.Encode()