// private
function GetUserSignCert(ASN)
{
	var LStr = ASN.toString().trim(); // https://stackoverflow.com/questions/154059/how-do-i-check-for-an-empty-undefined-null-string-in-javascript

    // метод Select не реализован в CryptoPro! #51499#note-25
	var CertsStoreObjName = LStr? "CAdESCOM.Store" : "CAPICOM.Store";
//	var CertsStorageID    = LStr? CADESCOM_CONTAINER_STORE() : CAPICOM_CURRENT_USER_STORE(); 
	var CertsStorageID    = CAPICOM_CURRENT_USER_STORE(); // CADESCOM_CONTAINER_STORE не работает на демо-CryptoPro 

	try {
		var Store = new ActiveXObject(CertsStoreObjName);
		Store.Open(CertsStorageID, CAPICOM_MY_STORE(), CAPICOM_STORE_OPEN_READ_ONLY());
	} catch(err) {
		UserMessageErrAbort(err.number + " (" + CertsStoreObjName + ")\r\n" + err.description);
	}

	var Certs = Store.Certificates;
	// Из них не рассматриваются сертификаты, в которых отсутствует закрытый ключ.
	// https://learn.microsoft.com/en-us/windows/win32/seccrypto/certificates-find
	// bFindValidOnly [in, optional] - A Boolean value that indicates whether only valid certificates are returned
	// ...но он может не сработать, потому что у CryptoPto не стандартные крипто-алгоритмы для проверки цепи 
	if (Certs.Count > 0) {
		Certs = Certs.Find(CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY(), CAPICOM_PROPID_KEY_PROV_INFO(), true);
	}
	
/* не должно быть нужно, потому что TRUE выше	
	// Из них выбираются только сертификаты, действительные в настоящее время.
	if (Certificates.Count > 0) {
		Certificates = Certificates.Find(CAPICOM_CERTIFICATE_FIND_TIME_VALID);
	} */	

	if (Certs.Count == 0)	UserMessageErrAbort("Нет действующих сертификатов для выполнения операции подписания."
		+ "\r\nУбедитесь, что сертификаты CryptoPro установлены в систему.");

	var Cert1 = LStr? FindSignCert(Certs, LStr) : SelectSignCert(Certs);
	if (Cert1 == undefined) UserMessageErrAbort("Не удалось найти сертификат ЭЦП для подписи документа."); // last chance, should never be

	// перестраховка для Win32, получить сертификат из не-Майкрософт хранилища
	if (!LStr) {
		try {Cert1 = GetUserSignCert(Cert1.SerialNumber);}
		catch(err) {UserMessageErr("Выбранный в Windows сертификат не найден в хранилище Crypto-Pro/" + CertsStoreObjName); throw err;};
	};

	return Cert1;
}

// private
function FindSignCert(Certs, ASN)
{
	var Cert1, C1SN, LSN = ASN.trim().toLowerCase();
	for(Cert1 in Certs) {
		C1SN = Cert1.SerialNumber.trim().toLowerCase();
		if (C1SN === LSN) return Cert1;
	};
	UserMessageErrAbort("Не удалось найти сертификат ЭЦП с номером: " + LSN );
}

// private
function SelectSignCert(Certs)
{
	if (Certs.Count == 1) return Certs(1);

	try {
		Certs = Certs.Select("Список установленных сертификатов", "Выберите сертификат для осуществления подписания:");
	} catch (ax_err) {
		if (-2138568446 == ax_err.number) {  // ax_err.message == "The requested operation has been cancelled by the user."
			Certs = {Count: 0};
		} else {
			throw ax_err;
		}
	}
	if (Certs.Count == 0) UserMessageErrAbort("Выбор сертификата для подписания был отменен пользователем.");

	return Certs(1);
}

// private
// CryptoPro: В методе Open для параметра Location поддерживаются значения CAPICOM_CURRENT_USER_STORE, CAPICOM_LOCAL_MACHINE_STORE и CADESCOM_CONTAINER_STORE.
function CAPICOM_CURRENT_USER_STORE() {return 2}; // https://learn.microsoft.com/en-us/windows/win32/seccrypto/capicom-store-location
function CAPICOM_LOCAL_MACHINE_STORE() {return 1};
function CADESCOM_CONTAINER_STORE() {return 100}; // https://cpdn.cryptopro.ru/default.asp?url=content/cades/namespace_c_ad_e_s_c_o_m_108767955f739e6b1502fa7b24f7a1e4_1108767955f739e6b1502fa7b24f7a1e4.html
function CAPICOM_STORE_OPEN_READ_ONLY() {return 0}; // https://learn.microsoft.com/en-us/windows/win32/seccrypto/capicom-store-open-mode
function CAPICOM_STORE_OPEN_READ_WRITE() {return 1};
function CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED() {return 2};

// https://cpdn.cryptopro.ru/content/cades/plugin-samples-fileapi.html
// https://github.com/splincode/cryptopro-browser-plugin/blob/master/examples/index.html
function CAPICOM_MY_STORE() {return "My"}; 

function CADESCOM_CADES_X_LONG_TYPE_1() {return 93}
function CADESCOM_CADES_BES() {return 1}
function CADESCOM_CADES_DEFAULT() {return 0}

