14.02.2005 14:41:31CERT_EXTENSION Ответов: 1
Egor
Как правильно закодировать EXTENSION
типа szOID_KEY_USAGE(на Delphi).
Вроде делаю все как в примере, а результат
в сертификате - "Нет сведений"
Код:

(byte)ByteData := CERT_KEY_CERT_SIGN_KEY_USAGE or CERT_CRL_SIGN_KEY_USAGE;
KeyUsage.cbData := 1;
KeyUsage.pbData := @ByteData;
if not CryptEncodeObject(EncType,PChar(szOID_KEY_USAGE),@KeyUsage,nil,len) then Exit;
GetMem(pbKeyUsage,len);
if not CryptEncodeObject(EncType,PChar(szOID_KEY_USAGE),@KeyUsage,pbKeyUsage,len) then Exit;
with Ex do begin
pszObjId :=PChar(szOID_KEY_USAGE); fCritical:=True;
Value.cbData:=len; Value.pbData:=pbKeyUsage;
end;
И еще: где вообще посмотреть какое нибудь описание с русскими коментариями по добавлению EXTENSION в сертификат?
 
Ответы:
14.02.2005 17:25:43Kirill Sobolev
Либо в CryptEncodeObject последний параметр должен быть @len, либо в присваивании Value.cbData = len что-то не так