/src/samba/third_party/heimdal/lib/krb5/salt-arcfour.c
Line | Count | Source |
1 | | /* |
2 | | * Copyright (c) 1997 - 2008 Kungliga Tekniska Högskolan |
3 | | * (Royal Institute of Technology, Stockholm, Sweden). |
4 | | * All rights reserved. |
5 | | * |
6 | | * Redistribution and use in source and binary forms, with or without |
7 | | * modification, are permitted provided that the following conditions |
8 | | * are met: |
9 | | * |
10 | | * 1. Redistributions of source code must retain the above copyright |
11 | | * notice, this list of conditions and the following disclaimer. |
12 | | * |
13 | | * 2. Redistributions in binary form must reproduce the above copyright |
14 | | * notice, this list of conditions and the following disclaimer in the |
15 | | * documentation and/or other materials provided with the distribution. |
16 | | * |
17 | | * 3. Neither the name of the Institute nor the names of its contributors |
18 | | * may be used to endorse or promote products derived from this software |
19 | | * without specific prior written permission. |
20 | | * |
21 | | * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND |
22 | | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
23 | | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
24 | | * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE |
25 | | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
26 | | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
27 | | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
28 | | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
29 | | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
30 | | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
31 | | * SUCH DAMAGE. |
32 | | */ |
33 | | |
34 | | #include "krb5_locl.h" |
35 | | |
36 | | static krb5_error_code |
37 | | ARCFOUR_string_to_key(krb5_context context, |
38 | | krb5_enctype enctype, |
39 | | krb5_data password, |
40 | | krb5_salt salt, |
41 | | krb5_data opaque, |
42 | | krb5_keyblock *key) |
43 | 0 | { |
44 | 0 | krb5_error_code ret; |
45 | 0 | uint16_t *s = NULL; |
46 | 0 | size_t len = 0, i; |
47 | 0 | EVP_MD_CTX *m; |
48 | |
|
49 | 0 | m = EVP_MD_CTX_create(); |
50 | 0 | if (m == NULL) |
51 | 0 | return krb5_enomem(context); |
52 | | |
53 | 0 | EVP_DigestInit_ex(m, EVP_md4(), NULL); |
54 | |
|
55 | 0 | ret = wind_utf8ucs2_length(password.data, &len); |
56 | 0 | if (ret) { |
57 | 0 | krb5_set_error_message (context, ret, |
58 | 0 | N_("Password is not valid UTF-8", "")); |
59 | 0 | goto out; |
60 | 0 | } |
61 | | |
62 | 0 | s = malloc (len * sizeof(s[0])); |
63 | 0 | if (len != 0 && s == NULL) { |
64 | 0 | ret = krb5_enomem(context); |
65 | 0 | goto out; |
66 | 0 | } |
67 | | |
68 | 0 | ret = wind_utf8ucs2(password.data, s, &len); |
69 | 0 | if (ret) { |
70 | 0 | krb5_set_error_message (context, ret, |
71 | 0 | N_("Password is not valid UTF-8", "")); |
72 | 0 | goto out; |
73 | 0 | } |
74 | | |
75 | | /* LE encoding */ |
76 | 0 | for (i = 0; i < len; i++) { |
77 | 0 | unsigned char p; |
78 | 0 | p = (s[i] & 0xff); |
79 | 0 | EVP_DigestUpdate (m, &p, 1); |
80 | 0 | p = (s[i] >> 8) & 0xff; |
81 | 0 | EVP_DigestUpdate (m, &p, 1); |
82 | 0 | } |
83 | |
|
84 | 0 | key->keytype = enctype; |
85 | 0 | ret = krb5_data_alloc (&key->keyvalue, 16); |
86 | 0 | if (ret) { |
87 | 0 | krb5_enomem(context); |
88 | 0 | goto out; |
89 | 0 | } |
90 | 0 | EVP_DigestFinal_ex (m, key->keyvalue.data, NULL); |
91 | |
|
92 | 0 | out: |
93 | 0 | EVP_MD_CTX_destroy(m); |
94 | 0 | if (s) |
95 | 0 | memset (s, 0, len); |
96 | 0 | free (s); |
97 | 0 | return ret; |
98 | 0 | } |
99 | | |
100 | | struct salt_type _krb5_arcfour_salt[] = { |
101 | | { |
102 | | KRB5_PW_SALT, |
103 | | "pw-salt", |
104 | | ARCFOUR_string_to_key |
105 | | }, |
106 | | { 0, NULL, NULL } |
107 | | }; |