Доброго времени суток. Есть необходимость с помощью CryptoAPI и Delphi создать ЭЦП, чтобы имелась возможность её проверить сторонним продуктом (например КриптоАРМ). Если просто создать подпись то никаких проблем, а вот при попытке добавить атрибут времени КриптоАРМ прочитать подпись уже не может. Подскажите в чем проблема и что я делаю не так? Атрибут добавляю так:

var
....
FTime: TFileTime;
NowTime: CRYPT_ATTR_BLOB;
pbAuth :PBYTE;
cbAuth : DWORD;
begin
....
FillChar( SigParams, SizeOf( CRYPT_SIGN_MESSAGE_PARA ), 0 );
SigParams.cbSize := SizeOF( CRYPT_SIGN_MESSAGE_PARA );
SigParams.dwMsgEncodingType := MY_ENCODING_TYPE;
SigParams.pSigningCert := pSignerCert;
SigParams.HashAlgorithm.pszObjId := szOID_RSA_MD5;
SigParams.cMsgCert := 1;
SigParams.rgpMsgCert := Pointer( MessageCert );

fTime:=now;
if not CryptEncodeObject(MY_ENCODING_TYPE, szOID_RSA_signingTime, @fTime, nil, @cbAuth) then
ShowMessage('Cannot encode object');

GetMem(pbAuth,cbAuth);

NowTime.cbData := cbAuth;
NowTime.pbData := pbAuth;
Attr.pszObjId := szOID_RSA_signingTime;
Attr.cValue := 1;
Attr.rgValue := @NowTime;
SigParams.cAuthAttr := 1;
SigParams.rgAuthAttr := @Attr;
....
if not ( CryptSignMessage( SigParams, true, 1, Pointer( MessageArray ), Pointer( MessageSize ), pStreamOut.Memory, cbSignedMessageBlob )) then
Err( 'Файл не подписан' );
....
end;

Тут Вы определяете размер закодированного атрибута и выделяете под это память, а где вызов CryptEncodeObject для собственно кодирования?

Кем переписанную? Если Вы имеете ввиду CAPICOM с версией 2.1.0.3, так она от 2.1.0.2 только версией и отличается, чтобы не было проблем с обновлением.

Сразу не кодирует, чтоб кодировалось одним вызовом нужно использовать CryptEncodeObjectEx.
Для CryptEncodeObject же нужен еще один вызов после GetMem, что-то типа


В FAQ же и написано -