Показано с 31 по 40 из 43
Тема: Маркировка для 1С 77
Древовидный режим
-
12.05.2020, 23:41 #24
- Регистрация
- 02.07.2009
- Сообщений
- 20
- Сказал(а) спасибо
- 9
- Поблагодарили 2 раз(а) в 2 сообщениях
Re: Маркировка для 1С 77
Часто спрашивают как работать с подписями в 1С7.7. Рабочий пример. Условие - установка в системе КриптоАРМ 5 и выше. Т.е. регистрация библиотек.
Входящий параметр строка которую надо подписать. Выходящая подписанная.
//*******************************************
Функция Подписать(Стр) Экспорт
oCertificate = СоздатьОбъект("DigtCrypto.Certificate ");
oCertificateStore = СоздатьОбъект("DigtCrypto.Certificate Store");
oPKCS7Message = СоздатьОбъект("DigtCrypto.PKCS7Messag e");
oProfile = СоздатьОбъект("DigtCrypto.Profile");
oCerts = oCertificateStore.Display(1);
Если ПустоеЗначение(oCerts) <> 1 Тогда
глВыбСертификат = oCerts.Item(0);
oProfile.SilentLevel = 3;
oProfile.DisableInputFilesWindow = 1;
oProfile.SignIncludeBase64Headers = 1;
oProfile.Detach = 1;
oProfile.SetCertificate( 2, "1", глВыбСертификат);
oPKCS7Message.Profile = oProfile;
oPKCS7Message.Import(0,СокрЛП(Стр));
oPKCS7Message.Sign();
retStr = oPKCS7Message.Export( 2, 0);
Возврат retStr;
Иначе
Возврат "";
КонецЕсли;
КонецФункции // Подписать
//*******************************************
Похожие темы
-
Нужна помощь, маркировка печать Datamatrix из pdf
от AdmRPO в разделе ПомощьОтветов: 2Последнее сообщение: 26.01.2022, 22:07 -
Маркировка памяти Palit Radeon HD 2600 Pro Sonic 256 Mb DDR3
от Groov-Jet в разделе Железо (hardware)Ответов: 1Последнее сообщение: 18.01.2008, 02:55
Социальные закладки