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

Уведомление

Icon
Error

Опции
К последнему сообщению К первому непрочитанному
Offline ninduke  
#1 Оставлено : 12 мая 2021 г. 14:41:20(UTC)
ninduke

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

Группы: Участники
Зарегистрирован: 12.05.2021(UTC)
Сообщений: 1
Российская Федерация

Public Function packingBinaryData(ByVal sourceString As String, sThumbprint As String, ByVal bDetached As Boolean) As Byte()
Dim oSigner As New CAdESCOM.CPSigner
oSigner.Certificate = GetCertificateByThumbprint(sThumbprint)
oSigner.Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN

Dim oSigningTimeAttr As New CAdESCOM.CPAttribute
oSigningTimeAttr.Name = CAdESCOM.CADESCOM_ATTRIBUTE.CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME
oSigningTimeAttr.Value = Date.Now
oSigner.AuthenticatedAttributes2.Add(oSigningTimeAttr)

Dim oSignedData As New CAdESCOM.CadesSignedData
oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY
oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT
Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString)
oSignedData.Content = bytes 'здесь получаю ошибку
Dim sSignedMessage = oSignedData.SignCades(oSigner, CAdESCOM.CADESCOM_CADES_TYPE.CADESCOM_CADES_BES, bDetached, CAPICOM.CAPICOM_ENCODING_TYPE.CAPICOM_ENCODE_BASE64)
Return sSignedMessage
End Function

У меня есть такая функция, при попытке отработать она выдаёт ошибку:
Не удалось загрузить файл или сборку "Interop.CAPICOM, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" либо одну из их зависимостей. Не удается найти указанный файл.

at System.StubHelpers.StubHelpers.CreateCustomMarshalerHelper(IntPtr pMD, Int32 paramToken, IntPtr hndManagedType)
at CAdESCOM.ICPSignedData5.set_Content(Byte[] pVal)
at WorkShop.MarkingAPI.MarkingClient.packingBinaryData(String sourceString, String sThumbprint, Boolean bDetached) in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 210
at WorkShop.MarkingAPI.MarkingClient.Auth() in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 37

Можете подсказать что не так с моим кодом ? Заранее благодарен.
Offline Андрей *  
#2 Оставлено : 12 мая 2021 г. 14:45:53(UTC)
Андрей *

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 26.07.2011(UTC)
Сообщений: 10,664
Мужчина
Российская Федерация

Сказал «Спасибо»: 393 раз
Поблагодарили: 1612 раз в 1238 постах
Цитата:
oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY
oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT
Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString)
oSignedData.Content = bytes 'здесь получаю ошибку


в Content должна передаваться строка в base64.
Техническую поддержку оказываем тут
Наша база знаний
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.