GetIsclStatus Method

Imports Leadtools
Imports Leadtools.Dicom

<StructLayout(LayoutKind.Sequential)> _
Public Structure MSG
    Public hwnd As IntPtr
    Public message As UInteger
    Public wParam As IntPtr
    Public lParam As IntPtr
    Public time As UInteger
    Public p As System.Drawing.Point
End Structure
Public Enum WaitReturn
    Complete
    Timeout
End Enum

Private Class Utils
 <DllImport("user32.dll")> _
 Shared Function PeekMessage(<System.Runtime.InteropServices.Out()> ByRef lpMsg As MSG, ByVal hWnd As IntPtr, ByVal wMsgFilterMin As UInteger, _
                                ByVal wMsgFilterMax As UInteger, ByVal wRemoveMsg As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
 End Function

    <DllImport("user32.dll")> _
    Shared Function TranslateMessage(ByRef lpMsg As MSG) As Boolean
    End Function
    <DllImport("user32.dll")> _
    Shared Function DispatchMessage(ByRef lpmsg As MSG) As IntPtr
    End Function

    Private Const PM_REMOVE As UInteger = 1

    Public Shared Function WaitForComplete(ByVal mill As Double, ByVal wh As WaitHandle) As WaitReturn
        Dim goal As TimeSpan = New TimeSpan(DateTime.Now.AddMilliseconds(mill).Ticks)

        Do
            Dim msg As MSG = New MSG()

            If PeekMessage(msg, IntPtr.Zero, 0, 0, PM_REMOVE) Then
                TranslateMessage(msg)
                DispatchMessage(msg)
            End If

            If wh.WaitOne(New TimeSpan(0, 0, 0), False) Then
                Return WaitReturn.Complete
            End If

            If goal.CompareTo(New TimeSpan(DateTime.Now.Ticks)) < 0 Then
                Return WaitReturn.Timeout
            End If

        Loop While True
    End Function
End Class

'
' Secure client (ISCL)
'
Public Class Client : Inherits DicomNet
    Private waitEvent As AutoResetEvent = New AutoResetEvent(False)

    Public Sub New()
        MyBase.New(Nothing, DicomNetSecurityeMode.Iscl)
        Dim authData As String = "LEAD client ISCL"

        SetIsclMutualAuthenticationAlgorithm(DicomIsclMutualAuthenticationMode.ThreePFourW)
        SetIsclMutualAuthenticationKey(1, 11619789628100321)
        SetIsclMutualAuthenticationKey(2, 34217865672122111)
        SetIsclMutualAuthenticationKey(3, 1605935625518899689)
        SetIsclMutualAuthenticationKey(4, 138217077775855676)
        SetIsclMutualAuthenticationKey(5, 9117318694593010212)
        SetIsclMutualAuthenticationKey(6, 3485297985488245687)
        SetIsclMutualAuthenticationKey(7, 1533287511573403981)
        SetIsclMutualAuthenticationKey(8, 5604839976916070822)

        SetIsclDefaultEncryptionMode(DicomIsclEncryptionMethodType.DesCbc)
        SetIsclDefaultSigningMode(DicomIsclSigningMethodType.Md5)
        SetIsclEncryptionKey(1, 8079278526052745737)
        SetIsclEncryptionKey(2, 1312864321990916052)
        SetIsclEncryptionKey(3, 7190959962252002117)
        SetIsclEncryptionKey(4, 3619524191167482890)
        SetIsclEncryptionKey(5, 3466658849848898336)
        SetIsclEncryptionKey(6, 8474124475946342520)
        SetIsclEncryptionKey(7, 7725464453540259890)
        SetIsclEncryptionKey(8, 4320705344832296668)

        SetIsclIndexForMutualAuthentication(1)
        SetIsclEncryptionKeyIndex(1)
        SetIsclMaxMessageLength(1024000)
        SetIsclMaxCommunicationBlockLength(8129)


        Dim data As Byte() = New ASCIIEncoding().GetBytes(authData)

        SetIsclAuthenticationData(data, data.GetLength(0))
    End Sub

    Public Function Wait() As Boolean
        Dim ret As WaitReturn

        ret = Utils.WaitForComplete((2 * 60) * 1000, waitEvent)

        Return (ret = WaitReturn.Complete)
    End Function

    Protected Overrides Sub OnConnect(ByVal [error] As DicomExceptionCode)
        waitEvent.Set()
    End Sub

    Protected Overrides Sub OnSecureLinkReady(ByVal [error] As DicomExceptionCode)
       Console.WriteLine("Iscl Peer Encryption is               : {0}", GetIsclPeerEncryption())
       Console.WriteLine("Iscl Peer Mac                         : {0}", GetIsclPeerMac())
       Console.WriteLine("Iscl Communication Block Length is    : {0}", GetIsclCommunicationBlockLength())
       Console.WriteLine("Iscl Index For Encryption             : {0}", GetIsclIndexForEncryption())
       Console.WriteLine("Is Iscl Queue Empty                   : {0}", IsIsclQueueEmpty())
       Console.WriteLine("Iscl Index For Mutual Authentication  : {0}", GetIsclIndexForMutualAuthentication())
       Console.WriteLine("Iscl Status is                        : {0}", GetIsclStatus())
       'We can also call  GetIsclPeerAuthenticationData() to Get the Peer Authentication Data
        waitEvent.Set()
    End Sub

    Protected Overrides Function GetChallengeIscl(ByRef challenge As Long, ByVal parameter As Long) As Boolean
        challenge = &H123456789ABCDE1
        Return True
    End Function

    Protected Overrides Function InternalAuthenticateIscl(ByVal challenge As Long, ByRef response As Long, ByVal parameter As Long) As Boolean
        response = challenge + 1
        Return True
    End Function

    Protected Overrides Function ExternalAuthenticateIscl(ByVal challenge As Long, ByVal response As Long, ByVal parameter As Long) As Boolean
        If response = (challenge + 1) Then
            Return True
        End If

        Return False
    End Function
End Class

'
' Secure server client (ISCL)
'
Public Class ServerConnection : Inherits DicomNet
    Public Sub New()
        MyBase.New(Nothing, DicomNetSecurityeMode.Iscl)
        Dim authData As String = "LEAD server ISCL"

        SetIsclMutualAuthenticationAlgorithm(DicomIsclMutualAuthenticationMode.ThreePFourW)
        SetIsclMutualAuthenticationKey(1, 11619789628100321)
        SetIsclMutualAuthenticationKey(2, 34217865672122111)
        SetIsclMutualAuthenticationKey(3, 1605935625518899689)
        SetIsclMutualAuthenticationKey(4, 138217077775855676)
        SetIsclMutualAuthenticationKey(5, 9117318694593010212)
        SetIsclMutualAuthenticationKey(6, 3485297985488245687)
        SetIsclMutualAuthenticationKey(7, 1533287511573403981)
        SetIsclMutualAuthenticationKey(8, 5604839976916070822)
        SetIsclIndexForMutualAuthentication(1)

        SetIsclDefaultEncryptionMode(DicomIsclEncryptionMethodType.DesCbc)
        SetIsclDefaultSigningMode(DicomIsclSigningMethodType.Md5)
        SetIsclEncryptionKey(1, 8079278526052745737)
        SetIsclEncryptionKey(2, 1312864321990916052)
        SetIsclEncryptionKey(3, 7190959962252002117)
        SetIsclEncryptionKey(4, 3619524191167482890)
        SetIsclEncryptionKey(5, 3466658849848898336)
        SetIsclEncryptionKey(6, 8474124475946342520)
        SetIsclEncryptionKey(7, 7725464453540259890)
        SetIsclEncryptionKey(8, 4320705344832296668)
        SetIsclEncryptionKeyIndex(1)

        SetIsclMaxMessageLength(1024000)
        SetIsclMaxCommunicationBlockLength(8129)

        Dim data As Byte() = New ASCIIEncoding().GetBytes(authData)
        SetIsclAuthenticationData(data, data.GetLength(0))

    End Sub

    Protected Overrides Function GetChallengeIscl(ByRef challenge As Long, ByVal parameter As Long) As Boolean
        challenge = &H123456789ABCDE1
        Return True
    End Function

    Protected Overrides Function InternalAuthenticateIscl(ByVal challenge As Long, ByRef response As Long, ByVal parameter As Long) As Boolean
        response = challenge + 1
        Return True
    End Function

    Protected Overrides Function ExternalAuthenticateIscl(ByVal challenge As Long, ByVal response As Long, ByVal parameter As Long) As Boolean
        If response = challenge + 1 Then
            Return True
        End If

        Return False
    End Function
End Class

Public Class Server : Inherits DicomNet
    Public Sub New()
        MyBase.New(Nothing, DicomNetSecurityeMode.None)
    End Sub

    Protected Overrides Sub OnAccept(ByVal [error] As DicomExceptionCode)
        Dim client As ServerConnection = New ServerConnection()

        Accept(client)
    End Sub
End Class



Public Sub ISCLSecuritySample()
    DicomEngine.Startup()
    DicomNet.Startup()

    Using server As Server = New Server()
        Using client As Client = New Client()
            server.Listen("127.0.0.1", 104, 1) ' start server
            client.Connect("", 1000, "127.0.0.1", 104) ' connect to secure server
            If (Not client.Wait()) Then ' wait for connection to finish
                Debug.Fail("Connection timed out")
            End If
            Debug.Assert(client.IsConnected(), "Client not connected")

            '
            ' Wait for authenication
            '
            If (Not client.Wait()) Then
                Debug.Fail("Connection timed out waiting for authenication")
            End If

            ' If secure link is established you can now do your regular
            ' dicom communications.

            client.CloseForced(True)
        End Using
        server.CloseForced(True)
    End Using

    DicomEngine.Shutdown()
    DicomNet.Shutdown()
End Sub