Универсальный синтаксический анализатор ASN.1 для декодирования .key, .cer, .der, .p7m, .p7s, .crt, .pem

27.07.25

Универсальный синтаксический анализатор ASN.1, который может декодировать любую допустимую структуру ASN.1 DER или BER, независимо от того, закодирована ли она в кодировке Base64 (распознаются необработанные base64, защита PEM и begin-base64) или в шестнадцатеричном кодировании.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Синтаксический анализатор ASN.1 .epf 60,08Kb ver:1.0 21	21	2 500 руб. Купить	1 SM Скачать

Стандартные средства 1С по работе с сертификатами, такой как

Сертификат = Новый СертификатКриптографии()

не позволяет в полной мере получить информацию, хранимую в файле. Лишь поверхностную информацию.

Данная обработка решает эту проблему.

Используя инструменты 1С по работе с двоичными данными, такие как:

ПроверитьБит()
ПроверитьПоБитовойМаске()
УстановитьБит()
ПобитовоеИ()
ПобитовоеИли()
ПобитовоеНе()
ПобитовоеИНе()
ПобитовоеИсключительноеИли()
ПобитовыйСдвигВлево()
ПобитовыйСдвигВправо()

можно извлечь и структурировать хранимую в сертификате информацию любой сложности.

Обработка не требует никаких дополнительных внешних компонент и программ, используя исключительно язык 1С.

В левой части обработки расположена HEX строка двоичных данный, полученная методом:

HEXСтрока = ПолучитьHexСтрокуИзДвоичныхДанных(ДД);

Чуть ниже, отображена строка двоичных данных в Base64:

Base64 = Base64Строка(ДД);

В левой части располагается структурированный результат обработки файла, в виде "ДереваЗначений", представляющую иерархическую структуру хранимой информации.

Типы хранимой в файле информации:

Номер тэга	Тип хранимой информации
0	EOC
1	BOOLEAN
2	INTEGER
3	BIT STRING
4	OCTET STRING
5	NULL
6	OBJECT IDENTIFIER
7	ObjectDescriptor
8	EXTERNAL
9	REAL
10	ENUMERATED
11	EMBEDDED PDV
12	UTF8String
13	RELATIVE OID
16	SEQUENCE
17	SET
18	NumericString
19	PrintableString
20	TeletexString
21	VideotexString
22	IA5String
23	UTCTime
24	GeneralizedTime
25	GraphicString
26	VisibleString
27	GeneralString
28	UniversalString
30	BMPString

*В зависимости от номера тэга, определяется способ получения хранимой информации

Обработка работает со следующими типами файлов:

Функционал полностью основан на разработке lapo-luchini (github) под JavaScript.

Пример на JavaScript

