Статус: Новичок
Группы: Участники
Зарегистрирован: 18.02.2023(UTC) Сообщений: 3
|
Ниже пример подписи из документации. При подписывании выдает ошибку про лицензию TSP. Как изменить код, что бы подпись была без штампа времени ? Цитата:Код:
Option Explicit
Const CAPICOM_CURRENT_USER_STORE = 2
Const CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1
Dim oSigner
Set oSigner = CreateObject("CAdESCOM.CPSigner")
' Укажите правильный серийный номер сертификата.
Dim sSerialNumber : sSerialNumber = "12345678000100000000"
' Укажите правильный адрес службы штампов времени.
Dim sTSAAddress : sTSAAddress = "http://domain/tsp/tsp.srf"
oSigner.Certificate = GetSignerCertificate(sSerialNumber)
oSigner.TSAAddress = sTSAAddress
Dim oSignedData
Dim oSettings
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
oSignedData.Content = "Some very significant message"
Dim sSignedData
sSignedData = oSignedData.Sign(oSigner, False)
Function GetSignerCertificate(SerialNumber)
Set GetSignerCertificate = Nothing
Dim oCert
Dim oStore
Set oStore = CreateObject("CAdESCOM.Store")
oStore.Open CAPICOM_CURRENT_USER_STORE
For Each oCert In oStore.Certificates
If oCert.SerialNumber = SerialNumber Then
Set GetSignerCertificate = oCert
Exit For
End If
Next
End Function
Отредактировано пользователем 18 февраля 2023 г. 18:22:54(UTC)
| Причина: Не указана
|
|
|
|
Статус: Сотрудник
Группы: Участники
Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,140 ![Мужчина Мужчина](/forum2/Themes/soclean/male.gif) ![Российская Федерация Российская Федерация](/forum2/Content/images/flags/RU.png) Сказал «Спасибо»: 530 раз Поблагодарили: 2163 раз в 1688 постах
|
|
|
|
|
|
Статус: Новичок
Группы: Участники
Зарегистрирован: 18.02.2023(UTC) Сообщений: 3
|
|
|
|
|
Статус: Сотрудник
Группы: Участники
Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,140 ![Мужчина Мужчина](/forum2/Themes/soclean/male.gif) ![Российская Федерация Российская Федерация](/forum2/Content/images/flags/RU.png) Сказал «Спасибо»: 530 раз Поблагодарили: 2163 раз в 1688 постах
|
CADESCOM_CADES_BES = 1 oSignedData.SignCades(oSigner, CADESCOM_CADES_BES, false) присоединная
oSignedData.SignCades(oSigner, CADESCOM_CADES_BES, true) отсоединенная |
|
|
|
|
Статус: Новичок
Группы: Участники
Зарегистрирован: 18.02.2023(UTC) Сообщений: 3
|
Получилось. Огромное спасибо !!! Автор: Андрей * ![Перейти к цитате Перейти к цитате](/forum2/Themes/soclean/icon_latest_reply.gif) CADESCOM_CADES_BES = 1 oSignedData.SignCades(oSigner, CADESCOM_CADES_BES, false) присоединная
oSignedData.SignCades(oSigner, CADESCOM_CADES_BES, true) отсоединенная
|
|
|
|
Быстрый переход
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.
Important Information:
The Форум КриптоПро uses cookies. By continuing to browse this site, you are agreeing to our use of cookies.
More Details
Close