знч ДатаС = Момент.Сейчас()
знч ДатаПо = ДатаС + 365д
знч ГенераторИздателя = новый ГенераторСертификата(АлгоритмАсимметричногоШифрования.Гост3410_2012)
ГенераторИ здателя.Субъект = "CN=Test Issuer,O=1C,E=test@test.com"
ГенераторИздателя.ДействителенС = ДатаС
ГенераторИздателя.ДействителенПо = ДатаПо
знч СертификатИздателя = ГенераторИздателя.СоздатьСертификат()
знч ГенераторСубъекта = новый ГенераторСертификата(АлгоритмАсимметричногоШифрования.Гост3410_2012)
ГенераторСубъекта.УстановитьЗакрытыйКлючПодписиСертификата(ГенераторИздателя.ЗакрытыйКлюч, СертификатИздателя)
ГенераторСубъекта.Субъект = "CN=Test Subject,O=1C,E=test@test.com"
ГенераторСубъекта.ДействителенС = ДатаС
ГенераторСубъекта.ДействителенПо = ДатаПо
ГенераторСубъекта.ДобавитьТочкуРаспространенияСпискаОтзыва("https://some.url/revoked.crl")
знч СертификатСубъекта = ГенераторСубъекта.СоздатьСертификат()
знч Хранилище = новый ХранилищеPkcs12()
Хранилище.ДобавитьЗакрытыйКлюч("Test Issuer", ГенераторИздателя.ЗакрытыйКлюч, "password", СертификатИздателя)
Хранилище.ДобавитьЗакрытыйКлюч("Test Subject", ГенераторСубъекта.ЗакрытыйКлюч, "password", СертификатСубъекта)
знч СертификатНаОтзыв = Хранилище.НайтиСертификат("Test Subject")
если СертификатНаОтзыв != Неопределено
знч ГенераторОтозванныхСертификатов = новый ГенераторСпискаОтозванныхСертификатов(СертификатНаОтзыв!.Издатель, СертификатНаОтзыв!.ДействителенС)
ГенераторОтозванныхСертификатов.СледующееОбновление = ГенераторОтозванныхСертификатов.ДействителенС + 3д
ГенераторОтозванныхСертификатов.ДобавитьОтозванныйСертификат(СертификатНаОтзыв!.СерийныйНомер, Момент.Сейчас(), ПричинаОтзываСертификата.ПрекращениеРаботы)
знч СписокОтозванныхСертификатов = ГенераторОтозванныхСертификатов.СоздатьСписокОтозванныхСертификатов(ГенераторИздателя.ЗакрытыйКлюч, АлгоритмХеширования.Гост3411_2012_256)
;