(Delphi DLL) NTLM Client and Server Code

Demonstrates the NTLM authentication algorithm for both client and server.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ntlm;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ntlmClient: HCkNtlm;
ntlmServer: HCkNtlm;
type1Msg: PWideChar;
type1Info: PWideChar;
type2Msg: PWideChar;
type2Info: PWideChar;
type3Msg: PWideChar;
success: Boolean;
clientUsername: PWideChar;
expectedType3Msg: PWideChar;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ntlmClient := CkNtlm_Create();
ntlmServer := CkNtlm_Create();

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

CkNtlm_putWorkstation(ntlmClient,'MyWorkstation');
type1Msg := CkNtlm__genType1(ntlmClient);

Memo1.Lines.Add('Type1 message from client to server:');
Memo1.Lines.Add(type1Msg);

// 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 := CkNtlm__parseType1(ntlmServer,type1Msg);

Memo1.Lines.Add('---');
Memo1.Lines.Add(type1Info);

// 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).
CkNtlm_putTargetName(ntlmServer,'myAuthRealm');

type2Msg := CkNtlm__genType2(ntlmServer,type1Msg);
if (CkNtlm_getLastMethodSuccess(ntlmServer) <> True) then
  begin
    Memo1.Lines.Add(CkNtlm__lastErrorText(ntlmServer));
    Exit;
  end;

Memo1.Lines.Add('Type2 message from server to client:');
Memo1.Lines.Add(type2Msg);

// 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 := CkNtlm__parseType2(ntlmClient,type2Msg);

Memo1.Lines.Add('---');
Memo1.Lines.Add(type2Info);

// The client will now generate the final Type3 message to be sent to the server.
// This requires the Username and Password:
CkNtlm_putUserName(ntlmClient,'test123');
CkNtlm_putPassword(ntlmClient,'myPassword');

type3Msg := CkNtlm__genType3(ntlmClient,type2Msg);
if (CkNtlm_getLastMethodSuccess(ntlmClient) <> True) then
  begin
    Memo1.Lines.Add(CkNtlm__lastErrorText(ntlmClient));
    Exit;
  end;

Memo1.Lines.Add('Type3 message from client to server:');
Memo1.Lines.Add(type3Msg);

// 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 := CkNtlm_LoadType3(ntlmServer,type3Msg);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkNtlm__lastErrorText(ntlmServer));
    Exit;
  end;

// The Username property now contains the username that was embedded within
// the Type3 message.  It can be used to lookup the password.
clientUsername := CkNtlm__userName(ntlmServer);

// For this example, we'll simply set the password to a literal string:
CkNtlm_putPassword(ntlmServer,'myPassword');

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

Memo1.Lines.Add('Expected Type3 Message:');
Memo1.Lines.Add(expectedType3Msg);

// 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

CkNtlm_Dispose(ntlmClient);
CkNtlm_Dispose(ntlmServer);

end;