ASN1.prototype.content = function (maxLength) {
    if (this.tag === undefined)
        return null;
    if (maxLength === undefined)
        maxLength = Infinity;
    var content = this.posContent(),
        len = Math.abs(this.length);
    if (!this.tag.isUniversal()) {
        if (this.sub !== null)
            return "(" + this.sub.length + " elem)";
        var d1 = this.stream.parseOctetString(content, content + len, maxLength);
        return "(" + d1.size + " byte)\n" + d1.str;
    }
    switch (this.tag.tagNumber) {
    case 0x01: // BOOLEAN
        return (this.stream.get(content) === 0) ? "false" : "true";
    case 0x02: // INTEGER
        return this.stream.parseInteger(content, content + len);
    case 0x03: // BIT_STRING
        var d = recurse(this, 'parseBitString', maxLength);
        return "(" + d.size + " bit)\n" + d.str;
    case 0x04: // OCTET_STRING
        d = recurse(this, 'parseOctetString', maxLength);
        return "(" + d.size + " byte)\n" + d.str;
    //case 0x05: // NULL
    case 0x06: // OBJECT_IDENTIFIER
        return this.stream.parseOID(content, content + len, maxLength);
    //case 0x07: // ObjectDescriptor
    //case 0x08: // EXTERNAL
    //case 0x09: // REAL
    case 0x0A: // ENUMERATED
        return this.stream.parseInteger(content, content + len);
    //case 0x0B: // EMBEDDED_PDV
    case 0x0D: // RELATIVE-OID
        return this.stream.parseRelativeOID(content, content + len, maxLength);
    case 0x10: // SEQUENCE
    case 0x11: // SET
        if (this.sub !== null)
            return "(" + this.sub.length + " elem)";
        else
            return "(no elem)";
    case 0x0C: // UTF8String
        return recurse(this, 'parseStringUTF', maxLength).str;
    case 0x14: // TeletexString
        return recurse(this, 'parseStringT61', maxLength).str;
    case 0x12: // NumericString
    case 0x13: // PrintableString
    case 0x15: // VideotexString
    case 0x16: // IA5String
    case 0x1A: // VisibleString
    case 0x1B: // GeneralString
    //case 0x19: // GraphicString
    //case 0x1C: // UniversalString
        return recurse(this, 'parseStringISO', maxLength).str;
    case 0x1E: // BMPString
        return recurse(this, 'parseStringBMP', maxLength).str;
    case 0x17: // UTCTime
    case 0x18: // GeneralizedTime
        return this.stream.parseTime(content, content + len, (this.tag.tagNumber == 0x17));
    }
    return null;
};

Пример на 1С

Функция content(maxLength, asn1, oids)
	
	Если (asn1.tag = Неопределено) Тогда
		Возврат null
	КонецЕсли;
	
	Если (maxLength = Неопределено) Тогда
		maxLength = 600;	
	КонецЕсли;
	
	content = posContent(asn1);
	
	len = math_abs(asn1.length); 
	
	Если НЕ (isUniversal(asn1.tag.tagClass)) Тогда
		Если (asn1.sub <> null) Тогда
			Возврат СтрШаблон("(%1 elem)", asn1.sub.Количество());	
		КонецЕсли;
		d1 = parseOctetString(asn1, content, content + len, maxLength);
		Возврат СтрШаблон("(%1 byte) %2", d1.size, d1.str);
	КонецЕсли;
	
	tagNumber = asn1.tag.tagNumber; 
	
	Если tagNumber = 1 Тогда 
		Возврат ?(asn1.stream.enc[pos(asn1.stream, content)] = 0, "False", "True");	
	ИначеЕсли tagNumber = 2 Тогда
		Возврат parseInteger(content, content + len, asn1); 	
	ИначеЕсли tagNumber = 3 Тогда
		d = recurse(asn1, "parseBitString", maxLength);
		Возврат СтрШаблон("(%1 bit) %2", d.size, d.str);
	ИначеЕсли tagNumber = 4 Тогда
		d = recurse(asn1, "parseOctetString", maxLength);
		Возврат СтрШаблон("(%1 byte) %2", d.size, d.str);
	//ИначеЕсли tagNumber = 5 Тогда
			
	ИначеЕсли tagNumber = 6 Тогда
		Возврат parseOID(asn1, content, content + len, maxLength, oids);	
	//ИначеЕсли tagNumber = 7 Тогда
	//	
	//ИначеЕсли tagNumber = 8 Тогда
	//	
	//ИначеЕсли tagNumber = 9 Тогда
		
	ИначеЕсли tagNumber = 10 Тогда
		Возврат parseInteger(content, content + len, asn1);	
	//ИначеЕсли tagNumber = 11 Тогда
		
	ИначеЕсли tagNumber = 12 Тогда
		d = recurse(asn1, "parseStringUTF", maxLength);
		Возврат d.str;
	ИначеЕсли tagNumber = 20 Тогда
		d = recurse(asn1, "parseStringT61", maxLength);
		Возврат d.str;
	ИначеЕсли tagNumber = 13 Тогда
		Возврат parseRelativeOID(asn1, content, content + len, maxLength, oids);	
	ИначеЕсли ((tagNumber = 16)
		ИЛИ (tagNumber = 17)) Тогда
		
		Если (asn1.sub <> null) Тогда
			Возврат "(" + Строка(asn1.sub.Количество()) + " elem)"; 
		Иначе
			Возврат "(no elem)";	
		КонецЕсли;
		
	ИначеЕсли (tagNumber = 18)
		ИЛИ (tagNumber = 19)
		ИЛИ (tagNumber = 21)
		ИЛИ (tagNumber = 22)
		ИЛИ (tagNumber = 26)
		ИЛИ (tagNumber = 27) Тогда
		
		d = recurse(asn1, "parseStringISO", maxLength);
		Возврат d.str; 
	//ИначеЕсли tagNumber = 28 Тогда
		
	ИначеЕсли tagNumber = 30 Тогда
		d = recurse(asn1, "parseStringBMP", maxLength);
		Возврат d.str;
		
	ИначеЕсли (tagNumber = 23) ИЛИ (tagNumber = 24) Тогда
		Возврат parseTime(asn1, content, content + len, tagNumber = 23, maxLength);	
	Иначе
		Возврат null;	
	КонецЕсли
	
