Start to merge the new ACL mapping code from Andreas Gruenbacher <agruen@suse.de>.
[samba.git] / source3 / libsmb / smbencrypt.c
index b1a5c9fbb83ebd6b11d2bd0ebfe00c4b3164f89d..db265c4bf7c0f0688831ef94472ab40a46828f44 100644 (file)
@@ -1,6 +1,5 @@
 /* 
-   Unix SMB/Netbios implementation.
-   Version 1.9.
+   Unix SMB/CIFS implementation.
    SMB parameters and setup
    Copyright (C) Andrew Tridgell 1992-1998
    Modified by Jeremy Allison 1995.
 */
 
 #include "includes.h"
-
-extern int DEBUGLEVEL;
-
 #include "byteorder.h"
 
 /*
    This implements the X/Open SMB password encryption
-   It takes a password, a 8 byte "crypt key" and puts 24 bytes of 
-   encrypted password into p24 */
-void SMBencrypt(uchar *passwd, uchar *c8, uchar *p24)
+   It takes a password ('unix' string), a 8 byte "crypt key" 
+   and puts 24 bytes of encrypted password into p24 */
+void SMBencrypt(const char *passwd, const uchar *c8, uchar p24[24])
 {
-       uchar p14[15], p21[21];
+       uchar p21[21];
 
        memset(p21,'\0',21);
-       memset(p14,'\0',14);
-       StrnCpy((char *)p14,(char *)passwd,14);
-
-       strupper((char *)p14);
-       E_P16(p14, p21); 
+       E_deshash(passwd, p21); 
 
        SMBOWFencrypt(p21, c8, p24);
 
 #ifdef DEBUG_PASSWORD
        DEBUG(100,("SMBencrypt: lm#, challenge, response\n"));
        dump_data(100, (char *)p21, 16);
-       dump_data(100, (char *)c8, 8);
+       dump_data(100, (const char *)c8, 8);
        dump_data(100, (char *)p24, 24);
 #endif
 }
 
-/* 
+/**
  * Creates the MD4 Hash of the users password in NT UNICODE.
+ * @param passwd password in 'unix' charset.
+ * @param p16 return password hashed with md4, caller allocated 16 byte buffer
  */
  
-void E_md4hash(uchar *passwd, uchar *p16)
+void E_md4hash(const char *passwd, uchar p16[16])
 {
        int len;
        smb_ucs2_t wpwd[129];
        
-       /* Password cannot be longer than 128 characters */
-       len = strlen((char *)passwd);
-       if(len > 128)
-               len = 128;
        /* Password must be converted to NT unicode - null terminated. */
        push_ucs2(NULL, wpwd, (const char *)passwd, 256, STR_UNICODE|STR_NOALIGN|STR_TERMINATE);
        /* Calculate length in bytes */
        len = strlen_w(wpwd) * sizeof(int16);
 
        mdfour(p16, (unsigned char *)wpwd, len);
+       ZERO_STRUCT(wpwd);      
 }
 
-/* Does both the NT and LM owfs of a user's password */
-void nt_lm_owf_gen(char *pwd, uchar nt_p16[16], uchar p16[16])
+/**
+ * Creates the DES forward-only Hash of the users password in DOS ASCII charset
+ * @param passwd password in 'unix' charset.
+ * @param p16 return password hashed with DES, caller allocated 16 byte buffer
+ */
+void E_deshash(const char *passwd, uchar p16[16])
 {
-       char passwd[514];
+       uchar dospwd[15]; /* Password must not be > 14 chars long. */
+       ZERO_STRUCT(dospwd);
+       ZERO_STRUCTP(p16);
+       
+       /* Password must be converted to DOS charset - null terminated, uppercase. */
+       push_ascii(dospwd, (const char *)passwd, sizeof(dospwd), STR_UPPER|STR_TERMINATE);
+
+       E_P16(dospwd, p16);
 
-       memset(passwd,'\0',514);
-       safe_strcpy( passwd, pwd, sizeof(passwd)-1);
+       ZERO_STRUCT(dospwd);    
+}
 
