samples/snippets/visualbasic/VS_Snippets_CFX/c_programmingsecurity/vb/source.vb - main - aprogrammer/dotnet-docs

samples/snippets/visualbasic/VS_Snippets_CFX/c_programmingsecurity/vb/source.vb
270 строк9 KB
Genevieve Warren
Remove CAS code from snippets (#29144)
25 апр 2022, 23:39
25 апр 2022, 23:395865521
Imports System.ServiceModel
Imports System.ServiceModel.Channels
Imports System.Security.Cryptography.X509Certificates
Imports System.Security.Permissions
Imports System.ServiceModel.Description

Public Class Test

    Private Sub New()

    End Sub

    Shared Sub Main()
        Console.WriteLine("Hello")
        Console.ReadLine()

    End Sub



    Private Class Snippets
        Private binding As WSHttpBinding
        Private myServiceHost As ServiceHost
        Private CalculatorClient As CalculatorClient

        Private Function ReturnUserName() As String
            Return "SHH"
        End Function

        Private Function ReturnPassword() As String
            Return "SHH"

        End Function

        Private Sub snippet1()
            '<snippet1>
            Dim binding As New BasicHttpBinding()
            ' Specify HTTPS as the security mechanism.
            binding.Security.Mode = BasicHttpSecurityMode.Transport
            '</snippet1>
        End Sub

        Private Sub Snippet2()
            '<snippet2>
            Dim binding As New NetTcpBinding()
            ' Specify the mode, then the credential type.
            binding.Security.Mode = SecurityMode.Message
            binding.Security.Message.ClientCredentialType = _
            MessageCredentialType.UserName
            '</snippet2>
        End Sub

        Private Sub snippet3()
            '<snippet3>
            Dim binding As New NetTcpBinding()
            binding.Security.Mode = SecurityMode.Transport
            binding.Security.Transport.ClientCredentialType = _
            TcpClientCredentialType.Certificate
            '</snippet3>
        End Sub

        Private Sub Snippet4()
            '<snippet4>
            ' Specify client credentials on the client. 
            ' Code to set the UserName and Password is not shown here.
            Dim CalculatorClient As New CalculatorClient("myBinding")
            CalculatorClient.ClientCredentials.UserName.UserName = ReturnUserName()
            CalculatorClient.ClientCredentials.UserName.Password = ReturnPassword()
            '</snippet4>
        End Sub

        Private Sub Snippet5()
            '<snippet5>
            Dim myServiceHost As New ServiceHost(GetType(CalculatorService))
            ' Create a binding to use.
            Dim binding As New WSHttpBinding()
            binding.Security.Mode = SecurityMode.Message
            binding.Security.Message.ClientCredentialType = _
            MessageCredentialType.Certificate

            ' Set the client certificate.
            myServiceHost.Credentials.ClientCertificate.SetCertificate( _
                    StoreLocation.CurrentUser, _
                    StoreName.My, _
                    X509FindType.FindBySubjectName, _
                    "client.com")
            '</snippet5>
        End Sub

        Private Sub Snippet6And7()
            '<snippet6>
            Dim myServiceHost As New ServiceHost(GetType(CalculatorService))

            ' Specify client credentials validation on the service. 
            Dim myServiceCredentials As ServiceCredentials = _
            myServiceHost.Description.Behaviors.Find(Of ServiceCredentials)()
            ' The CurrentUser property of the StoreLocation class is a static method.
            myServiceCredentials.ClientCertificate.Authentication.TrustedStoreLocation = _
               StoreLocation.CurrentUser
            '</snippet6>

            '<snippet7>
            Dim binding As New WSHttpBinding()
            binding.Security.Mode = SecurityMode.Message
            binding.Security.Message.ClientCredentialType = _
            MessageCredentialType.UserName
            binding.Security.Message.NegotiateServiceCredential = False

            Dim CalculatorClient As New CalculatorClient("myBinding")
            CalculatorClient.ClientCredentials.ServiceCertificate. _
                SetDefaultCertificate("Al", StoreLocation.CurrentUser, StoreName.My)
            '</snippet7>
        End Sub


        Private Sub Snippet8()
            '<snippet8>
            Dim binding As New WSHttpBinding()
            binding.Security.Mode = SecurityMode.Message
            binding.Security.Message.AlgorithmSuite = _
            System.ServiceModel.Security.SecurityAlgorithmSuite.Basic256
            '</snippet8>
        End Sub


        '<snippet9>
        <OperationContract(ProtectionLevel:= _
           System.Net.Security.ProtectionLevel.EncryptAndSign)> _
        Private Sub MyCalculatorMethod()
            ' Code not shown. 
        End Sub
        '</snippet9>


        Private Sub TransportSecurityOverview()
            '<snippet10>
            Dim b As BasicHttpBinding = New BasicHttpBinding()
            b.Security.Mode = BasicHttpSecurityMode.Transport
            b.Security.Transport.ClientCredentialType = HttpClientCredentialType.Windows
            '</snippet10>
        End Sub

        Private Sub TransportSecurityOverview2()

            '<snippet11>
            ' The code uses a shortcut to specify the security mode to Transport.
            Dim b As WSHttpBinding = New WSHttpBinding(SecurityMode.Transport)
            b.Security.Transport.ClientCredentialType = HttpClientCredentialType.Windows
            '</snippet11>
        End Sub

        Private Sub TransportSecurityOverview3()

            '<snippet12>
            Dim b As NetTcpBinding = New NetTcpBinding()
            b.Security.Mode = SecurityMode.Transport
            b.Security.Transport.ClientCredentialType = TcpClientCredentialType.Certificate
            '</snippet12>
        End Sub

        Private Sub ClientSideCode()

            '<snippet13>
            Dim b As NetTcpBinding = New NetTcpBinding()
            b.Security.Mode = SecurityMode.Transport
            b.Security.Transport.ClientCredentialType = TcpClientCredentialType.Certificate
            Dim a As New EndpointAddress("net.tcp://contoso.com/TcpAddress")
            Dim cf As ChannelFactory(Of ICalculator) = New ChannelFactory(Of ICalculator)(b, a)
            cf.Credentials.ClientCertificate.SetCertificate( _
                StoreLocation.LocalMachine, _
                StoreName.My, _
                X509FindType.FindByThumbprint, _
                "0000000000000000000000000000000000000000")
            '</snippet13>
        End Sub

        Private Sub Snippet14()
            '<snippet15>
            '<snippet14>
            Dim myServiceHost As New ServiceHost(GetType(CalculatorService))
            ' Create a binding to use.
            Dim binding As New WSHttpBinding()
            binding.Security.Mode = SecurityMode.Message
            binding.Security.Message.ClientCredentialType = _
            MessageCredentialType.Windows
            '</snippet14>

            ' Set the service certificate.
            myServiceHost.Credentials.ServiceCertificate.SetCertificate("cn=service.com")
            '</snippet15>
        End Sub

    End Class
End Class


<System.ServiceModel.ServiceContractAttribute([Namespace]:="http://Microsoft.ServiceModel.Samples")> _
Public Interface ICalculator

    <System.ServiceModel.OperationContractAttribute(Action:="http://Microsoft.ServiceModel.Samples/ICalculator/Add", ReplyAction:="http://Microsoft.ServiceModel.Samples/ICalculator/AddResponse")> _
    Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double

    <System.ServiceModel.OperationContractAttribute(Action:="http://Microsoft.ServiceModel.Samples/ICalculator/Subtract", ReplyAction:="http://Microsoft.ServiceModel.Samples/ICalculator/SubtractResponse")> _
    Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double

    <System.ServiceModel.OperationContractAttribute(Action:="http://Microsoft.ServiceModel.Samples/ICalculator/Multiply", ReplyAction:="http://Microsoft.ServiceModel.Samples/ICalculator/MultiplyResponse")> _
    Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double

    <System.ServiceModel.OperationContractAttribute(Action:="http://Microsoft.ServiceModel.Samples/ICalculator/Divide", ReplyAction:="http://Microsoft.ServiceModel.Samples/ICalculator/DivideResponse")> _
    Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double
End Interface 'ICalculator


Public Interface ICalculatorChannel
    : Inherits ICalculator, System.ServiceModel.IClientChannel
End Interface 'ICalculatorChannel


Class CalculatorClient
    Inherits System.ServiceModel.ClientBase(Of ICalculator)
    Implements ICalculator

    Public Sub New()
    End Sub


    Public Sub New(ByVal configurationName As String)
        MyBase.New(configurationName)

    End Sub


    Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, _
        ByVal address As System.ServiceModel.EndpointAddress)
        MyBase.New(binding, address)

    End Sub


    Public Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double _
    Implements ICalculator.Add
        Return MyBase.Channel.Add(n1, n2)

    End Function 'Add


    Public Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double _
    Implements ICalculator.Subtract
        Return MyBase.Channel.Subtract(n1, n2)

    End Function 'Subtract


    Public Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double _
    Implements ICalculator.Multiply
        Return MyBase.Channel.Multiply(n1, n2)

    End Function 'Multiply


    Public Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double _
    Implements ICalculator.Divide
        Return MyBase.Channel.Divide(n1, n2)

    End Function 'Divide
End Class


Public Class CalculatorService
End Class