GetPeerEncryptionISCL Example for Visual Basic

   Dim strEncr As String
   strEncr = "Unknown"
   If LEADDICOMNet1.GetPeerEncryptionISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_ENCRYPT_NONE Then
      strEncr = "None"
   ElseIf LEADDICOMNet1.GetPeerEncryptionISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_ENCRYPT_DESCBC Then
      strEncr = "DES algorithm, cipher block chaining mode"
   End If
   MsgBox "Sender tried to send a message with encryption algorithm: " & strEncr