Atom Лента - Форум КриптоПро - Тема:Ошибка при подписи VB - 10Форум КриптоПро - Atom Лентаurn:https:--www-cryptopro-ru:AtomLenta:ForumKriptoPro:Tema:OshibkapripodpisiVB-10:1Copyright 2024 Форум КриптоПро2024-03-28T18:03:18Zhttps://www.cryptopro.ru/forum2/Images/YAFLogo.pngForum Adminhttps://www.cryptopro.ruforum@cryptopro.ruАндрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *Андрей *https://www.cryptopro.ru/forum2/default.aspx?g=profile&u=15008&name=Андрей *nindukehttps://www.cryptopro.ru/forum2/default.aspx?g=profile&u=59367&name=nindukeYetAnotherForum.NETurn:https:--www-cryptopro-ru:ftPosts:st1:meid124734:1Ошибка при подписи VB<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.<u>CADESCOM_BASE64_TO_BINARY</u><br />oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT<br />Dim <u>bytes</u> = Text.Encoding.UTF8.GetBytes(sourceString)<br />oSignedData.Content = <u>bytes</u> 'здесь получаю ошибку</div></div><br /><br />в Content должна передаваться строка в base64.<br /></td></tr></table>2021-05-12T14:45:53+03:002021-05-12T14:45:53+03:00Андрей *<table class="content postContainer_Alt" width="100%"><tr><td><div class="quote"><span class="quotetitle">Цитата:</span><blockquote>oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.<u>CADESCOM_BASE64_TO_BINARY</u><br />oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT<br />Dim <u>bytes</u> = Text.Encoding.UTF8.GetBytes(sourceString)<br />oSignedData.Content = <u>bytes</u> 'здесь получаю ошибку</div></div><br /><br />в Content должна передаваться строка в base64.<br /></td></tr></table>urn:https:--www-cryptopro-ru:ftPosts:st1:meid124733:1Ошибка при подписи VB<table class="content postContainer" width="100%"><tr><td> Public Function packingBinaryData(ByVal sourceString As String, sThumbprint As String, ByVal bDetached As Boolean) As Byte()<br /> Dim oSigner As New CAdESCOM.CPSigner<br /> oSigner.Certificate = GetCertificateByThumbprint(sThumbprint)<br /> oSigner.Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN<br /><br /> Dim oSigningTimeAttr As New CAdESCOM.CPAttribute<br /> oSigningTimeAttr.Name = CAdESCOM.CADESCOM_ATTRIBUTE.CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME<br /> oSigningTimeAttr.Value = Date.Now<br /> oSigner.AuthenticatedAttributes2.Add(oSigningTimeAttr)<br /><br /> Dim oSignedData As New CAdESCOM.CadesSignedData<br /> oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY<br /> oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT<br /> Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString)<br /> <strong> oSignedData.Content = bytes 'здесь получаю ошибку</strong><br /> Dim sSignedMessage = oSignedData.SignCades(oSigner, CAdESCOM.CADESCOM_CADES_TYPE.CADESCOM_CADES_BES, bDetached, CAPICOM.CAPICOM_ENCODING_TYPE.CAPICOM_ENCODE_BASE64)<br /> Return sSignedMessage<br /> End Function<br /><br />У меня есть такая функция, при попытке отработать она выдаёт ошибку:<br />Не удалось загрузить файл или сборку "Interop.CAPICOM, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" либо одну из их зависимостей. Не удается найти указанный файл.<br /><br />at System.StubHelpers.StubHelpers.CreateCustomMarshalerHelper(IntPtr pMD, Int32 paramToken, IntPtr hndManagedType)<br /> at CAdESCOM.ICPSignedData5.set_Content(Byte[] pVal)<br /> at WorkShop.MarkingAPI.MarkingClient.packingBinaryData(String sourceString, String sThumbprint, Boolean bDetached) in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 210<br /> at WorkShop.MarkingAPI.MarkingClient.Auth() in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 37<br /><br />Можете подсказать что не так с моим кодом ? Заранее благодарен.<br /></td></tr></table>2021-05-12T14:41:20+03:002021-05-12T14:41:20+03:00ninduke<table class="content postContainer" width="100%"><tr><td> Public Function packingBinaryData(ByVal sourceString As String, sThumbprint As String, ByVal bDetached As Boolean) As Byte()<br /> Dim oSigner As New CAdESCOM.CPSigner<br /> oSigner.Certificate = GetCertificateByThumbprint(sThumbprint)<br /> oSigner.Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN<br /><br /> Dim oSigningTimeAttr As New CAdESCOM.CPAttribute<br /> oSigningTimeAttr.Name = CAdESCOM.CADESCOM_ATTRIBUTE.CADESCOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME<br /> oSigningTimeAttr.Value = Date.Now<br /> oSigner.AuthenticatedAttributes2.Add(oSigningTimeAttr)<br /><br /> Dim oSignedData As New CAdESCOM.CadesSignedData<br /> oSignedData.ContentEncoding = CAdESCOM.CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY<br /> oSignedData.DisplayData = CAdESCOM.CADESCOM_DISPLAY_DATA.CADESCOM_DISPLAY_DATA_CONTENT<br /> Dim bytes = Text.Encoding.UTF8.GetBytes(sourceString)<br /> <strong> oSignedData.Content = bytes 'здесь получаю ошибку</strong><br /> Dim sSignedMessage = oSignedData.SignCades(oSigner, CAdESCOM.CADESCOM_CADES_TYPE.CADESCOM_CADES_BES, bDetached, CAPICOM.CAPICOM_ENCODING_TYPE.CAPICOM_ENCODE_BASE64)<br /> Return sSignedMessage<br /> End Function<br /><br />У меня есть такая функция, при попытке отработать она выдаёт ошибку:<br />Не удалось загрузить файл или сборку "Interop.CAPICOM, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" либо одну из их зависимостей. Не удается найти указанный файл.<br /><br />at System.StubHelpers.StubHelpers.CreateCustomMarshalerHelper(IntPtr pMD, Int32 paramToken, IntPtr hndManagedType)<br /> at CAdESCOM.ICPSignedData5.set_Content(Byte[] pVal)<br /> at WorkShop.MarkingAPI.MarkingClient.packingBinaryData(String sourceString, String sThumbprint, Boolean bDetached) in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 210<br /> at WorkShop.MarkingAPI.MarkingClient.Auth() in E:\Develop\WorkShop\Parts\Marking\MarkingAPI\MarkingClient.vb:line 37<br /><br />Можете подсказать что не так с моим кодом ? Заранее благодарен.<br /></td></tr></table>