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