| ||||
| ||||
Подскажите зашёл в тупик, вот так пытаюсь найти сертификат для шифрование но вываливается на Ошибка работы с сертификатом! что не так делаю. $Store->Open(CAPICOM_CURRENT_USER_STORE, $StoreName2); $EnvelopedData->Algorithm->LetProperty('Name',CAPICOM_ENCRYPTION_ALGORITHM_DES ); $EnvelopedData->Algorithm->LetProperty('KeyLength',CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS ); my $Certificates = $Store->Certificates; if ($Certificates->Count > 0) { $Certificates = $Certificates->Find(CAPICOM_CERTIFICATE_FIND_SHA1_HASH, $maskencrypt); } SWITCHCERT1: { if ($Certificates->Count == 0) { print "Error! Сертификат не найден!\n"; exit; } if ($Certificates->Count == 1) { my $Recipient; foreach my $Recipient (in $Certificates) { $EnvelopedData->Recipients->Add($Recipient); } } print "Error! Ошибка работы с сертификатом!\n"; exit; } | ||||
Ответы: | ||||
| ||||
А не должно? Я перл не очень знаю но вроде переход к принту без всяких условий проходит, сразу после цикла foreach. | ||||