Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.21;
Скачать: 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 вся ветка

Текущий архив: 2007.01.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.436 c
15-1167031624
WondeRu
2006-12-25 10:27
2007.01.21
Вот и я женился!


6-1151827566
C@N
2006-07-02 12:06
2007.01.21
счетчик трафика


2-1167252072
Wlad_M
2006-12-27 23:41
2007.01.21
Индикация занятости приложения


2-1167283705
Vopros
2006-12-28 08:28
2007.01.21
Вопрос по объединению таблиц


1-1164807236
Val
2006-11-29 16:33
2007.01.21
Неясность с TCollection.Assign