Partager via

Réception d’un message de données enveloppées

  • Article

[CAPICOM est un composant 32 bits uniquement disponible pour une utilisation dans les systèmes d’exploitation suivants : Windows Server 2008, Windows Vista et Windows XP. Utilisez plutôt .NET Framework pour implémenter des fonctionnalités de sécurité. Pour plus d’informations, consultez Alternatives à l’utilisation de CAPICOM.]

Pour déchiffrer un message enveloppé, le destinataire met en correspondance un certificat du magasin Mon qui a une clé privée disponible avec un certificat dans le message enveloppé. Si une correspondance est trouvée, la clé chiffrée associée à ce certificat est déchiffrée et cette clé déchiffrée est utilisée pour déchiffrer le message enveloppé. Un destinataire de message qui n’a pas de certificat correspondant avec une clé privée disponible ne peut pas déchiffrer le message.

Dans l’exemple qui suit, un nom de fichier est passé dans la sous-routine, ce fichier est ouvert et un message enveloppé est lu. Le message enveloppé est ensuite déchiffré. Les étapes de mise en correspondance d’un certificat utilisateur avec un certificat dans le message enveloppé, de déchiffrement de la clé de chiffrement et enfin de déchiffrement du message sont toutes effectuées en arrière-plan. Une erreur est générée si une correspondance de certificat est introuvable ou si le déchiffrement échoue.

En cas d’erreur CAPICOM, une valeur décimale négative Err.Number est retournée. Pour plus d’informations, consultez CAPICOM_ERROR_CODE. Pour plus d’informations sur les valeurs décimales positives de Err.Number, consultez Winerror.h.

Sub ReceiveMessage(ByVal InFile As String)
On Error GoTo ErrorHandler

'Declare an EnvelopedData object

Dim Envmessage As New EnvelopedData

'Declare a string variable to hold the encrypted message.

Dim Encrypted As String

' Open an input file and read in the encrypted message
Open InFile For Input As #1
Input #1, Encrypted
Close #1

' If the length of the input string is greater than 0, 
' an encrypted message string is available. Decrypt the message.
' Note: to decrypt the message, a certificate with access to
' a user's private key must be available, and that certificate must
' match one of the certificates in the Recipients collection of 
' certificates.
If Len(Encrypted) > 0 Then
    ' Receive and decrypt the message
    Envmessage.Decrypt encrypted
    
    ' Display the decrypted message.
    MsgBox Envmessage.Content
Else
    MsgBox "No enveloped message was read in."
End If
' Release the EncryptedData object.
Set Envmessage = Nothing
Exit Sub

ErrorHandler:
If Err.Number > 0 Then
    MsgBox "Visual Basic error found:" & Err.Description
Else
    MsgBox "CAPICOM error found : " & Err.Number
End If
End Sub