Ключевое слово в защите информации
ключевое слово
в защите информации
Получить ГОСТ TLS-сертификат для домена (SSL-сертификат)
Добро пожаловать, Гость! Чтобы использовать все возможности Вход. Новые регистрации запрещены.

Уведомление

Icon
Error

Опции
К последнему сообщению К первому непрочитанному
Offline yaya  
#1 Оставлено : 25 июня 2014 г. 21:16:39(UTC)
yaya

Статус: Новичок

Группы: Участники
Зарегистрирован: 25.06.2014(UTC)
Сообщений: 1

RevokeRequestSoapBinding.AcceptRequest завершается с ошибкой:

' Функуция подписи
Public Function SignMessage(ByVal message As Byte(), ByVal signerCert As X509Certificate2) As Byte()
Dim contentInfo As ContentInfo = New ContentInfo(message)
Dim signedCms As SignedCms = New SignedCms(contentInfo, False)
signedCms.Certificates.Add(signerCert)
Dim cmsSigner As CmsSigner = New CmsSigner(SubjectIdentifierType.IssuerAndSerialNumber, signerCert)
cmsSigner.IncludeOption = X509IncludeOption.EndCertOnly
signedCms.ComputeSignature(cmsSigner)
Return signedCms.Encode()
End Function

'Как вызываю:
Dim message As String = "SN=" & serialNumberToRevoke & ",RR=" & revocationReason & ",RC=" & revocationComments
Dim messageBytes() As Byte = Encoding.Unicode.GetBytes(message)
Dim signerCert As X509Certificate2 = GetX509Certificate2("323439456932491034-045675812394529659231")
Dim encodedSignedCms() As Byte = SignMessage(messageBytes, signerCert)
Dim encodedSignedString As String = Convert.ToBase64String(encodedSignedCms)
Dim revokeRequestId As String
revokeRequestId = ws.SubmitRequest(encodedSignedString)
' Всегда получаю без ошибок и проблем revokeRequestId. Пытаюсь подтвердить запрос на отзыв сертификата по аналогии с описанными выше:
Dim messageBytes2() As Byte = Encoding.Unicode.GetBytes(revokeRequestId)
Dim encodedSignedCms2 = SignMessage(messageBytes2, signerCert)
Dim encodedSignedString2 As String = Convert.ToBase64String(encodedSignedCms2)
Dim encoded2() As Byte = Encoding.Unicode.GetBytes(encodedSignedString2)
Dim test As New AsnEncodedData(encoded2)
'Пытаюсь выполнить аналогичный запрос для AcceptRequest из RevokeRequestSoapBinding
ws.AcceptRequest(revokeRequestId, System.Text.Encoding.Unicode.GetString(test.RawData))

Ошибка - запросы не совпадают(0x80040202).
Сертификаты и пользователи нареканий не вызывали.
Что я делаю неправильно?
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Guest
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.