GetPeerMACISCL Example for Visual Basic

   Dim strMAC As String
   strMAC = "SHA algorithm"
   If LEADDICOMNet1.GetPeerMACISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_MAC_NONE Then
      strMAC = "no message authentication code"
   ElseIf LEADDICOMNet1.GetPeerMACISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_MAC_MD5 Then
      strMAC = "MD5 algorithm"
   End If
   MsgBox "Sender tried to send a message with MAC " & strMAC