КонецФункции

Пример "Парсинг типа строки"

JavaScript

Stream.prototype.parseBitString = function (start, end, maxLength) {
    var unusedBits = this.get(start);
    if (unusedBits > 7)
        throw 'Invalid BitString with unusedBits=' + unusedBits;
    var lenBit = ((end - start - 1) << 3) - unusedBits,
        s = "";
    for (var i = start + 1; i < end; ++i) {
        var b = this.get(i),
            skip = (i == end - 1) ? unusedBits : 0;
        for (var j = 7; j >= skip; --j)
            s += (b >> j) & 1 ? "1" : "0";
        if (s.length > maxLength)
            s = stringCut(s, maxLength);
    }
    return { size: lenBit, str: s };
};

Функция parseBitString(el, start, end, maxLength)
	
	unusedBits = get(pos(el.Stream, start), el.stream.enc);
	
	Если (unusedBits > 7) Тогда
		ТекстИсключения = Нстр("ru = 'Неверная битовая строка с unusedBits=%1'");
		ТекстИсключения = СтрШаблон(ТекстИсключения, unusedBits);
		ВызватьИсключение(ТекстИсключения);
	КонецЕсли;
	
	lenBit = ПобитовыйСдвигВлево((end - start - 1), 3) - unusedBits;
	s = "";
	i = start + 1;
	Пока (i < end) Цикл
		b = get(i, el.stream.enc);
		skip = ?(i = (end - 1), unusedBits, 0);
		j = 7;
		Пока (j >= skip) Цикл
			s = s + ?(ПобитовоеИ(ПобитовыйСдвигВправо(b, j), 1) <> 0, "1", "0");
			Если (СтрДлина(s) > maxLength) Тогда
				s = Лев(s, maxLength);
			КонецЕсли;
			j = j - 1;
		КонецЦикла;
		i = i + 1;
	КонецЦикла;
	
	Возврат Новый Структура("size, str", lenBit, s);
	
КонецФункции

Пример "Парсинг целочисленных типов"

JavaScript

Stream.prototype.parseInteger = function (start, end) {
    var v = this.get(start),
        neg = (v > 127),
        pad = neg ? 255 : 0,
        len,
        s = '';
    // skip unuseful bits (not allowed in DER)
    while (v == pad && ++start < end)
        v = this.get(start);
    len = end - start;
    if (len === 0)
        return neg ? '-1' : '0';
    // show bit length of huge integers
    if (len > 4) {
        s = v;
        len <<= 3;
        while (((s ^ pad) & 0x80) == 0) {
            s <<= 1;
            --len;
        }
        s = "(" + len + " bit)\n";
    }
    // decode the integer
    if (neg) v = v - 256;
    var n = new Int10(v);
    for (var i = start + 1; i < end; ++i)
        n.mulAdd(256, this.get(i));
    return s + n.toString();
};

