Luego creamos una clase que derive de WebService que va a ser una versión especializada de web service con contiene un header con la información del usuario.

'''-----------------------------------------------------------------------------

''' Project       : SecureWebService

''' Class         : SecureService

'''

'''-----------------------------------------------------------------------------

''' <summary>

''' Web service con autenticacion

''' </summary>

''' <remarks></remarks>

'''-----------------------------------------------------------------------------

Public Class SecureService

   Inherits WebService

   Public AuthenticationCredentials As AuthenticationHeader

End Class

Luego agregamos un web service que en este caso llamaremos SecureWebService.asmx. Una vez agregado cambiaremos la herencia del mismo, en vez de derivar directamente de la clase WebService lo haremos derivar de la clase SecureService que creamos anteriormente (recordar que ésta deriva de WebService e incluye el header con la autenticación).

Imports System.Web.Services.Protocols

Imports System.Web.Services

<System.Web.Services.WebService(Namespace:="http://tempuri.org/SecureWebService/SecureWebService")> _

Public Class SecureWebService

   Inherits SecureService

#Region " Web Services Designer Generated Code "

   Public Sub New()

      MyBase.New()

      'This call is required by the Web Services Designer.

      InitializeComponent()

      'Add your own initialization code after the InitializeComponent() call

   End Sub

   'Required by the Web Services Designer

   Private components As System.ComponentModel.IContainer

   'NOTE: The following procedure is required by the Web Services Designer

   'It can be modified using the Web Services Designer. 

   'Do not modify it using the code editor.

   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

      components = New System.ComponentModel.Container

   End Sub

   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

      'CODEGEN: This procedure is required by the Web Services Designer

      'Do not modify it using the code editor.

      If disposing Then

         If Not (components Is Nothing) Then

            components.Dispose()

         End If

      End If

      MyBase.Dispose(disposing)

   End Sub

#End Region

   ' WEB SERVICE EXAMPLE

   ' The HelloWorld() example service returns the string Hello World.

   ' To build, uncomment the following lines then save and build the project.

   ' To test this web service, ensure that the .asmx file is the start page

   ' and press F5.

   '

   <WebMethod(), SoapHeader("AuthenticationCredentials")> _

   Public Function SecureWebMethod() As String

      If UserHasPermission(AuthenticationCredentials) Then

         Return "El servicio se ejecutó con éxito"

      Else

         Return "El usuario no tiene permisos para realizar la operación solicitada"

      End If

   End Function

   '''-----------------------------------------------------------------------------

   ''' <summary>

   ''' Verifica la identidad y permisos del usuario

   ''' </summary>

   ''' <param name="value"></param>

   ''' <returns></returns>

   ''' <remarks></remarks>

   '''-----------------------------------------------------------------------------

   Private Function UserHasPermission(ByVal value As AuthenticationHeader) As Boolean

      If AuthenticationCredentials Is Nothing Then

         Return False

      Else

         'Aqui deberian verificarse los permisos del usuario para ejecutar el

         'servicio.

         If value.UserName = "user" And value.Password = "pwd" Then

            Return True

         Else

            Return False

         End If

      End If

   End Function

End Class

Eso es todo por parte del WebService. Cuando alguien llame al método web "SecureWebMethod" éste verificará la existencia de la información del usuario en el sobre Soap y validará la misma. Si todo se encuentra en orden el método se ejecutará con éxito.

Abajo detallamos un bosquejo de la petición Soap con el header de información del usuario, necesario para llamar al WebService:

POST /SecureWebService/SecureWebService.asmx HTTP/1.1

Host: localhost

Content-Type: text/xml; charset=utf-8

Content-Length: length

SOAPAction: "http://tempuri.org/SecureWebService/SecureWebService/SecureWebMethod"

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

  <soap:Header>

    <AuthenticationHeader xmlns="http://tempuri.org/SecureWebService/SecureWebService">

      <UserName>string</UserName>

      <Password>string</Password>

    </AuthenticationHeader>

  </soap:Header>

  <soap:Body>

    <SecureWebMethod xmlns="http://tempuri.org/SecureWebService/SecureWebService" />

  </soap:Body>

</soap:Envelope>

Ahora realizaremos una página Aspx que utilizaremos como cliente del webservice.

Creamos una página aspx llamada Test.aspx en un proyecto web nuevo. Para poder hacer referencia al webservice antes creado agregamos una referencia web al mismo.

En el código de la página colocamos el siguiente código en el botón que realiza "submit":

   Private Sub btnExec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExec.Click

      Dim ServiceToCall As New SecureService.SecureWebService

      'Creo un header soap con para portar las credenciales del usuario

      Dim Authentication As New SecureService.AuthenticationHeader

      'Inicializo el header con la informacion del usuario

      Authentication.UserName = txtUser.Text

      Authentication.Password = txtPwd.Text

      'Asigno las credenciales

      ServiceToCall.AuthenticationHeaderValue = Authentication

      'Llamo al metodo

      txtResult.Text = ServiceToCall.SecureWebMethod()

   End Sub

En la siguiente imagen veremos que el webservice devuelve un mensaje de autenticación negativa debido a que no se provee un password correcto:

En la siguiente imagen proveemos datos correctos y el webservice valida los mismos satisfactoriamente:

GB