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