function CADESCOM_BASE64_TO_BINARY() {return 1}

function CAPICOM_ENCODE_BASE64() {return 0} // https://learn.microsoft.com/en-us/windows/win32/seccrypto/capicom-encoding-type

// https://learn.microsoft.com/en-us/windows/win32/seccrypto/capicom-certificate-find-type
function CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY() {return 6}
function CAPICOM_CERTIFICATE_FIND_TIME_VALID() {return 9}
function CAPICOM_PROPID_KEY_PROV_INFO() {return 2}

// https://learn.microsoft.com/en-us/windows/win32/seccrypto/capicom-certificate-include-option
function CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT() {return 0}
function CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN() {return 1}
function CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY() {return 2}

Info at address: 14110000
AllocationBase: 14110000
RegionSize: 132 K
Type: Mapped
Access: R
Initail Access: R
Shared: True
Shared count: 7
Mapped file: C:\Program Files (x86)\Common Files\Microsoft Shared\CAPICOM\capicom.dll
-------------------------------------------- Memory dump -------------------------------------------------
14110000: 62 02 88 80 8E 14 00 00 | 70 02 88 80 96 14 00 00     b.ˆ€Ž...p.ˆ€–...
14110010: 71 02 88 80 97 14 00 00 | 80 02 88 80 A0 14 00 00     q.ˆ€—...€.ˆ€ ...
14110020: 81 02 88 80 A1 14 00 00 | 82 02 88 80 A2 14 00 00     .ˆ€¡...‚.ˆ€¢...
14110030: 83 02 88 80 A3 14 00 00 | 90 02 88 80 AA 14 00 00     ƒ.ˆ€£....ˆ€ª...
14110040: 91 02 88 80 AB 14 00 00 | 92 02 88 80 AC 14 00 00     ‘.ˆ€«...’.ˆ€¬...
14110050: 00 09 88 80 0C 17 00 00 | 01 09 88 80 0D 17 00 00     ..ˆ€......ˆ€....
14110060: 02 09 88 80 0E 17 00 00 | 03 09 88 80 0F 17 00 00     ..ˆ€......ˆ€....

Info at address: 6DF10000
AllocationBase: 6DF10000
RegionSize: 4 K
Type: Image
Access: R
Initail Access: RE, Write copy
Shared: True
Shared count: 7
Mapped file: C:\Program Files (x86)\Common Files\Microsoft Shared\CAPICOM\capicom.dll
------------------------------------------ IMAGE_DOS_HEADER ----------------------------------------------
6DF10000: 4D 5A                                                 e_magic = "MZ"                             // Magic number
6DF10002: 90 00                                                 e_cblp = 90                                // Bytes on last page of file
6DF10004: 03 00                                                 e_cp = 3                                   // Pages in file
6DF10006: 00 00                                                 e_crlc = 0                                 // Relocations

Info at address: 142E0000
AllocationBase: 142E0000
RegionSize: 76 K
Type: Mapped
Access: R
Initail Access: R
Shared: True
Shared count: 7
Mapped file: C:\Program Files (x86)\Common Files\Crypto Pro\Shared\cadescom.dll
-------------------------------------------- Memory dump -------------------------------------------------
142E0000: 27 43 41 64 45 53 43 4F | 4D 2E 58 35 30 39 45 6E     'CAdESCOM.X509En
142E0010: 72 6F 6C 6C 6D 65 6E 74 | 2E 43 43 65 72 74 69 66     rollment.CCertif
142E0020: 69 63 61 74 65 50 6F 6C | 69 63 79 2E 31 27 0D 0A     icatePolicy.1'..
142E0030: 20 20 20 20 20 20 20 20 | 20 20 20 20 56 65 72 73                 Vers
142E0040: 69 6F 6E 49 6E 64 65 70 | 65 6E 64 65 6E 74 50 72     ionIndependentPr
142E0050: 6F 67 49 44 20 3D 20 73 | 20 27 43 41 64 45 53 43     ogID = s 'CAdESC
142E0060: 4F 4D 2E 58 35 30 39 45 | 6E 72 6F 6C 6C 6D 65 6E     OM.X509Enrollmen
142E0070: 74 2E 43 43 65 72 74 69 | 66 69 63 61 74 65 50 6F     t.CCertificatePo
142E0080: 6C 69 63 79 27 0D 0A 20 | 20 20 20 20 20 20 20 20     licy'..         
142E0090: 20 20 20 46 6F 72 63 65 | 52 65 6D 6F 76 65 20 27        ForceRemove '

Info at address: 6B040000
AllocationBase: 6B040000
RegionSize: 4 K
Type: Image
Access: R
Initail Access: RE, Write copy
Shared: True
Shared count: 7
Mapped file: C:\Program Files (x86)\Common Files\Crypto Pro\Shared\cadescom.dll
------------------------------------------ IMAGE_DOS_HEADER ----------------------------------------------
6B040000: 4D 5A                                                 e_magic = "MZ"                             // Magic number
6B040002: 90 00                                                 e_cblp = 90                                // Bytes on last page of file
6B040004: 03 00                                                 e_cp = 3                                   // Pages in file
6B040006: 00 00                                                 e_crlc = 0                                 // Relocations