Действительно оба эти структуры могут быть массивами так как с точки зрения 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

Нужно как-то вот так:


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;

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


Возникает ошибка в строке: rdn.rgRDNAttr := CertRDN[..];
...как мне прописать ?

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

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

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

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

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