# This is a patch for NTLM-1.02.orig to update it to NTLM-1.02
#
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
#
http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####
#### Patch data follows ####
diff -c 'NTLM-1.02.orig/NTLM.pm' 'NTLM-1.02/NTLM.pm'
Index: ./NTLM.pm
*** ./NTLM.pm Mon Oct 29 18:22:15 2001
--- ./NTLM.pm Mon Sep 18 14:03:16 2006
***************
*** 55,61 ****
Returns the new username. Without an argument, this function
returns the current username entry.
! =item ntlm_passwd()
Set the password to use in the NTLM authentication messages.
Returns the new password. Without an argument, this function
--- 55,61 ----
Returns the new username. Without an argument, this function
returns the current username entry.
! =item ntlm_password()
Set the password to use in the NTLM authentication messages.
Returns the new password. Without an argument, this function
***************
*** 170,176 ****
$challenge = decode_base64($challenge);
$c_info = &decode_challenge($challenge);
$u_user = &unicode($user);
! $domain = substr($c_info->{buffer}, 0, $c_info->{domain}{len});
$response = pack($msg3, $ident, 3);
$lmResp = &lmEncrypt($c_info->{data});
$ntResp = &ntEncrypt($c_info->{data});
--- 170,176 ----
$challenge = decode_base64($challenge);
$c_info = &decode_challenge($challenge);
$u_user = &unicode($user);
! $domain = &unicode($domain);
$response = pack($msg3, $ident, 3);
$lmResp = &lmEncrypt($c_info->{data});
$ntResp = &ntEncrypt($c_info->{data});
diff -c 'NTLM-1.02.orig/t/ntlm.t' 'NTLM-1.02/t/ntlm.t'
Index: ./t/ntlm.t
*** ./t/ntlm.t Mon Oct 29 18:52:16 2001
--- ./t/ntlm.t Mon Sep 18 14:03:28 2006
***************
*** 23,29 ****
my $passwd = "test";
my $msg1 = "TlRMTVNTUAABAAAAB7IAAAQABAAgAAAABAAEACQAAAB0ZXN0dGVzdA==";
my $challenge = "TlRMTVNTUAACAAAABAAEADAAAAAFggEAQUJDREVGR0gAAAAAAAAAAAAAAAAAAAAAdGVzdA==";
! my $msg2 = "TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAQABABwAAAACAAIAHQAAAAIAAgAfAAAAAAAAABEAAAABYIBAJ7/TlMo4HLg0gOk6iKq4bv2vk35ozHEKKoqG8nTkQ5S82zyqpJzxPDJHUMynnKsBHRlc3R0AGUAcwB0AHQAZQBzAHQA";
# 2: username
--- 23,29 ----
my $passwd = "test";
my $msg1 = "TlRMTVNTUAABAAAAB7IAAAQABAAgAAAABAAEACQAAAB0ZXN0dGVzdA==";
my $challenge = "TlRMTVNTUAACAAAABAAEADAAAAAFggEAQUJDREVGR0gAAAAAAAAAAAAAAAAAAAAAdGVzdA==";
! my $msg2 = "TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAgACABwAAAACAAIAHgAAAAIAAgAgAAAAAAAAABIAAAABYIBAJ7/TlMo4HLg0gOk6iKq4bv2vk35ozHEKKoqG8nTkQ5S82zyqpJzxPDJHUMynnKsBHQAZQBzAHQAdABlAHMAdAB0AGUAcwB0AA==";
# 2: username
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Mon Sep 18 14:03:32 2006
# Generated by : makepatch 2.00_07*
# Recurse directories : Yes
# Excluded files : (\A|/).*\~\Z
# (\A|/).*\.a\Z
# (\A|/).*\.bak\Z
# (\A|/).*\.BAK\Z
# (\A|/).*\.elc\Z
# (\A|/).*\.exe\Z
# (\A|/).*\.gz\Z
# (\A|/).*\.ln\Z
# (\A|/).*\.o\Z
# (\A|/).*\.obj\Z
# (\A|/).*\.olb\Z
# (\A|/).*\.old\Z
# (\A|/).*\.orig\Z
# (\A|/).*\.rej\Z
# (\A|/).*\.so\Z
# (\A|/).*\.Z\Z
# (\A|/)\.del\-.*\Z
# (\A|/)\.make\.state\Z
# (\A|/)\.nse_depinfo\Z
# (\A|/)core\Z
# (\A|/)tags\Z
# (\A|/)TAGS\Z
# p 'NTLM.pm' 6999 1158584596 0100644
# p 't/ntlm.t' 1973 1158584608 0100644
#### End of ApplyPatch data ####
#### End of Patch kit [created: Mon Sep 18 14:03:32 2006] ####
#### Patch checksum: 94 3718 55468 ####
#### Checksum: 112 4402 46279 ####
