Ключевое слово в защите информации
КЛЮЧЕВОЕ СЛОВО
в защите информации
Получить ГОСТ TLS-сертификат для домена (SSL-сертификат)
Добро пожаловать, Гость! Чтобы использовать все возможности Вход или Регистрация.

Уведомление

Icon
Error

3 Страницы123>
Опции
К последнему сообщению К первому непрочитанному
Offline Stalker4  
#1 Оставлено : 19 февраля 2013 г. 19:02:45(UTC)
Stalker4

Статус: Активный участник

Группы: Участники
Зарегистрирован: 19.02.2013(UTC)
Сообщений: 30
Украина

Сказал(а) «Спасибо»: 1 раз
Hi All,

В описании структур CERT_RDN_ATTR и CERT_RDN говориться что они обе могут быть массивами.
Мне честно говоря не понятно, зачем эти обе структуры могут быть
массивами.

Скажем делаю я запрос на получение сертификата и указываю в начальных данных
только владельца сертификата (cSubject).
Код:
var
  rdnSubjectAttr :CERT_RDN_ATTR;
  CertRDN        :CERT_RDN;

 rdnSubjectAttr.pszObjId     := szOID_COMMON_NAME;
 rdnSubjectAttr.dwValueType  := CERT_RDN_PRINTABLE_STRING;
 rdnSubjectAttr.Value.cbData := Length(cSubject);
 rdnSubjectAttr.Value.pbData := PBYTE(cSubject);

 CertRDN.cRDNAttr  := 1;
 CertRDN.rgRDNAttr := @rdnSubjectAttr;

Тут вроде бы все понятно.

Теперь же в запросе я хочу указать владельца сертификата (szOID_COMMON_NAME)
и его организацию (szOID_ORGANIZATION_NAME).

Возникает вопрос, кто должен быть массивом CERT_RDN_ATTR или CERT_RDN ?
Ведь я могу взять две переменные типа CERT_RDN_ATTR и поместить их в
массив CERT_RDN (CertRDN :array[0..1] of CERT_RDN), а могу вроде бы сделать и
по другому создать массив типа CERT_RDN_ATTR
(rdn_attr :array[0..1] of CERT_RDN_ATTR) и уже ссылку на этот массив
поместить в CertRDN.
Как правильнее ?
Offline Юрий  
#2 Оставлено : 20 февраля 2013 г. 9:09:30(UTC)
Юрий

Статус: Активный участник

Группы: Участники
Зарегистрирован: 22.01.2008(UTC)
Сообщений: 671
Мужчина
Российская Федерация
Откуда: Йошкар-Ола

Сказал «Спасибо»: 3 раз
Поблагодарили: 93 раз в 67 постах
Действительно оба эти структуры могут быть массивами так как с точки зрения ASN.1 (в который они в конечном итоге и кодируются) они обе являются "последовательностями" (SET и SEQUENCE).

Вот только в CERT_RDN_ATTR хранит описание для одного OBJECT ID для "distinguished name", а CERT_RDN - общий массив всех этих CERT_RDN_ATTR. Ниже приведено описание из RFC5280:

Name ::= CHOICE { -- only one possibility for now --
rdnSequence RDNSequence }

RDNSequence ::= SEQUENCE OF RelativeDistinguishedName

RelativeDistinguishedName ::=
SET SIZE (1..MAX) OF AttributeTypeAndValue

AttributeTypeAndValue ::= SEQUENCE {
type AttributeType,
value AttributeValue }

AttributeType ::= OBJECT IDENTIFIER

AttributeValue ::= ANY -- DEFINED BY AttributeType
С уважением,
Юрий Строжевский
Offline Stalker4  
#3 Оставлено : 20 февраля 2013 г. 12:57:05(UTC)
Stalker4

Статус: Активный участник

Группы: Участники
Зарегистрирован: 19.02.2013(UTC)
Сообщений: 30
Украина

Сказал(а) «Спасибо»: 1 раз
Автор: Юрий Перейти к цитате
Действительно оба эти структуры могут быть массивами так как с точки зрения ASN.1 (в который они в конечном итоге и кодируются) они обе являются "последовательностями" (SET и SEQUENCE).

Вот только в CERT_RDN_ATTR хранит описание для одного OBJECT ID для "distinguished name", а CERT_RDN - общий массив всех этих CERT_RDN_ATTR. Ниже приведено описание из RFC5280:

То есть я правильно предположил, что если в запросе на получения сертификата я хочу указать не только владельца сертификата, но и его организацию, то я должен создавать массив для CERT_RDN ?

Цитата:

