Статус: Новичок
Группы: Участники
Зарегистрирован: 15.05.2018(UTC) Сообщений: 8
|
Код на Delphi: Код:var
Prov: HCRYPTPROV;
hKey: HCRYPTKEY;
X509Certificate: AnsiString;
begin
if not CryptAcquireContext(Prov, PAnsiChar(ContainerName), PAnsiChar(CP_GR3410_2001_PROV_A), PROV_GOST_2001_DH, 0) then
CryptoError('CryptAcquireContext');
try
if not CryptGetUserKey(Prov, AT_SIGNATURE, hKey) then
CryptoError('CryptGetUserKey');
// Как получить X509Certificate?
finally
CryptReleaseContext(Prov, 0);
end;
end;
|
|
|
|
Статус: Новичок
Группы: Участники
Зарегистрирован: 15.05.2018(UTC) Сообщений: 8
|
|
|
|
|
Быстрый переход
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.
Important Information:
The Форум КриптоПро uses cookies. By continuing to browse this site, you are agreeing to our use of cookies.
More Details
Close