Public Function EnCryptB(b() As Byte, certName As String) As Byte()
'------------------------------------------------------------------------------
' Функиция EnCryptB зашифровывает b()
' certName = "aaa|bbb|....." могет быть несколько
' и возвращает зашифрованные данные
'------------------------------------------------------------------------------
Dim v             As Variant
Dim j             As Long
Dim rc    As Long
Dim xb()  As Byte
Dim EnvelopedData As capicom.EnvelopedData
Dim Recipient     As capicom.Certificate

' Создание объекта EnvelopedData.
Set EnvelopedData = New capicom.EnvelopedData

' Добавление получателей.
v = Split(certName, dlm)
For j = LBound(v) To UBound(v)
   Set Recipient = Me.GetCert("AddressBook", CStr(v(j))) 'нету - поисчем в MY
   If Recipient Is Nothing Then Set Recipient = Me.GetCert("My", CStr(v(j)))
   If Not (Recipient Is Nothing) Then EnvelopedData.Recipients.Add Recipient
Next j
If EnvelopedData.Recipients.Count = 0 Then
  mHasErr = -4
  mStrErr = "EnCryptB.getCert:  Not found Recipients = " & certName
  EnCryptB = xb
  Exit Function
End If
  
EnvelopedData.Content = b
EnCryptB = EnvelopedData.Encrypt(mOutType)

Set EnvelopedData = Nothing
Set Recipient = Nothing
Exit Function

Errs:
  mHasErr = Err.Number
  mStrErr = "EnCryptB: " & Err.Number & " - " & Err.Description
  EnCryptB = xb
End Function

Public Function DeСryptB(b() As Byte) As Byte()
' расшифровать, если Ок то вернуть Content иначе 0
'******************************************************************************
Dim EnvelopedData As capicom.EnvelopedData
Set EnvelopedData = New capicom.EnvelopedData
On Error GoTo Errs
EnvelopedData.Decrypt b
DeСryptB = EnvelopedData.Content
Set EnvelopedData = Nothing
Exit Function
Errs:
  mHasErr = Err.Number
  mStrErr = Err.Source & ": " & Err.Description
  DeСryptB = b
End Function