18.01.2007 13:25:43perl+шифрование Ответов: 1
andrey
Подскажите зашёл в тупик, вот так пытаюсь найти сертификат для шифрование но вываливается на
Ошибка работы с сертификатом! что не так делаю.
$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;
}
 
Ответы:
19.01.2007 12:10:54Kirill Sobolev
А не должно? Я перл не очень знаю но вроде переход к принту без всяких условий проходит, сразу после цикла foreach.