Добрый день.

Необходимо сформировать имитовставку по ГОСТ 28147-89.
Имеется ключ имитовставки, 32 байта и блок данных.
Каким образом передать ключ имитовставки в ключ для объекта подписи?
Последовательность вызова такая:

CryptAcquireContext(hProv, nil, nil, PROV_GOST_2001_DH, CRYPT_VERIFYCONTEXT);
CryptImportKey(hProv, @KeyBlob, Length(KeyBlob), 0, 0, hKey);
CryptCreateHash(hProv, CALG_G28147_MAC, hKey, 0, hHash);
CryptSetHashParam(hHash, HP_OID, PByte(PChar(OID_CipherOSCAR)), 0);
CryptHashData(hHash, @Data[1], Length(Data), 0);
CryptGetHashParam(hHash, HP_HASHVAL, @Result, ParamSize, 0);
CryptDestroyHash(hHash);
CryptDestroyKey(hKey);
CryptReleaseContext(hProv, 0);

Импортировать ключ не получается.
Правильна ли эта последовательность?
Как импортировать ключ?

В наш криптопровайдер нельзя импортировать ключ в окрытом виде.