source3/libsmb/smbencrypt.c

   1 /*
   2    Unix SMB/Netbios implementation.
   3    Version 1.9.
   4    SMB parameters and setup
   5    Copyright (C) Andrew Tridgell 1992-1998
   6    Modified by Jeremy Allison 1995.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21 */
  22
  23 #include "includes.h"
  24
  25 extern int DEBUGLEVEL;
  26
  27 #include "byteorder.h"
  28
  29 /*
  30    This implements the X/Open SMB password encryption
  31    It takes a password, a 8 byte "crypt key" and puts 24 bytes of
  32    encrypted password into p24 */
  33 void SMBencrypt(uchar *passwd, uchar *c8, uchar *p24)
  34 {
  35         uchar p14[15], p21[21];
  36
  37         memset(p21,'\0',21);
  38         memset(p14,'\0',14);
  39         StrnCpy((char *)p14,(char *)passwd,14);
  40
  41         strupper((char *)p14);
  42         E_P16(p14, p21);
  43
  44         SMBOWFencrypt(p21, c8, p24);
  45
  46 #ifdef DEBUG_PASSWORD
  47         DEBUG(100,("SMBencrypt: lm#, challenge, response\n"));
  48         dump_data(100, p21, 16);
  49         dump_data(100, c8, 8);
  50         dump_data(100, p24, 24);
  51 #endif
  52 }
  53
  54 /* Routines for Windows NT MD4 Hash functions. */
  55 static int _my_wcslen(int16 *str)
  56 {
  57         int len = 0;
  58         while(*str++ != 0)
  59                 len++;
  60         return len;
  61 }
  62
  63 /*
  64  * Convert a string into an NT UNICODE string.
  65  * Note that regardless of processor type
  66  * this must be in intel (little-endian)
  67  * format.
  68  */
  69
  70 static int _my_mbstowcs(int16 *dst, uchar *src, int len)
  71 {
  72         int i;
  73         int16 val;
  74
  75         for(i = 0; i < len; i++) {
  76                 val = *src;
  77                 SSVAL(dst,0,val);
  78                 dst++;
  79                 src++;
  80                 if(val == 0)
  81                         break;
  82         }
  83         return i;
  84 }
  85
  86 /*
  87  * Creates the MD4 Hash of the users password in NT UNICODE.
  88  */
  89
  90 void E_md4hash(uchar *passwd, uchar *p16)
  91 {
  92         int len;
  93         int16 wpwd[129];
  94
  95         /* Password cannot be longer than 128 characters */
  96         len = strlen((char *)passwd);
  97         if(len > 128)
  98                 len = 128;
  99         /* Password must be converted to NT unicode */
 100         _my_mbstowcs(wpwd, passwd, len);
 101         wpwd[len] = 0; /* Ensure string is null terminated */
 102         /* Calculate length in bytes */
 103         len = _my_wcslen(wpwd) * sizeof(int16);
 104
 105         mdfour(p16, (unsigned char *)wpwd, len);
 106 }
 107
 108 /* Does both the NT and LM owfs of a user's password */
 109 void nt_lm_owf_gen(char *pwd, uchar nt_p16[16], uchar p16[16])
 110 {
 111         char passwd[130];
 112
 113         memset(passwd,'\0',130);
 114         safe_strcpy( passwd, pwd, sizeof(passwd)-1);
 115
 116         /* Calculate the MD4 hash (NT compatible) of the password */
 117         memset(nt_p16, '\0', 16);
 118         E_md4hash((uchar *)passwd, nt_p16);
 119
 120 #ifdef DEBUG_PASSWORD
 121         DEBUG(100,("nt_lm_owf_gen: pwd, nt#\n"));
 122         dump_data(120, passwd, strlen(passwd));
 123         dump_data(100, nt_p16, 16);
 124 #endif
 125
 126         /* Mangle the passwords into Lanman format */
 127         passwd[14] = '\0';
 128         strupper(passwd);
 129
 130         /* Calculate the SMB (lanman) hash functions of the password */
 131
 132         memset(p16, '\0', 16);
 133         E_P16((uchar *) passwd, (uchar *)p16);
 134
 135 #ifdef DEBUG_PASSWORD
 136         DEBUG(100,("nt_lm_owf_gen: pwd, lm#\n"));
 137         dump_data(120, passwd, strlen(passwd));
 138         dump_data(100, p16, 16);
 139 #endif
 140         /* clear out local copy of user's password (just being paranoid). */
 141         bzero(passwd, sizeof(passwd));
 142 }
 143
 144 /* Does the des encryption from the NT or LM MD4 hash. */
 145 void SMBOWFencrypt(uchar passwd[16], uchar *c8, uchar p24[24])
 146 {
 147         uchar p21[21];
 148
 149         memset(p21,'\0',21);
 150
 151         memcpy(p21, passwd, 16);
 152         E_P24(p21, c8, p24);
 153 }
 154
 155 /* Does the des encryption from the FIRST 8 BYTES of the NT or LM MD4 hash. */
 156 void NTLMSSPOWFencrypt(uchar passwd[8], uchar *ntlmchalresp, uchar p24[24])
 157 {
 158         uchar p21[21];
 159
 160         memset(p21,'\0',21);
 161         memcpy(p21, passwd, 8);
 162         memset(p21 + 8, 0xbd, 8);
 163
 164         E_P24(p21, ntlmchalresp, p24);
 165 #ifdef DEBUG_PASSWORD
 166         DEBUG(100,("NTLMSSPOWFencrypt: p21, c8, p24\n"));
 167         dump_data(100, p21, 21);
 168         dump_data(100, ntlmchalresp, 8);
 169         dump_data(100, p24, 24);
 170 #endif
 171 }
 172
 173
 174 /* Does the NT MD4 hash then des encryption. */
 175
 176 void SMBNTencrypt(uchar *passwd, uchar *c8, uchar *p24)
 177 {
 178         uchar p21[21];
 179
 180         memset(p21,'\0',21);
 181
 182         E_md4hash(passwd, p21);
 183         SMBOWFencrypt(p21, c8, p24);
 184
 185 #ifdef DEBUG_PASSWORD
 186         DEBUG(100,("SMBNTencrypt: nt#, challenge, response\n"));
 187         dump_data(100, p21, 16);
 188         dump_data(100, c8, 8);
 189         dump_data(100, p24, 24);
 190 #endif
 191 }
 192
 193 BOOL make_oem_passwd_hash(char data[516], const char *passwd, uchar old_pw_hash[16], BOOL unicode)
 194 {
 195         int new_pw_len = strlen(passwd) * (unicode ? 2 : 1);
 196
 197         if (new_pw_len > 512)
 198         {
 199                 DEBUG(0,("make_oem_passwd_hash: new password is too long.\n"));
 200                 return False;
 201         }
 202
 203         /*
 204          * Now setup the data area.
 205          * We need to generate a random fill
 206          * for this area to make it harder to
 207          * decrypt. JRA.
 208          */
 209         generate_random_buffer((unsigned char *)data, 516, False);
 210         if (unicode)
 211         {
 212                 struni2( (uint16*)(&data[512 - new_pw_len]), passwd);
 213         }
 214         else
 215         {
 216                 fstrcpy( &data[512 - new_pw_len], passwd);
 217         }
 218         SIVAL(data, 512, new_pw_len);
 219
 220 #ifdef DEBUG_PASSWORD
 221         DEBUG(100,("make_oem_passwd_hash\n"));
 222         dump_data(100, data, 516);
 223 #endif
 224         SamOEMhash( (unsigned char *)data, (unsigned char *)old_pw_hash, True);
 225
 226         return True;
 227 }
 228