+/**
+ * Creates the MD4 and DES (LM) Hash of the users password.  
+ * MD4 is of the NT Unicode, DES is of the DOS UPPERCASE password.
+ * @param passwd password in 'unix' charset.
+ * @param nt_p16 return password hashed with md4, caller allocated 16 byte buffer
+ * @param p16 return password hashed with des, caller allocated 16 byte buffer
+ */
+/* Does both the NT and LM owfs of a user's password */
+void nt_lm_owf_gen(const char *pwd, uchar nt_p16[16], uchar p16[16])
+{
        /* Calculate the MD4 hash (NT compatible) of the password */
        memset(nt_p16, '\0', 16);
-       E_md4hash((uchar *)passwd, nt_p16);
+       E_md4hash(pwd, nt_p16);
 
 #ifdef DEBUG_PASSWORD
        DEBUG(100,("nt_lm_owf_gen: pwd, nt#\n"));
-       dump_data(120, passwd, strlen(passwd));
+       dump_data(120, pwd, strlen(pwd));
        dump_data(100, (char *)nt_p16, 16);
 #endif
 
-       /* Mangle the passwords into Lanman format */
-       passwd[14] = '\0';
-       strupper(passwd);
-
-       /* Calculate the SMB (lanman) hash functions of the password */
-
-       memset(p16, '\0', 16);
-       E_P16((uchar *) passwd, (uchar *)p16);
+       E_deshash(pwd, (uchar *)p16);
 
 #ifdef DEBUG_PASSWORD
        DEBUG(100,("nt_lm_owf_gen: pwd, lm#\n"));
-       dump_data(120, passwd, strlen(passwd));
+       dump_data(120, pwd, strlen(pwd));
        dump_data(100, (char *)p16, 16);
 #endif
-       /* clear out local copy of user's password (just being paranoid). */
-       memset(passwd, '\0', sizeof(passwd));
 }
 
 /* Does both the NTLMv2 owfs of a user's password */
-void ntv2_owf_gen(const uchar owf[16],
-                 const char *user_n, const char *domain_n, uchar kr_buf[16])
+BOOL ntv2_owf_gen(const uchar owf[16],
+                 const char *user_in, const char *domain_in, uchar kr_buf[16])
 {
-       pstring user_u;
-       pstring dom_u;
+       smb_ucs2_t *user;
+       smb_ucs2_t *domain;
+       
+       int user_byte_len;
+       int domain_byte_len;
+
        HMACMD5Context ctx;
 
-       int user_l = strlen(user_n);
-       int domain_l = strlen(domain_n);
+       user_byte_len = push_ucs2_allocate(&user, user_in);
+       if (user_byte_len < 0) {
+               DEBUG(0, ("push_uss2_allocate() for user returned %d (probably malloc() failure)\n", user_byte_len));
+               return False;
+       }
+
+       domain_byte_len = push_ucs2_allocate(&domain, domain_in);
+       if (domain_byte_len < 0) {
+               DEBUG(0, ("push_uss2_allocate() for domain returned %d (probably malloc() failure)\n", user_byte_len));
+               return False;
+       }
+
+       strupper_w(user);
+       strupper_w(domain);
 
-       push_ucs2(NULL, user_u, user_n, (user_l+1)*2, STR_UNICODE|STR_NOALIGN|STR_TERMINATE|STR_UPPER);
-       push_ucs2(NULL, dom_u, domain_n, (domain_l+1)*2, STR_UNICODE|STR_NOALIGN|STR_TERMINATE|STR_UPPER);
+       /* We don't want null termination */
+       user_byte_len = user_byte_len - 2;
+       domain_byte_len = domain_byte_len - 2;
+       
+       SMB_ASSERT(user_byte_len >= 0);
+       SMB_ASSERT(domain_byte_len >= 0);
 
        hmac_md5_init_limK_to_64(owf, 16, &ctx);
-       hmac_md5_update((const unsigned char *)user_u, user_l * 2, &ctx);
-       hmac_md5_update((const unsigned char *)dom_u, domain_l * 2, &ctx);
+       hmac_md5_update((const unsigned char *)user, user_byte_len, &ctx);
+       hmac_md5_update((const unsigned char *)domain, domain_byte_len, &ctx);
        hmac_md5_final(kr_buf, &ctx);
 
 #ifdef DEBUG_PASSWORD
        DEBUG(100, ("ntv2_owf_gen: user, domain, owfkey, kr\n"));
-       dump_data(100, user_u, user_l * 2);
-       dump_data(100, dom_u, domain_l * 2);
+       dump_data(100, (const char *)user, user_byte_len);
+       dump_data(100, (const char *)domain, domain_byte_len);
        dump_data(100, owf, 16);
        dump_data(100, kr_buf, 16);
 #endif
+
+       SAFE_FREE(user);
+       SAFE_FREE(domain);
+       return True;
 }
 
 /* Does the des encryption from the NT or LM MD4 hash. */
 void SMBOWFencrypt(const uchar passwd[16], const uchar *c8, uchar p24[24])
 {
        uchar p21[21];
-       memset(p21,'\0',21);
+
+       ZERO_STRUCT(p21);
  
        memcpy(p21, passwd, 16);    
        E_P24(p21, c8, p24);
 }
 
 /* Does the des encryption from the FIRST 8 BYTES of the NT or LM MD4 hash. */
