InitializeBinding Method

Imports Leadtools
        Imports Leadtools.Ccow
        Imports Leadtools.Ccow.UI

        <TestMethod()> _
        Public Sub SecureBinding()
            Dim contextManager As IContextManager = Utils.COMCreateObject(Of IContextManager)(CcowProgId)
            Dim participant As SecureParticipant = New SecureParticipant()
            Dim secure As ISecureBinding = TryCast(contextManager, ISecureBinding)
            Dim coupon As Integer = 0
            Try
                Dim binderPublicKey As String = String.Empty
                Dim mac As String = String.Empty, hash As String
                Dim access As Object

                coupon = contextManager.JoinCommonContext(participant, ApplicationName, True, False)

                '
                ' Bind securely context manager
                '
                mac = secure.InitializeBinding(coupon, Leadtools.Ccow.Constants.PassCodeNames, Leadtools.Ccow.Constants.PassCodeValues, binderPublicKey)
                hash = Utils.BinaryEncode(Utils.Hash(binderPublicKey & SecureParticipant.Passcode))
                Debug.Assert(mac.ToLower() = hash.ToLower())

                '
                ' Create participant mac and finalize binding
                '
                mac = Utils.BinaryEncode(Utils.Hash(participant.PublicKey + SecureParticipant.Passcode))
                access = secure.FinalizeBinding(coupon, participant.PublicKey, mac)

                '
                ' Display access
                '
                If Not access Is Nothing Then
                    Dim a As String() = CType(access, String())

                    Dim i As Integer = 0
                    Do While i < a.Length
                        Debug.WriteLine(String.Format("     {0}" & Microsoft.VisualBasic.Constants.vbTab & "{1}", a(i), a(i + 1)))
                        i += 2
                    Loop
                End If
                SetUserContext(contextManager, participant, coupon)
                contextManager.LeaveCommonContext(coupon)
            Catch e As Exception
                Debug.WriteLine(e.Message)
            End Try
        End Sub

        Private Sub SetUserContext(ByVal contextManager As IContextManager, ByVal participant As SecureParticipant, ByVal coupon As Integer)
            Dim secure As ISecureContextData = TryCast(contextManager, ISecureContextData)
            Dim userSubject As Subject = New Subject("User")
            Dim transactionCoupon As Integer = 0
            Dim noContinue As Boolean = True, disconnect As Boolean = False
            Dim reasons As Object
            Dim decision As String = "accept"

            userSubject.Items.Add(New ContextItem("User.id.logon"))
            userSubject.Items(0).Value = "test"
            userSubject.Items.Add(New ContextItem("User.co.Name"))
            userSubject.Items(1).Value = "Test User"

            Try
                Dim messageDigest, appSignature As String
                Dim values As List(Of String) = New List(Of String)()

                For Each v As Object In userSubject.ToItemValueArray()
                    values.Add(v.ToString())
                Next v

                transactionCoupon = contextManager.StartContextChanges(coupon)

                '
                ' Create digital signature
                '
                messageDigest = coupon.ToString() & String.Join("", userSubject.ToItemNameArray()) + String.Join("", values.ToArray()) + transactionCoupon.ToString()
                appSignature = participant.CreateSignature(messageDigest)

                secure.SetItemValues(coupon, userSubject.ToItemNameArray(), userSubject.ToItemValueArray(), transactionCoupon, appSignature)
                reasons = contextManager.EndContextChanges(transactionCoupon, noContinue)

                '
                ' If any application responded that they cannot apply the change we need to display
                ' a dialog that displays the reasons for the problems.
                '
                If (Not reasons Is Nothing AndAlso (CType(reasons, String())).Length > 0) OrElse noContinue Then
                    Dim pd As ProblemDialog = New ProblemDialog(CType(reasons, String()), noContinue)
                    Dim result As DialogResult

                    result = pd.ShowDialog()
                    If noContinue Then
                        decision = "cancel"
                    End If
                    If result = System.Windows.Forms.DialogResult.OK Then
                        decision = "accept"
                    ElseIf result = DialogResult.Cancel Then
                        decision = "cancel"
                    Else
                        decision = "cancel"
                        disconnect = True
                    End If
                End If

                '
                ' If user decided to break context we must leave
                '
                contextManager.PublishChangesDecision(transactionCoupon, decision)
                If disconnect Then
                    contextManager.LeaveCommonContext(coupon)
                End If

            Catch e As Exception
                Debug.WriteLine(e.Message)
            End Try

        End Sub

        <ComVisible(True)> _
        Public Class SecureParticipant
            Implements IContextParticipant

            Public Const Passcode As String = "A2C053FC-182C-4167-BB56-EE394BC5DB05"
            Public Const ApplicationName As String = "LEADTOOLS CCOW App"

            Private _KeyContainer As KeyContainer = Nothing

            Public ReadOnly Property PublicKey() As String
                Get
                    If Not _KeyContainer Is Nothing Then
                        Return Utils.BinaryEncode(_KeyContainer.GetPublicKey())
                    End If
                    Return String.Empty
                End Get
            End Property

            Public Sub New()
                _KeyContainer = New KeyContainer(ApplicationName)
            End Sub

            Public Function CreateSignature(ByVal messageDigest As String) As String
                Dim signature As Byte() = _KeyContainer.Sign(messageDigest)

                Return Utils.BinaryEncode(signature)
            End Function

#Region "IContextParticipant Members"

            Public Sub CommonContextTerminated() Implements IContextParticipant.CommonContextTerminated
                Console.WriteLine("CommonContextTerminated")
            End Sub

            Public Sub ContextChangesAccepted(ByVal contextCoupon As Integer) Implements IContextParticipant.ContextChangesAccepted
                Console.WriteLine("ContextChangesAccepted")
            End Sub

            Public Sub ContextChangesCanceled(ByVal contextCoupon As Integer) Implements IContextParticipant.ContextChangesCanceled
                Console.WriteLine("ContextChangesCanceled")
            End Sub

            Public Function ContextChangesPending(ByVal contextCoupon As Integer, ByRef reason As String) As String Implements IContextParticipant.ContextChangesPending
                reason = String.Empty
                Console.WriteLine("ContextChangesPending")
                Return "accept"
            End Function

            Public Sub Ping() Implements IContextParticipant.Ping
            End Sub

#End Region

        End Class