var
rdnSubjectAttr :CERT_RDN_ATTR;
rdnOrganizAttr :CERT_RDN_ATTR;
cSubject :String;
cOrganization :String;
CertRDN :array[0..1] of CERT_RDN;
CertNameInfo :CERT_NAME_INFO;

begin

cSubject := 'Stalker'; // Название владельца

rdnSubjectAttr.pszObjId := szOID_COMMON_NAME;
rdnSubjectAttr.dwValueType := CERT_RDN_PRINTABLE_STRING;
rdnSubjectAttr.Value.cbData := Length(cSubject);
rdnSubjectAttr.Value.pbData := PBYTE(cSubject);

cOrganization := 'MIAC'; // Организация владельца

rdnOrganizAttr.pszObjId := szOID_ORGANIZATION_NAME;
rdnOrganizAttr.dwValueType := CERT_RDN_PRINTABLE_STRING;
rdnOrganizAttr.Value.cbData := Length(cSubject);
rdnOrganizAttr.Value.pbData := PBYTE(cSubject);

CertRDN[0].cRDNAttr := 1;
CertRDN[0].rgRDNAttr := @rdnSubjectAttr;

CertRDN[1].cRDNAttr := 1;
CertRDN[1].rgRDNAttr := @rdnOrganizAttr;

CertNameInfo.cRDN := 2;
CertNameInfo.rgRDN := @CertRDN[0];

Ну а потом, структуру CertNameInfo передаю в CryptEncodeObject.

Offline Юрий  
#4 Оставлено : 20 февраля 2013 г. 14:16:02(UTC)
Юрий

Статус: Активный участник

Группы: Участники
Зарегистрирован: 22.01.2008(UTC)
Сообщений: 671
Мужчина
Российская Федерация
Откуда: Йошкар-Ола

Сказал «Спасибо»: 3 раз
Поблагодарили: 93 раз в 67 постах
Нужно как-то вот так:


CERT_RDN_ATTR rdn_attr[5];

rdn_attr[0].pszObjId = "2.5.4.6"; // countryName
rdn_attr[0].dwValueType = CERT_RDN_PRINTABLE_STRING;

rdn_attr[0].Value.cbData = 2;
rdn_attr[0].Value.pbData = ( BYTE* ) "RU";

rdn_attr[1].pszObjId = "2.5.4.13"; // description
rdn_attr[1].dwValueType = CERT_RDN_UTF8_STRING;

WCHAR* description = L"Юрий Строжевский, статья 'Использование сертификатов', корневой удостоверяющий центр №1";
rdn_attr[1].Value.cbData = wcslen( description ) * sizeof( WCHAR );
rdn_attr[1].Value.pbData = ( BYTE* ) description;

rdn_attr[2].pszObjId = "2.5.4.11"; // organizationUnit
rdn_attr[2].dwValueType = CERT_RDN_UTF8_STRING;

WCHAR* organizationUnit = L"Подразделение сертификации";
rdn_attr[2].Value.cbData = wcslen( organizationUnit ) * sizeof( WCHAR );
rdn_attr[2].Value.pbData = ( BYTE* ) organizationUnit;

rdn_attr[3].pszObjId = "2.5.4.10"; // organizationName
rdn_attr[3].dwValueType = CERT_RDN_UTF8_STRING;

WCHAR* organizationName = L"Организация сертификации";
rdn_attr[3].Value.cbData = wcslen( organizationName ) * sizeof( WCHAR );
rdn_attr[3].Value.pbData = ( BYTE* ) organizationName;

rdn_attr[4].pszObjId = "2.5.4.12"; // title
rdn_attr[4].dwValueType = CERT_RDN_UTF8_STRING;

WCHAR* organizationTitle = L"Корневой удостоверяющий центр №1";
rdn_attr[4].Value.cbData = wcslen( organizationTitle ) * sizeof( WCHAR );
rdn_attr[4].Value.pbData = ( BYTE* ) organizationTitle;

CERT_RDN cert_rdn;

cert_rdn.cRDNAttr = 5;
cert_rdn.rgRDNAttr = rdn_attr;

CERT_NAME_INFO name_info;

name_info.cRDN = 1;
name_info.rgRDN = &cert_rdn;

if( Encode( X509_ASN_ENCODING, X509_NAME, &name_info, &( TBS_blob[ 3 ].pbData ), &( TBS_blob[ 3 ].cbData ) ) )
return 1;
С уважением,
Юрий Строжевский
thanks 1 пользователь поблагодарил Юрий за этот пост.
Stalker4 оставлено 27.02.2013(UTC)
Offline Stalker4  
#5 Оставлено : 20 февраля 2013 г. 14:36:26(UTC)
Stalker4

