/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */
#include "crypto_int.h"
#include "k5-utf8.h"

krb5_error_code
krb5int_arcfour_string_to_key(const struct krb5_keytypes *ktp,
                              const krb5_data *string, const krb5_data *salt,
                              const krb5_data *params, krb5_keyblock *key)
{
    krb5_error_code err = 0;
    krb5_crypto_iov iov;
    krb5_data hash_out;
    unsigned char *copystr;
    size_t copystrlen;

    if (params != NULL)
        return KRB5_ERR_BAD_S2K_PARAMS;

    if (key->length != 16)
        return (KRB5_BAD_MSIZE);

    /* We ignore salt per the Microsoft spec. */
    err = krb5int_utf8cs_to_ucs2les(string->data, string->length, &copystr,
                                    &copystrlen);
    if (err)
        return err;

    /* the actual MD4 hash of the data */
    iov.flags = KRB5_CRYPTO_TYPE_DATA;
    iov.data = make_data(copystr, copystrlen);
    hash_out = make_data(key->contents, key->length);
    err = krb5int_hash_md4.hash(&iov, 1, &hash_out);

    /* Zero out the data behind us */
    zapfree(copystr, copystrlen);
    return err;
}
