Вниз
Скачать: 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.026 c
2-1167297116
DVM
2006-12-28 12:11
2007.01.21
Чем отличаются CopyMemory и MoveMemory в Delphi?


2-1167761699
zol
2007-01-02 21:14
2007.01.21
В чем ошибка?


1-1164733553
Piter_Sid
2006-11-28 20:05
2007.01.21
StringGrid


15-1167205213
zdm
2006-12-27 10:40
2007.01.21
Творческий кризис


15-1167179073
Petr V. Abramov
2006-12-27 03:24
2007.01.21
Майкрософт — черти!




   Наверх