home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / samba.idb / usr / samba / src / source / smbencrypt.c.z / smbencrypt.c
Encoding:
C/C++ Source or Header  |  1998-10-28  |  3.1 KB  |  136 lines
  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.   E_P24(p21, c8, p24);
  44. }
  45.  
  46. /* Routines for Windows NT MD4 Hash functions. */
  47. static int _my_wcslen(int16 *str)
  48. {
  49.     int len = 0;
  50.     while(*str++ != 0)
  51.         len++;
  52.     return len;
  53. }
  54.  
  55. /*
  56.  * Convert a string into an NT UNICODE string.
  57.  * Note that regardless of processor type 
  58.  * this must be in intel (little-endian)
  59.  * format.
  60.  */
  61.  
  62. static int _my_mbstowcs(int16 *dst, uchar *src, int len)
  63. {
  64.     int i;
  65.     int16 val;
  66.  
  67.     for(i = 0; i < len; i++) {
  68.         val = *src;
  69.         SSVAL(dst,0,val);
  70.         dst++;
  71.         src++;
  72.         if(val == 0)
  73.             break;
  74.     }
  75.     return i;
  76. }
  77.  
  78. /* 
  79.  * Creates the MD4 Hash of the users password in NT UNICODE.
  80.  */
  81.  
  82. void E_md4hash(uchar *passwd, uchar *p16)
  83. {
  84.     int len;
  85.     int16 wpwd[129];
  86.     
  87.     /* Password cannot be longer than 128 characters */
  88.     len = strlen((char *)passwd);
  89.     if(len > 128)
  90.         len = 128;
  91.     /* Password must be converted to NT unicode */
  92.     _my_mbstowcs(wpwd, passwd, len);
  93.     wpwd[len] = 0; /* Ensure string is null terminated */
  94.     /* Calculate length in bytes */
  95.     len = _my_wcslen(wpwd) * sizeof(int16);
  96.  
  97.     mdfour(p16, (unsigned char *)wpwd, len);
  98. }
  99.  
  100. /* Does the NT MD4 hash then des encryption. */
  101.  
  102. void SMBNTencrypt(uchar *passwd, uchar *c8, uchar *p24)
  103. {
  104.     uchar p21[21];
  105.  
  106.     memset(p21,'\0',21);
  107.  
  108.     E_md4hash(passwd, p21);    
  109.     E_P24(p21, c8, p24);
  110. }
  111.  
  112. /* Does both the NT and LM owfs of a user's password */
  113.  
  114. void nt_lm_owf_gen(char *pwd, char *nt_p16, char *p16)
  115. {
  116.     char passwd[130];
  117.     StrnCpy(passwd, pwd, sizeof(passwd)-1);
  118.  
  119.     /* Calculate the MD4 hash (NT compatible) of the password */
  120.     memset(nt_p16, '\0', 16);
  121.     E_md4hash((uchar *)passwd, (uchar *)nt_p16);
  122.  
  123.     /* Mangle the passwords into Lanman format */
  124.     passwd[14] = '\0';
  125.     strupper(passwd);
  126.  
  127.     /* Calculate the SMB (lanman) hash functions of the password */
  128.  
  129.     memset(p16, '\0', 16);
  130.     E_P16((uchar *) passwd, (uchar *)p16);
  131.  
  132.     /* clear out local copy of user's password (just being paranoid). */
  133.     bzero(passwd, sizeof(passwd));
  134. }
  135.  
  136.