auth.c

/*
  Copyright 2009-2010, jimmikaelkael
  Licenced under Academic Free License version 3.0
*/
#include "types.h"
#include "defs.h"
#include "irx.h"
#include "stdio.h"
#include "sysclib.h"
 
#include "des.h"
#include "md4.h"
 
static u8 passwd_buf[512] __attribute__((aligned(16)));
 
/*
 * LM_Password_Hash: this function create a LM password hash from a given password
 */
unsigned char *LM_Password_Hash(const unsigned char *password, unsigned char *cipher)
{
    unsigned char tmp_pass[14] = {"\0\0\0\0\0\0\0\0\0\0\0\0\0\0"};
    unsigned char K1[7];
    unsigned char K2[7];
    int i;
 
    /* keep only 14 bytes of the password (padded with nul bytes) */
    strncpy((char *)tmp_pass, (const char *)password, 14);
 
    /* turn the password to uppercase */
    for (i = 0; i < 14; i++) {
        tmp_pass[i] = toupper(tmp_pass[i]);
    }
 
    /* get 2 7bytes keys from password */
    memcpy(K1, &tmp_pass[0], 7);
    memcpy(K2, &tmp_pass[7], 7);
 
    /* encrypt the magic string with the keys */
    DES(K1, (const unsigned char *)"KGS!@#$%", &cipher[0]);
    DES(K2, (const unsigned char *)"KGS!@#$%", &cipher[8]);
 
    return cipher;
}
 
/*
 * NTLM_Password_Hash: this function create a NTLM password hash from a given password
 */
unsigned char *NTLM_Password_Hash(const unsigned char *password, unsigned char *cipher)
{
    int i, j;
 
    memset(passwd_buf, 0, sizeof(passwd_buf));
 
    /* turn the password to unicode */
    for (i = 0, j = 0; (unsigned int)i < strlen((const char *)password); i++, j += 2)
        passwd_buf[j] = password[i];
 
    /* get the message digest */
    MD4(passwd_buf, j, cipher);
 
    return (unsigned char *)cipher;
}
 
/*
 * LM_Response: this function create a LM response from a given LM hash & challenge
 */
unsigned char *LM_Response(const unsigned char *LMpasswordhash, unsigned char *chal, unsigned char *cipher)
{
    unsigned char P21[21];
    unsigned char K[7];
    int i;
 
    /* padd the LM password hash with 5 nul bytes */
    memcpy(&P21[0], LMpasswordhash, 16);
    memset(&P21[16], 0, 5);
 
    /* encrypt the challenge 3 times, using 7 bytes splitted keys */
    for (i = 0; i < 3; i++) {
 
        /* get the 7bytes key */
        memcpy(K, &P21[i * 7], 7);
 
        /* encrypt each the challenge with the keys */
        DES(K, chal, &cipher[i * 8]);
    }
 
    return (unsigned char *)cipher;
}