Статус: Активный участник

Группы: Участники
Зарегистрирован: 19.02.2013(UTC)
Сообщений: 30
Украина

Сказал(а) «Спасибо»: 1 раз
Ага, значит я предположил не правильно. Массивом должен быть CERT_RDN_ATTR, а не CERT_RDN.
Цитата:

var
rdnAttr :array[0..1] of CERT_RDN_ATTR;
cSubject :String;
cOrganization :String;
CertRDN :CERT_RDN;
CertNameInfo :CERT_NAME_INFO;

begin

cSubject := 'Stalker'; // Название владельца

rdnAttr[0].pszObjId := szOID_COMMON_NAME;
rdnAttr[0].dwValueType := CERT_RDN_PRINTABLE_STRING;
rdnAttr[0].Value.cbData := Length(cSubject);
rdnAttr[0].Value.pbData := PBYTE(cSubject);

cOrganization := 'MIAC'; // Организация владельца

rdnAttr[1].pszObjId := szOID_ORGANIZATION_NAME;
rdnAttr[1].dwValueType := CERT_RDN_PRINTABLE_STRING;
rdnAttr[1].Value.cbData := Length(cSubject);
rdnAttr[1].Value.pbData := PBYTE(cSubject);

CertRDN.cRDNAttr := 2;
CertRDN.rgRDNAttr := @rdnAttr;

CertNameInfo.cRDN := 1;
CertNameInfo.rgRDN := CertRDN;


P.S. А тег форума code похоже глючит, когда я заключил в него вышеуказанный код, то он часть куда куда то дел.
Offline Aqel  
#6 Оставлено : 10 января 2022 г. 19:33:00(UTC)
Aqel

Статус: Новичок

Группы: Участники
Зарегистрирован: 07.11.2018(UTC)
Сообщений: 8
Мужчина
Российская Федерация
Откуда: Пермь

Сказал «Спасибо»: 2 раз
Помогите разобраться, исходя из выше показанного собираю по крупицам код запроса на Delphi, вот что получилось...
Цитата:

var
rdn: CERT_RDN;
CertRDN: array [1 .. 5] of CERT_RDN_ATTR;
begin
CertRDN[1].pszObjId := '2.5.4.6'; // Страна
CertRDN[1].dwValueType := CERT_RDN_PRINTABLE_STRING;
CertRDN[1].Value.cbData := 2;
CertRDN[1].Value.pbData := PBYTE(StrAlloc(length(LabeledEdit6.Text) + 1));
CertRDN[2].pszObjId := '2.5.4.13'; // Инфо
CertRDN[2].dwValueType := CERT_RDN_UTF8_STRING;
CertRDN[2].Value.cbData := length(LabeledEdit1.Text);
CertRDN[2].Value.pbData := PBYTE(StrAlloc(length(LabeledEdit1.Text) + 1));
CertRDN[3].pszObjId := '2.5.4.11'; // Подразделение
CertRDN[3].dwValueType := CERT_RDN_UTF8_STRING;
CertRDN[3].Value.cbData := length(LabeledEdit3.Text);
CertRDN[3].Value.pbData := PBYTE(StrAlloc(length(LabeledEdit3.Text) + 1));
CertRDN[4].pszObjId := '2.5.4.10'; // Организация
CertRDN[4].dwValueType := CERT_RDN_UTF8_STRING;
CertRDN[4].Value.cbData := length(LabeledEdit2.Text);
CertRDN[4].Value.pbData := PBYTE(StrAlloc(length(LabeledEdit2.Text) + 1));
CertRDN[5].pszObjId := '2.5.4.12'; // Корневой удостоверяющий центр
CertRDN[5].dwValueType := CERT_RDN_UTF8_STRING;
CertRDN[5].Value.cbData := length(LabeledEdit5.Text);
CertRDN[5].Value.pbData := PBYTE(StrAlloc(length(LabeledEdit5.Text) + 1));
rdn.cRDNAttr := 5;
rdn.rgRDNAttr := CertRDN[..];
name_info.cRDN := 1;
name_info.rgRDN := @rdn;
...


Возникает ошибка в строке: rdn.rgRDNAttr := CertRDN[..];
...как мне прописать ?
Всё намного проще, чем есть на самом деле...
Offline Андрей *  
#7 Оставлено : 10 января 2022 г. 20:03:47(UTC)
Андрей *

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 26.07.2011(UTC)
Сообщений: 12,630
Мужчина
Российская Федерация

Сказал «Спасибо»: 494 раз
Поблагодарили: 2034 раз в 1578 постах
почему по крупицам, если это пример выше (9 лет назад)

