попробуй "простое" имя файла... типа 1.enc
хотя нет... не в имени дело... "R1_1655046738_032_24092012_ED73599D-F9F0-4E73-835F"

Отредактировано пользователем 25 сентября 2012 г. 0:50:49(UTC)  | Причина: Не указана

т.е. если выполнить шифрование на 2х сертификатах в КриптоАРМ-е размер будет меньше на указанный размер (приблизительно)?

зашифруй файл на мой сертификат (пост от 24 сентября 2012 г. 16:07:46) и свой, прикрепи здесь (или ссылку на внешний ресурс, тип http://rghost.ru)
тогда и будем делать выводы ...

или если так интересно - бери в руки ASN1-редактор и вперед - посмотришь заодно, что ты удалял из pkcs7 данных

Отредактировано пользователем 25 сентября 2012 г. 4:03:52(UTC)  | Причина: Не указана

Доверяй, но проверяй...
use SDK

Отредактировано пользователем 25 сентября 2012 г. 5:03:48(UTC)  | Причина: Не указана

Да, спасибо еще раз. С первым вопросом наверное посложнее будет. КриптоАРМ наверно тоже работает через CryptoAPI? Может среди этих 400 сертификатов есть какой-то кривой и КриптоАРМ это понимает и пропускает его, не пытаясь использовать?

Докладываю :о)
Вчера прочитал про "неправильные" сертификаты и осенило :о)
С утра переписал кусок добавления сертификатов в массив с проверкой на срок действия и дело пошло. 358 сертификатов из 400 оказались валидными и добавились в массив. Соответственно первый вызов вернул значение буфера больше нуля. Дальше радостно выделился массив под данные, второй вызов и бац!, у вас имеются дополнительные данные :о) Первый вызов вернул на 656 байт меньше, чем требовалось. Соответственно, не все зашифрованные данные поместились в выделенный буфер и получили ошибку ERROR_MORE_DATA.

Решил попробовать второй вызов изменить и поправить массив для данных в случае, если он оказался меньше, чем надо...

if cbEncrypted > 0 then
begin
Stream := TMemoryStream.Create;
try
Stream.SetSize( cbEncrypted );
if not CryptEncryptMessage( @EncParams, CertCount, RecipientCertArray.Memory, FileStream.Memory, FileStream.Size, Stream.Memory, @cbEncrypted ) then
begin
if GetLastError = ERROR_MORE_DATA then
begin
Stream.SetSize( cbEncrypted );
CryptEncryptMessage( @EncParams, CertCount, RecipientCertArray.Memory, FileStream.Memory, FileStream.Size, Stream.Memory, @cbEncrypted )
end;
end;
Stream.SetSize( cbEncrypted );
Stream.Position := 0;
Stream.SaveToFile( CryptFileName );
finally
Stream.Free;
end;

Итог - расшифровывается без вопросов.

Буду исследовать проблему дальше :о)
Спасибо за мысль про плохие сертификаты и разницу в длинах массивов под данные :о)