1С

Функция parseInteger(start, end, asn1)
	
	v = pos(asn1.stream, start);
	v = asn1.stream.enc[v]; 
	neg = (v > 127);
	pad = ?(neg, 255, 0);
	s = "";
	
	Пока (v = pad И start < end) Цикл
		start = start + 1;
		v = pos(asn1.stream, start);
		v = asn1.stream.enc[v];
	КонецЦикла;
	
	len = end - start;
	
	Если (len = 0) Тогда
		Возврат ?(neg, "-1", "0");
	КонецЕсли;
	
	Если (len > 4) Тогда
		s = v;
		len = ПобитовыйСдвигВлево(len, 3);
		Пока ((ПобитовоеИ(ПобитовоеИсключительноеИли(s, pad), 128)) = 0) Цикл
			s = ПобитовыйСдвигВлево(s, 1);
			len = len - 1;
		КонецЦикла;
		s = "(" + len + " bit) ";
	КонецЕсли;
	
	Если neg Тогда
		v = v - 256;	
	КонецЕсли;
	
	buf = Новый Массив;
	n = Int10(buf, v); 
	
	i = start + 1;
	Пока i < end Цикл
		n = asn1.stream.enc[pos(asn1.stream, i)];
		n = mulAdd(256, n, asn1, buf);
		i = i + 1;
	КонецЦикла;
	
	Возврат s + toString(, asn1, buf);
	
КонецФункции

Пример "Парсинг типа даты"

JavaScript

Stream.prototype.parseTime = function (start, end, shortYear) {
    var s = this.parseStringISO(start, end).str,
        m = (shortYear ? reTimeS : reTimeL).exec(s);
    if (!m)
        return "Unrecognized time: " + s;
    if (shortYear) {
        // to avoid querying the timer, use the fixed range [1970, 2069]
        // it will conform with ITU X.400 [-10, +40] sliding window until 2030
        m[1] = +m[1];
        m[1] += (m[1] < 70) ? 2000 : 1900;
    }
    s = m[1] + "-" + m[2] + "-" + m[3] + " " + m[4];
    if (m[5]) {
        s += ":" + m[5];
        if (m[6]) {
            s += ":" + m[6];
            if (m[7])
                s += "." + m[7];
        }
    }
    if (m[8]) {
        s += " UTC";
        if (m[9])
            s += m[9] + ":" + (m[10] || "00");
    }
    return s;
};

1С

Функция parseTime(el, start, end, shortYear, maxLength)
	
	s = parseStringISO(el, start, end, maxLength).str;
	// s = "171213000000Z" вид хранимой даты
	Попытка
		m = Новый Массив;
		start = СтрДлина(s);
		i = 1;
		Пока (i < start) Цикл
			m.Добавить(Сред(s, i, 2));
			i = i + 2;
		КонецЦикла;
		
		m[0] = (?(Число(m[0]) < 70, 2000, 1900) + Число(m[0])); 
		
		s = СтрШаблон("%1-%2-%3 %4:%5:%6", 
						Формат(m[0], "ЧН=0; ЧГ="),
						m[1],
						m[2],
						m[3],
						m[4],
						m[5]);
		
	Исключение
		Возврат СтрШаблон("Нераспознанное время: %1", s);	
	КонецПопытки;
	
	Возврат s;
		 
КонецФункции

Требования:

Платформа 1С начиная с 8.3.14 и выше

Проверено на следующих конфигурациях и релизах:

Документооборот КОРП, релизы 2.1.3.1

Вступайте в нашу телеграмм-группу Инфостарт

