как удалить вложенный сертификат из Detached подписи?

создаю и добавляю подписи

авторPrivate Function SignBytes(ByVal SrcBytes As Byte(), Certificate As X509Certificate2) As Byte()
Dim Result As Byte() = Nothing
If SrcBytes IsNot Nothing AndAlso SrcBytes.Length > 0 AndAlso Certificate IsNot Nothing Then
Try
Dim contentInfo As New ContentInfo(SrcBytes)
Dim signedCms As New SignedCms(contentInfo, True)
Dim cmsSigner As New CmsSigner(Certificate)
cmsSigner.IncludeOption = X509IncludeOption.EndCertOnly
cmsSigner.SignedAttributes.Add(New Pkcs9SigningTime)
signedCms.ComputeSignature(cmsSigner, False)
Result = signedCms.Encode()
Catch ex As Exception
Throw New Exception(ex.Message)
Result = Nothing
End Try
End If
Return Result
End Function

Public Function SignBytesAdd(ByVal SignedData As Byte(), ByVal SrcBytes As Byte(), ByVal Certificate As X509Certificate2) As Byte()
Dim Result As Byte() = Nothing
If SignedData IsNot Nothing AndAlso SignedData.Length > 0 AndAlso SrcBytes IsNot Nothing AndAlso SrcBytes.Length > 0 AndAlso Certificate IsNot Nothing Then
Try
Dim contentInfo As New ContentInfo(SrcBytes)
Dim SignedCms As New SignedCms(contentInfo, True)
SignedCms.Decode(SignedData)
Dim CmsSigner As New CmsSigner(Certificate)
cmsSigner.IncludeOption = X509IncludeOption.EndCertOnly
CmsSigner.SignedAttributes.Add(New Pkcs9SigningTime)
SignedCms.ComputeSignature(CmsSigner, False)
Result = SignedCms.Encode()
Catch ex As Exception
Throw New Exception(ex.Message)
Result = Nothing
End Try
End If
Return Result
End Function

после этого удаляю одну из подписей

авторPublic Function CertificateRemove(ByVal SignData As Byte(), CertCol As X509Certificate2Collection) As Byte()
Try
' Декодируем сообщение
Dim signedCms As new SignedCms
signedCms.Decode(SignData)
For Each si As SignerInfo In signedCms.SignerInfos
If CertCol.Contains(si.Certificate) Then signedCms.RemoveSignature(si)
Next
Return signedCms.Encode()

Catch ex As Exception
Throw New Exception(ex.Message)
Return Nothing
End Try
End Function

список сертификатов для удаления подписи
авторPublic shared Function CertificateListFromSign(ByVal SignData As Byte()) As X509Certificate2Collection
Try
Dim signedCms As New SignedCms
signedCms.Decode(SignData)
Return signedCms.Certificates
Catch ex As Exception
Throw New Exception(ex.Message)
Return Nothing
End Try
End Function

как мне при удалении подписи удалить и сертификат из подписи?

hVosttlmontek,

Не понял что вы хотите.

создаю отсоединенную подпись, подписываю двумя сертификатами.
потом удаляю одну подпись.
но signedCms.Certificates мне все равно показывает. что в файле подписи осталось два сертификата. как его изъять при удалении одной из подписей (при ошибочном подписании/пере подписании)

hVosttlmontek,

подпиши ещё раз, делов-то. не думаю, что возня с ковырянием контейнера и его пере-сборкой тебе понравится.

как мне подсказали, .Net не поддерживает функцию удаления сертификата из файла подписи ( хреново. Ладно пусть там остается.