(Classic ASP) NTLM Client and Server Code

Demonstrates the NTLM authentication algorithm for both client and server.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ntlm")
set ntlmClient = Server.CreateObject("Chilkat.Ntlm")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ntlm")
set ntlmServer = Server.CreateObject("Chilkat.Ntlm")

' The NTLM protocol begins by the client sending the server
' a Type1 message. 

ntlmClient.Workstation = "MyWorkstation"
type1Msg = ntlmClient.GenType1()

Response.Write "<pre>" & Server.HTMLEncode( "Type1 message from client to server:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( type1Msg) & "</pre>"

' If the server wishes to examine the information embedded within the
' Type1 message, it may call ParseType1. 
' This step is not necessary, it is only for informational purposes..
type1Info = ntlmServer.ParseType1(type1Msg)

Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( type1Info) & "</pre>"

' The server now generates a Type2 message to be sent to the client.
' The Type2 message requires a TargetName.  A TargetName is
' the authentication realm in which the authenticating account
' has membership (a domain name for domain accounts, or server name
' for local machine accounts).
ntlmServer.TargetName = "myAuthRealm"

type2Msg = ntlmServer.GenType2(type1Msg)
If (ntlmServer.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ntlmServer.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Type2 message from server to client:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( type2Msg) & "</pre>"

' The client may examine the information embedded in the Type2 message 
' by calling ParseType2, which returns XML.  This is only for informational purposes
' and is not required.
type2Info = ntlmClient.ParseType2(type2Msg)

Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( type2Info) & "</pre>"

' The client will now generate the final Type3 message to be sent to the server.
' This requires the Username and Password:
ntlmClient.UserName = "test123"
ntlmClient.Password = "myPassword"

type3Msg = ntlmClient.GenType3(type2Msg)
If (ntlmClient.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ntlmClient.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Type3 message from client to server:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( type3Msg) & "</pre>"

' The server may verify the response by first "loading" the Type3 message.
' This sets the various properties such as Username, Domain, Workstation,
' and ClientChallenge to the values embedded within theType3 message.
' The server may then use the Username to lookup the password.  
' Looking up the password is dependent on your infrastructure.  Perhaps your
' usernames/passwords are stored in a secure database.  If that's the case, you would
' write code to issue a query to get the password string for the given username.
' Once the password is obtained, set the Password property and then 
' generate the Type3 response again.  If the server's Type3 response matches
' the client's Type3 response, then the client's password is correct.

success = ntlmServer.LoadType3(type3Msg)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ntlmServer.LastErrorText) & "</pre>"
    Response.End
End If

' The Username property now contains the username that was embedded within
' the Type3 message.  It can be used to lookup the password.
clientUsername = ntlmServer.UserName

' For this example, we'll simply set the password to a literal string:
ntlmServer.Password = "myPassword"

' The server may generate the Type3 message again, using the client's correct
' password:
expectedType3Msg = ntlmServer.GenType3(type2Msg)

Response.Write "<pre>" & Server.HTMLEncode( "Expected Type3 Message:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( expectedType3Msg) & "</pre>"

' If the Type3 message received from the client is exactly the same as the
' expected Type3 message, then the client must've used the same password,
' and authentication is successful

%>
</body>
</html>