Authorization Constructor (String, Boolean, String)

 

Creates a new instance of the Authorization class with the specified authorization message, completion status, and connection group identifier.

Namespace:   System.Net
Assembly:  System (in System.dll)

Public Sub New (
	token As String,
	finished As Boolean,
	connectionGroupId As String
)

Parameters

token
Type: System.String

The encrypted authorization message expected by the server.

finished
Type: System.Boolean

The completion status of the authorization attempt. true if the authorization attempt is complete; otherwise, false.

connectionGroupId
Type: System.String

A unique identifier that can be used to create private client-server connections that are bound only to this authentication scheme.

The following code example creates a new instance of the Authorization class with the specified authorization message, completion status, and connection group identifier.

Public Function Authenticate(challenge As String, request As WebRequest, credentials As ICredentials) As Authorization Implements IAuthenticationModule.Authenticate
    Try
        Dim message As String
        ' Check if Challenge string was raised by a site which requires CloneBasic authentication.
        If challenge Is Nothing Or Not challenge.StartsWith("CloneBasic") Then
            Return Nothing
        End If
        Dim myCredentials As NetworkCredential
        If TypeOf credentials Is CredentialCache Then
            myCredentials = credentials.GetCredential(request.RequestUri, "CloneBasic")
            If myCredentials Is Nothing Then
                Return Nothing
            End If
        Else
            myCredentials = CType(credentials, NetworkCredential)
        End If 'Message encryption scheme : 
        '        a)Concatenate username and password seperated by space
        '        b)Apply ASCII encoding to obtain a stream of bytes
        '        c)Apply Base64 Encoding to this array of bytes to obtain our encoded authorization message

        message = myCredentials.UserName + " " + myCredentials.Password
        'Apply AsciiEncoding to our user name and password to obtain it as an array of bytes
        Dim asciiEncoding As Encoding = Encoding.ASCII
        Dim byteArray(asciiEncoding.GetByteCount(message)) As Byte
        byteArray = asciiEncoding.GetBytes(message)

        'Perform Base64 transform
        message = Convert.ToBase64String(byteArray)
        'The following overloaded contructor sets the 'Message' property of authorization to the base64 string
        '         *that  we just formed and it also sets the 'Complete' property to true and the connection group id
        '         *to the domain of the NetworkCredential object
        Dim myAuthorization As New Authorization("CloneBasic " + message, True, request.ConnectionGroupName)
        Return myAuthorization
    Catch e As Exception
        Console.WriteLine(("Exception Raised ...:" + e.Message))
        Return Nothing
    End Try
End Function 'Authenticate

.NET Framework
Available since 1.1
Return to top
Show: