| 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 | 
            
		      
                Доброго времени Установил КриптоПРО CSP Как я понял поставку входит com компонент CAdESCOM(CAPICOM) Нужно ли как то его отдельно регистрировать или устанавливать для использования? Можно ссылку на пример с использованием CAdESCOM для простановки подписи? Здесь https://cpdn.cryptopro.r...tent/cades/cadescom.html  не нашел такого примера Отредактировано пользователем 16 июля 2024 г. 17:42:46(UTC)
 | Причина: Не указана | 
    | 
             | 
            
         | 
    |  | 
        
        
        
            
        
            
            
    | 
	Статус: Сотрудник
 Группы: Участники
 Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,974  Сказал «Спасибо»: 605 разПоблагодарили: 2347 раз в 1843 постах
 
 |  | 
|  | 
    | 
              1 пользователь поблагодарил Андрей * за этот пост. |  | 
    |  | 
        
        
        
    
        
            
            
    | 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 | 
            
		      
                Из примера по ссылке требуется указать 2 параметра: Цитата: Dim sSerialNumber : sSerialNumber = "12345678000100000000"' Укажите правильный адрес службы штампов времени.
 Dim sTSAAddress : sTSAAddress = "http://domain/tsp/tsp.srf"
 
 oSigner.Certificate = GetSignerCertificate(sSerialNumber)
 oSigner.TSAAddress = sTSAAddress
 Тестовый сертификат я получил из тестового ЦУ, и серийный номер как я понял я беру из сертификата: 7C001599502055E948C54D7884000800159950 1. верно ли я понял про серийный номер 2. подскажите пожалуйста где взять второй параметр? Отредактировано пользователем 16 июля 2024 г. 18:57:38(UTC)
 | Причина: Не указана | 
    | 
             | 
            
         | 
    |  | 
        
        
        
            
        
            
            
    | 
	Статус: Сотрудник
 Группы: Участники
 Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,974  Сказал «Спасибо»: 605 разПоблагодарили: 2347 раз в 1843 постах
 
 |  | 
|  | 
    | 
              1 пользователь поблагодарил Андрей * за этот пост. |  | 
    |  | 
        
        
        
    
        
            
            
    | 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 | 
            
		      
                Андрей, видимо я делаю что то не то Цитата: Set Signer = CreateObject("CAdESCOM.CPSigner")Signer.Certificate = GetSignerCertificate("7C001599502055E948C54D7884000800159950")
 Signer.TSAAddress = "http://pki.tax.gov.ru/tsp/tsp.srf"
 
 Dim Content
 Dim Message
 Dim SignedData
 
 Dim fromFile
 Dim toFile
 '   fromFile = "C:\Users\makhmudov.damir\Downloads\cr\a.pdf"
 fromFile = "C:\Users\makhmudov.damir\Downloads\cr\a.pdf"
 toFile = "C:\Users\makhmudov.damir\Downloads\cr\b.sig"
 
 ' Создание объекта SignedData.
 '   Set SignedData = CreateObject("CAPICOM.SignedData")
 Set SignedData = CreateObject("CAdESCOM.CadesSignedData")
 
 ' Распечатка информативного сообщения.
 thisapplication.AddNotify "Signing text file " & fromFile
 
 ' Загрузка содержимого файла для подписи.
 LoadFile fromFile, Content
 
 ' Подпись
 SignedData.Content = Content
 Message = SignedData.Sign(Signer)
 
 ' Сохранение подписанных данных в FileNames(1).
 SaveFile toFile, Message
 ThisApplication.addnotify "Successful - Signed message saved to " & toFile
 
 ' Освобождение ресурсов
 Set SignedData = Nothing
 так я пытаюсь создать подпись повторюсь я сформировал тестовый сертификат в адрес я поместил http://pki.tax.gov.ru/tsp/tsp.srf 1. а где его вообще взять вне формула? при покупке крипто про csp адрес такого сервера где то прописывается 2. код выше отдает мне ошибку  "The parameyet is incorect" на строке: Message = SignedData.Sign(Signer) делал на основе примера отсюдаhttps://docs.cryptopro.r...s/cadescomsamplesigndata | 
    | 
             | 
            
         | 
    |  | 
        
        
        
            
        
            
            
    | 
	Статус: Сотрудник
 Группы: Участники
 Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,974  Сказал «Спасибо»: 605 разПоблагодарили: 2347 раз в 1843 постах
 
 | 
            
		      
                1. спрашивать с УЦ, предоставляется ли такой сервис или использовать другие сервисы (на примере ранее - от ФНС)2. если не указывать Signer.TSAAddress - ошибка есть? + если закомментировать Signer.Certificate = -появляется диалог выбора сертификата?
 | 
