Authorization Constructor (String, Boolean, String)
Creates a new instance of the Authorization class with the specified authorization message, completion status, and connection group identifier.
Assembly: System (in System.dll)
The encrypted authorization message expected by the server.
The completion status of the authorization attempt. true if the authorization attempt is complete; otherwise, false.
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
Available since 1.1