Вниз
Скачать: CL | DM;

CyptoAPI   Найти похожие ветки 

 
AleKo   (2006-09-07 04:53) [0]

Добрый день.
Помогите заполнить структуру. Есть пример на Си хочу реализовать на Delphi.
Это часть из примера создания физического хранилища сертификатов.

#define MY_ENCODING_TYPE  (PKCS_7_ASN_ENCODING | X509_ASN_ENCODING)

// Initialize PhysicalStoreInfo.

PhysicalStoreInfo.cbSize=sizeof(CERT_PHYSICAL_STORE_INFO);
PhysicalStoreInfo.pszOpenStoreProvider=(LPSTR)CERT_STORE_PROV_FILENAME;
PhysicalStoreInfo.dwFlags=CERT_PHYSICAL_STORE_ADD_ENABLE_FLAG;

// Replace the path below with one that is appropriate for you.

PhysicalStoreInfo.OpenParameters.pbData =  (BYTE *) L"C:\\temp\\mystore";
PhysicalStoreInfo.OpenParameters.cbData =  wcslen((LPWSTR)PhysicalStoreInfo.OpenParameters.pbData) + 1) * sizeof(WCHAR);
PhysicalStoreInfo.dwPriority=1;
PhysicalStoreInfo.dwOpenEncodingType=MY_ENCODING_TYPE;

На Delphi делаю так:

// Заполняем структуру PhysicalStoreInfo.
PhysicalStoreInfo.cbSize := sizeof(CERT_PHYSICAL_STORE_INFO);
PhysicalStoreInfo.pszOpenStoreProvider := CERT_STORE_PROV_FILENAME;
PhysicalStoreInfo.dwFlags := CERT_PHYSICAL_STORE_ADD_ENABLE_FLAG;

StoreName := "D:\Cripto\MyStore";

PhysicalStoreInfo.OpenParameters.pbData := Pointer(StoreName);
PhysicalStoreInfo.OpenParameters.cbData := (Length(WideString(PhysicalStoreInfo.OpenParameters.pbData))+1)*SizeOf(WideChar);

PhysicalStoreInfo.dwPriority := 1;
PhysicalStoreInfo.dwOpenEncodingType := PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;

Спасибо.


 
AleKo   (2006-09-07 04:55) [1]

Ссылка на этот пример:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/seccrypto/security/example_c_program_registering_physical_and_system_certificate_stores.asp


 
AleKo   (2006-09-07 05:00) [2]

Описание структуры.

typedef struct _CERT_PHYSICAL_STORE_INFO {
 DWORD cbSize;
 LPSTR pszOpenStoreProvider;
 DWORD dwOpenEncodingType;
 DWORD dwOpenFlags;
 CRYPT_DATA_BLOB OpenParameters;
 DWORD dwFlags;
 DWORD dwPriority;
} CERT_PHYSICAL_STORE_INFO,  *PCERT_PHYSICAL_STORE_INFO;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.044 c
15-1167689053
ProgRAMmer Dimonych
2007-01-02 01:04
2007.01.21
Объясните мне тупому...


15-1167689863
SkySpeed
2007-01-02 01:17
2007.01.21
Где взять ShellContextMenuEx.dcu ?


15-1167225960
VictorT
2006-12-27 16:26
2007.01.21
Помогите вспомнить автора и название рассказика


6-1156174525
RedLineLab
2006-08-21 19:35
2007.01.21
Скорость соединения dial-up


4-1156847479
danatelo
2006-08-29 14:31
2007.01.21
СНИФЕР ПЕЧАТИ НУЖНА ПОМОЩЬ




   Наверх