|  | 
    | 
             | 
            
         | 
    |  | 
        
        
        
    
        
            
            
    | 
	Статус: Сотрудник
 Группы: Участники
 Зарегистрирован: 26.07.2011(UTC) Сообщений: 13,974  Сказал «Спасибо»: 605 разПоблагодарили: 2347 раз в 1843 постах
 
 |  | 
|  | 
    | 
              1 пользователь поблагодарил Андрей * за этот пост. |  | 
    |  | 
        
        
        
            
        
            
            
    | 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 | 
            
		      
                Автор: Андрей *  В плагине браузера я попадаю на такую страницу https://cryptopro.ru/sit...ge/cades_bes_sample.html  где все сертификаты ранее полученные работают - проставляют подпись с Hello word, но поля для тестового адрес там нет. [img=https://ibb.co/3TX7bRP]По ссылке из плагина[/img]по вашей ссылке Однако по вашей ссылке тестовый адрес присутствует, но при попытке подписать Hello word получаю ошибку  Цитата:Не удалось создать подпись из-за ошибки: The parameter is incorrect. (0x80070057) [img=https://ibb.co/LRm7M01]по вашей ссылке[/img]по вашей ссылке Я честно вообще не понимаю в чем разница между ними, и почему по вашей ссылке у меня ошибка ps вроде картинки верно вставляю, но не отображаются Отредактировано пользователем 16 июля 2024 г. 20:00:02(UTC)
 | Причина: Не указана | 
    | 
             | 
            
         | 
    |  | 
        
        
        
    
        
            
            
    | 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 | 
            
		      
                Автор: Андрей *  1. спрашивать с УЦ, предоставляется ли такой сервис или использовать другие сервисы (на примере ранее - от ФНС)2. если не указывать Signer.TSAAddress - ошибка есть? + если закомментировать Signer.Certificate = -появляется диалог выбора сертификата?
 1. если не указать сертификат и адрес, появляется диалог выбора сертификата там только кнопка ок и далее ошибка отсутствия адреса 2. если указать сертификат, то та же ошибка отсутствия адреса 3. если указать оба параметра причем в адрес написать "http://testca.cryptopro.ru/tsp/tsp.srf", то ошибка  Цитата:The parameter is incorect на строке: Цитата: Message = SignedData.Sign(Signer) | 
    | 
             | 
            
         | 
    |  | 
        
        
        
            
        
            
            
    | 
	Статус: Активный участник
 Группы: Участники
 Зарегистрирован: 10.02.2015(UTC) Сообщений: 43   Откуда: РФСказал «Спасибо»: 14 раз
 |  | 
    | 
             | 
            
         | 
    |  | 
        
        
        
    
	                           
	
    
        Быстрый переход
         
	
    
    Вы не можете создавать новые темы в этом форуме.
	
	Вы не можете отвечать в этом форуме.
	
	Вы не можете удалять Ваши сообщения в этом форуме.
	
	Вы не можете редактировать Ваши сообщения в этом форуме.
	
	Вы не можете создавать опросы в этом форуме.
	
	Вы не можете голосовать в этом форуме.
	
	
    
    
        Important Information:
        The Форум КриптоПро uses cookies. By continuing to browse this site, you are agreeing to our use of cookies.
        
        
More Details
        Close