Обработка шифрование сертификаты key cer der p7m p7s crt pem x.509 x509 криптография эцп

+15 –

См. также

Подпись файла методами криптографии

Защита ПО и шифрование Программист Бухгалтер Пользователь 1С:Предприятие 8 Россия Абонемент ($m)

Обработка для подписи с помощью сертификата (ЭЦП) произвольных файлов, средствами платформы 1С.

5 стартмани

19.06.2025 1479 2 krundel 2

Прячем файлы грамотно! Шпионам на заметку. В картинку запихиваем много-много файлов, и она остается картинкой!

Защита ПО и шифрование 1С:Предприятие 8 Абонемент ($m)

Как спрятать свои секретные файлы от глаз любого? Всё просто, прячем все свои файлы (видео. документы, архивы, фото, да вообще любые файлы) в картинку или фото. Картинка при этом остается такой же красочной и визуально не изменившейся (лишь подрастет её вес). Стало интересно? Посмотри, как это делается, на скриншотах, если лень читать описание.

1 стартмани

03.06.2025 1680 user1195929 13

XOR в 1С: защита данных, программирование и практическое применение шифрования и дешифрования

Защита ПО и шифрование Программист 1С:Предприятие 8 Абонемент ($m)

Статья посвящена практическому применению XOR-шифрования в среде 1С:Предприятие. Рассматривается теоретическая основа операции XOR, её особенности как метода шифрования, а также преимущества и недостатки в контексте защиты данных. Подробно описываются методы реализации XOR-шифрования и дешифрования на языке 1С, включая примеры кода и практические сценарии использования, такие как шифрование паролей, защита конфиденциальных данных в файлах и передача зашифрованной информации между системами. Обсуждаются аспекты безопасности, выбор ключей, а также интеграция с другими механизмами защиты данных в 1С. Статья ориентирована на разработчиков 1С, стремящихся повысить уровень защиты информации в своих решениях.

1 стартмани

09.04.2025 2738 user1195929 6

Алгоритмы шифрования ГОСТ 34.10-2012, RSA-1024, AES-256-GCM, XChacha20-poly1305

Защита ПО и шифрование Программист 1С:Предприятие 8 Россия Абонемент ($m)

Обработки, в которых реализованы алгоритмы шифрования ГОСТ 34.10-2012, RSA-1024, AES-256-GCM, XChacha20-poly1305. Реализация нативно на чистом 1С без COM-объектов и внешних компонент.

1 стартмани

17.03.2025 3108 32 alexyur 9

Установка своего пароля на отчет, не втягивая в это RLS

Защита ПО и шифрование Программист 1С:Предприятие 8 1С:Управление торговлей 11 Абонемент ($m)

Небольшой пример - "лайф-хак" по установке собственного пароля на отчет или обработку, не втягивая в это RLS.

3 стартмани

06.03.2025 3106 5 aximo 23

Создание внешней обработки с закрытым (скомпилированным) кодом

Защита ПО и шифрование Программист 1С:Предприятие 8 Бесплатно (free)

В статье приведен простой способ защиты кода внешней обработки от несанкционированного доступа (если это необходимо).

30.12.2024 9226 artemusII 25

Запрет глобального поиска в конфигурации

Защита ПО и шифрование Программист 1С:Предприятие 8 1С:Бухгалтерия 3.0 Абонемент ($m)

Представляю вам микрорасширение, которое запрещает глобальный поиск по вашей конфигурации.

1 стартмани

09.02.2023 4598 15 aximo 5

Как защитить pdf файл

Защита ПО и шифрование Программист Абонемент ($m)

Для установки защиты pdf документа, полученного в 1С, написано консольное приложение на c#., использующее одну зависимость pdfSharp.dll. В результате работы приложения ограничены операции над документом и записаны метаданные. С помощью аргументов командной строки можно управлять работой приложения.

2 стартмани

30.01.2023 3632 2 olevlasam 3