-void NTLMSSPOWFencrypt(uchar passwd[8], uchar *ntlmchalresp, uchar p24[24])
+void NTLMSSPOWFencrypt(const uchar passwd[8], const uchar *ntlmchalresp, uchar p24[24])
 {
        uchar p21[21];
  
@@ -162,7 +191,7 @@ void NTLMSSPOWFencrypt(uchar passwd[8], uchar *ntlmchalresp, uchar p24[24])
 #ifdef DEBUG_PASSWORD
        DEBUG(100,("NTLMSSPOWFencrypt: p21, c8, p24\n"));
        dump_data(100, (char *)p21, 21);
-       dump_data(100, (char *)ntlmchalresp, 8);
+       dump_data(100, (const char *)ntlmchalresp, 8);
        dump_data(100, (char *)p24, 24);
 #endif
 }
@@ -170,7 +199,7 @@ void NTLMSSPOWFencrypt(uchar passwd[8], uchar *ntlmchalresp, uchar p24[24])
 
 /* Does the NT MD4 hash then des encryption. */
  
-void SMBNTencrypt(uchar *passwd, uchar *c8, uchar *p24)
+void SMBNTencrypt(const char *passwd, uchar *c8, uchar *p24)
 {
        uchar p21[21];
  
@@ -219,27 +248,27 @@ BOOL make_oem_passwd_hash(char data[516], const char *passwd, uchar old_pw_hash[
 
 /* Does the md5 encryption from the NT hash for NTLMv2. */
 void SMBOWFencrypt_ntv2(const uchar kr[16],
-                       const uchar * srv_chal, int srv_chal_len,
-                       const uchar * cli_chal, int cli_chal_len,
-                       char resp_buf[16])
+                       const DATA_BLOB srv_chal,
+                       const DATA_BLOB cli_chal,
+                       uchar resp_buf[16])
 {
        HMACMD5Context ctx;
 
        hmac_md5_init_limK_to_64(kr, 16, &ctx);
-       hmac_md5_update(srv_chal, srv_chal_len, &ctx);
-       hmac_md5_update(cli_chal, cli_chal_len, &ctx);
-       hmac_md5_final((unsigned char *)resp_buf, &ctx);
+       hmac_md5_update(srv_chal.data, srv_chal.length, &ctx);
+       hmac_md5_update(cli_chal.data, cli_chal.length, &ctx);
+       hmac_md5_final(resp_buf, &ctx);
 
 #ifdef DEBUG_PASSWORD
        DEBUG(100, ("SMBOWFencrypt_ntv2: srv_chal, cli_chal, resp_buf\n"));
-       dump_data(100, srv_chal, srv_chal_len);
-       dump_data(100, cli_chal, cli_chal_len);
+       dump_data(100, srv_chal.data, srv_chal.length);
+       dump_data(100, cli_chal.data, cli_chal.length);
        dump_data(100, resp_buf, 16);
 #endif
 }
 
 void SMBsesskeygen_ntv2(const uchar kr[16],
-                       const uchar * nt_resp, char sess_key[16])
+                       const uchar * nt_resp, uint8 sess_key[16])
 {
        HMACMD5Context ctx;
 
@@ -254,7 +283,7 @@ void SMBsesskeygen_ntv2(const uchar kr[16],
 }
 
 void SMBsesskeygen_ntv1(const uchar kr[16],
-                       const uchar * nt_resp, char sess_key[16])
+                       const uchar * nt_resp, uint8 sess_key[16])
 {
        mdfour((unsigned char *)sess_key, kr, 16);
 
@@ -265,27 +294,20 @@ void SMBsesskeygen_ntv1(const uchar kr[16],
 }
 
 /***********************************************************
- encode a password buffer
+ encode a password buffer.  The caller gets to figure out 
+ what to put in it.
 ************************************************************/
-BOOL encode_pw_buffer(char buffer[516], const char *new_pass,
-                     int new_pw_len, BOOL nt_pass_set)
+BOOL encode_pw_buffer(char buffer[516], char *new_pw, int new_pw_length)
 {
        generate_random_buffer((unsigned char *)buffer, 516, True);
 
-       if (nt_pass_set) {
-               new_pw_len *= 2;
-               push_ucs2(NULL, &buffer[512 - new_pw_len], new_pass,
-                         new_pw_len, 0);
-       } else {
-               push_ascii(&buffer[512 - new_pw_len], new_pass,
-                          new_pw_len, 0);
-       }
+       memcpy(&buffer[512 - new_pw_length], new_pw, new_pw_length);
 
        /* 
         * The length of the new password is in the last 4 bytes of
         * the data buffer.
         */
-       SIVAL(buffer, 512, new_pw_len);
+       SIVAL(buffer, 512, new_pw_length);
 
        return True;
 }
@@ -333,22 +355,64 @@ BOOL decode_pw_buffer(char in_buffer[516], char *new_pwrd,
 #endif
        
        return True;
+}
+
+/***********************************************************
+ SMB signing - setup the MAC key.
+************************************************************/
 
+void cli_calculate_mac_key(struct cli_state *cli, const char *ntpasswd, const uchar resp[24])
+{
+       /* Get first 16 bytes. */
+       E_md4hash(ntpasswd,&cli->sign_info.mac_key[0]);
+       memcpy(&cli->sign_info.mac_key[16],resp,24);
+       cli->sign_info.mac_key_len = 40;
+       cli->sign_info.use_smb_signing = True;
+
+       /* These calls are INCONPATIBLE with SMB signing */
+       cli->readbraw_supported = False;
+       cli->writebraw_supported = False;    
+
+       /* Reset the sequence number in case we had a previous (aborted) attempt */
+       cli->sign_info.send_seq_num = 0;
 }
 
-/* Calculate the NT owfs of a user's password */
-void nt_owf_genW(const UNISTR2 *pwd, uchar nt_p16[16])
+/***********************************************************
+ SMB signing - calculate a MAC to send.
+************************************************************/
+
+void cli_caclulate_sign_mac(struct cli_state *cli)
 {
-       char buf[512];
-       int i;
+       unsigned char calc_md5_mac[16];
+       struct MD5Context md5_ctx;
 
-       for (i = 0; i < MIN(pwd->uni_str_len, sizeof(buf) / 2); i++)
-       {
-               SIVAL(buf, i * 2, pwd->buffer[i]);
+       if (cli->sign_info.temp_smb_signing) {
+               memcpy(&cli->outbuf[smb_ss_field], "SignRequest", 8);
+               cli->sign_info.temp_smb_signing = False;
+               return;
+       }
+
+       if (!cli->sign_info.use_smb_signing) {
+               return;
        }
-       /* Calculate the MD4 hash (NT compatible) of the password */
-       mdfour(nt_p16, (const unsigned char *)buf, pwd->uni_str_len * 2);
 
-       /* clear out local copy of user's password (just being paranoid). */
-       ZERO_STRUCT(buf);
+       /*
+        * Firstly put the sequence number into the first 4 bytes.
+        * and zero out the next 4 bytes.
+        */
+       SIVAL(cli->outbuf, smb_ss_field, cli->sign_info.send_seq_num);
+       SIVAL(cli->outbuf, smb_ss_field + 4, 0);
+
+       /* Calculate the 16 byte MAC and place first 8 bytes into the field. */
+       MD5Init(&md5_ctx);
+       MD5Update(&md5_ctx, cli->sign_info.mac_key, cli->sign_info.mac_key_len);
+       MD5Update(&md5_ctx, cli->outbuf + 4, smb_len(cli->outbuf));
+       MD5Final(calc_md5_mac, &md5_ctx);
+
+       memcpy(&cli->outbuf[smb_ss_field], calc_md5_mac, 8);
+/*     cli->outbuf[smb_ss_field+2]=0; 
+       Uncomment this to test if the remote server actually verifies signitures...*/
+       cli->sign_info.send_seq_num++;
+       cli->sign_info.reply_seq_num = cli->sign_info.send_seq_num;
+       cli->sign_info.send_seq_num++;
 }