1. Нумерации с 0
2. В тексте сообщения с ошибкой - что именно не понятно?
3. В MSDN описано и в подключенных модулях Delphi ... типы.

наводка:
чем отличается:
rdn.rgRDNAttr := CertRDN[..];
от
name_info.rgRDN := @rdn;

и
почему cRDN := 1; ?

Отредактировано пользователем 10 января 2022 г. 20:04:36(UTC)  | Причина: Не указана

Техническую поддержку оказываем тут
Наша база знаний
Offline Андрей *  
#8 Оставлено : 10 января 2022 г. 20:08:17(UTC)
Андрей *

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 26.07.2011(UTC)
Сообщений: 12,630
Мужчина
Российская Федерация

Сказал «Спасибо»: 494 раз
Поблагодарили: 2034 раз в 1578 постах
Техническую поддержку оказываем тут
Наша база знаний
Offline Андрей *  
#9 Оставлено : 10 января 2022 г. 20:09:05(UTC)
Андрей *

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 26.07.2011(UTC)
Сообщений: 12,630
Мужчина
Российская Федерация

Сказал «Спасибо»: 494 раз
Поблагодарили: 2034 раз в 1578 постах
Цитата:
CertRDN[5].pszObjId := '2.5.4.12'; // Корневой удостоверяющий центр


Кто это придумал?
Это OID для кодирования Должности.
Техническую поддержку оказываем тут
Наша база знаний
Offline two_oceans  
#10 Оставлено : 10 января 2022 г. 22:24:50(UTC)
two_oceans

Статус: Эксперт

Группы: Участники
Зарегистрирован: 05.03.2015(UTC)
Сообщений: 1,602
Российская Федерация
Откуда: Иркутская область

Сказал(а) «Спасибо»: 110 раз
Поблагодарили: 393 раз в 366 постах
Aqel написал:
исходя из выше показанного собираю по крупицам код запроса на Delphi
Добрый день. Коллега, обратите внимание на префиксы названий полей. Они самодокументируют формат и наталкивают на мысль что должно быть в поле.
dw - целое беззнаковое (4 байта)
cb - количество байт
cch - количество символов
pb - указатель на буфер
psz - указатель на строковый буфер, оканчивающийся 0 (PChar/PAnsiChar)
c - количество элементов

Что не так понятно для программиста на Дельфи: в идеале вся структура передаваемая в CryptoApi должна быть в одном куске памяти. Все что связано указателями в структуре - должно идти друг за другом в какой-то области памяти. Без этого иногда работает, иногда нет, иногда на ровном месте выдает ошибку обращения к памяти. Где-то в глубине кода есть IsBadReadPtr с указанием на основную структуру, но размером по сумме размеров всех элементов. Когда такой вызов вылетит за пределы динамического куска памяти основной структуры - что-то может быть проигнорировано или может быть выдана ошибка проверки параметров структуры.

Чтобы добиться расположения структуры в одном куске памяти StrAlloc не в кассу, так как для каждой строчки создается отдельный буфер в отдельном куске памяти. Более того, rdn и name_info также лучше бы расположить вместе. Хотя конечно для глобальных переменных в 99% случаев это не спровоцирует ошибку - сегмент данных-то большой, Дельфи объявляет достаточно много глобальных переменных, чтобы IsBadReadPtr не вылетел за пределы.
В примере выше (9 лет назад) переменные объявлены последовательно и статически (если принять? что на той версии Дельфи string = shortstring), то есть идут друг за другом (в стэке если локальные, в сегменте данных, если глобальные), что формально удовлетворяет требование о расположении последовательно в одном куске памяти.

Однако если выделять динамические буферы под структуры и элементы или передавать структуру между процедурами, то там уже совсем другая история. Для избегания ошибки можно объявить свою "мегаструктуру" и ее заполнять, так можно передавать структуру (по ссылке!) между процедурами, не нарушая последовательность элементов.
Автор: Андрей * Перейти к цитате
1. Нумерации с 0
Сработает и без этого, так как массив выше объявлен с нумерацией от 1. Хотя по общепринятым нормам соглашусь, что MSDN нумерует с нуля.
Автор: Андрей * Перейти к цитате
и почему name_info.cRDN := 1; ?
Как я понимаю, это количество субъектов. На первый взгляд все верно, субъект один, а у этого субъекта RDN из 5 компонентов.

Отредактировано пользователем 10 января 2022 г. 22:47:16(UTC)  | Причина: Не указана

thanks 2 пользователей поблагодарили two_oceans за этот пост.
Андрей * оставлено 10.01.2022(UTC), Aqel оставлено 11.01.2022(UTC)
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
3 Страницы123>
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.