]>
Commit | Line | Data |
---|---|---|
aa6bb135 RS |
1 | /* |
2 | * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved. | |
0f113f3e | 3 | * |
aa6bb135 RS |
4 | * Licensed under the OpenSSL license (the "License"). You may not use |
5 | * this file except in compliance with the License. You can obtain a copy | |
6 | * in the file LICENSE in the source distribution or at | |
7 | * https://www.openssl.org/source/license.html | |
58964a49 RE |
8 | */ |
9 | ||
10 | #include <stdio.h> | |
11 | #include <stdlib.h> | |
12 | #include <string.h> | |
ec577822 BM |
13 | #include <openssl/md2.h> |
14 | #include <openssl/opensslv.h> | |
7a1f92fd | 15 | #include <openssl/crypto.h> |
58964a49 | 16 | |
0f113f3e MC |
17 | /* |
18 | * Implemented from RFC1319 The MD2 Message-Digest Algorithm | |
58964a49 RE |
19 | */ |
20 | ||
0f113f3e | 21 | #define UCHAR unsigned char |
58964a49 | 22 | |
657e60fa | 23 | static void md2_block(MD2_CTX *c, const unsigned char *d); |
0f113f3e MC |
24 | /* |
25 | * The magic S table - I have converted it to hex since it is basically just | |
26 | * a random byte string. | |
27 | */ | |
28 | static const MD2_INT S[256] = { | |
29 | 0x29, 0x2E, 0x43, 0xC9, 0xA2, 0xD8, 0x7C, 0x01, | |
30 | 0x3D, 0x36, 0x54, 0xA1, 0xEC, 0xF0, 0x06, 0x13, | |
31 | 0x62, 0xA7, 0x05, 0xF3, 0xC0, 0xC7, 0x73, 0x8C, | |
32 | 0x98, 0x93, 0x2B, 0xD9, 0xBC, 0x4C, 0x82, 0xCA, | |
33 | 0x1E, 0x9B, 0x57, 0x3C, 0xFD, 0xD4, 0xE0, 0x16, | |
34 | 0x67, 0x42, 0x6F, 0x18, 0x8A, 0x17, 0xE5, 0x12, | |
35 | 0xBE, 0x4E, 0xC4, 0xD6, 0xDA, 0x9E, 0xDE, 0x49, | |
36 | 0xA0, 0xFB, 0xF5, 0x8E, 0xBB, 0x2F, 0xEE, 0x7A, | |
37 | 0xA9, 0x68, 0x79, 0x91, 0x15, 0xB2, 0x07, 0x3F, | |
38 | 0x94, 0xC2, 0x10, 0x89, 0x0B, 0x22, 0x5F, 0x21, | |
39 | 0x80, 0x7F, 0x5D, 0x9A, 0x5A, 0x90, 0x32, 0x27, | |
40 | 0x35, 0x3E, 0xCC, 0xE7, 0xBF, 0xF7, 0x97, 0x03, | |
41 | 0xFF, 0x19, 0x30, 0xB3, 0x48, 0xA5, 0xB5, 0xD1, | |
42 | 0xD7, 0x5E, 0x92, 0x2A, 0xAC, 0x56, 0xAA, 0xC6, | |
43 | 0x4F, 0xB8, 0x38, 0xD2, 0x96, 0xA4, 0x7D, 0xB6, | |
44 | 0x76, 0xFC, 0x6B, 0xE2, 0x9C, 0x74, 0x04, 0xF1, | |
45 | 0x45, 0x9D, 0x70, 0x59, 0x64, 0x71, 0x87, 0x20, | |
46 | 0x86, 0x5B, 0xCF, 0x65, 0xE6, 0x2D, 0xA8, 0x02, | |
47 | 0x1B, 0x60, 0x25, 0xAD, 0xAE, 0xB0, 0xB9, 0xF6, | |
48 | 0x1C, 0x46, 0x61, 0x69, 0x34, 0x40, 0x7E, 0x0F, | |
49 | 0x55, 0x47, 0xA3, 0x23, 0xDD, 0x51, 0xAF, 0x3A, | |
50 | 0xC3, 0x5C, 0xF9, 0xCE, 0xBA, 0xC5, 0xEA, 0x26, | |
51 | 0x2C, 0x53, 0x0D, 0x6E, 0x85, 0x28, 0x84, 0x09, | |
52 | 0xD3, 0xDF, 0xCD, 0xF4, 0x41, 0x81, 0x4D, 0x52, | |
53 | 0x6A, 0xDC, 0x37, 0xC8, 0x6C, 0xC1, 0xAB, 0xFA, | |
54 | 0x24, 0xE1, 0x7B, 0x08, 0x0C, 0xBD, 0xB1, 0x4A, | |
55 | 0x78, 0x88, 0x95, 0x8B, 0xE3, 0x63, 0xE8, 0x6D, | |
56 | 0xE9, 0xCB, 0xD5, 0xFE, 0x3B, 0x00, 0x1D, 0x39, | |
57 | 0xF2, 0xEF, 0xB7, 0x0E, 0x66, 0x58, 0xD0, 0xE4, | |
58 | 0xA6, 0x77, 0x72, 0xF8, 0xEB, 0x75, 0x4B, 0x0A, | |
59 | 0x31, 0x44, 0x50, 0xB4, 0x8F, 0xED, 0x1F, 0x1A, | |
60 | 0xDB, 0x99, 0x8D, 0x33, 0x9F, 0x11, 0x83, 0x14, | |
61 | }; | |
58964a49 | 62 | |
6b691a5c | 63 | const char *MD2_options(void) |
0f113f3e MC |
64 | { |
65 | if (sizeof(MD2_INT) == 1) | |
66 | return ("md2(char)"); | |
67 | else | |
68 | return ("md2(int)"); | |
69 | } | |
58964a49 | 70 | |
2dc769a1 | 71 | int MD2_Init(MD2_CTX *c) |
0f113f3e MC |
72 | { |
73 | c->num = 0; | |
16f8d4eb RS |
74 | memset(c->state, 0, sizeof(c->state)); |
75 | memset(c->cksm, 0, sizeof(c->cksm)); | |
76 | memset(c->data, 0, sizeof(c->data)); | |
0f113f3e MC |
77 | return 1; |
78 | } | |
58964a49 | 79 | |
9e0aad9f | 80 | int MD2_Update(MD2_CTX *c, const unsigned char *data, size_t len) |
0f113f3e MC |
81 | { |
82 | register UCHAR *p; | |
83 | ||
84 | if (len == 0) | |
85 | return 1; | |
86 | ||
87 | p = c->data; | |
88 | if (c->num != 0) { | |
89 | if ((c->num + len) >= MD2_BLOCK) { | |
90 | memcpy(&(p[c->num]), data, MD2_BLOCK - c->num); | |
91 | md2_block(c, c->data); | |
92 | data += (MD2_BLOCK - c->num); | |
93 | len -= (MD2_BLOCK - c->num); | |
94 | c->num = 0; | |
95 | /* drop through and do the rest */ | |
96 | } else { | |
97 | memcpy(&(p[c->num]), data, len); | |
98 | /* data+=len; */ | |
99 | c->num += (int)len; | |
100 | return 1; | |
101 | } | |
102 | } | |
103 | /* | |
104 | * we now can process the input data in blocks of MD2_BLOCK chars and | |
105 | * save the leftovers to c->data. | |
106 | */ | |
107 | while (len >= MD2_BLOCK) { | |
108 | md2_block(c, data); | |
109 | data += MD2_BLOCK; | |
110 | len -= MD2_BLOCK; | |
111 | } | |
112 | memcpy(p, data, len); | |
113 | c->num = (int)len; | |
114 | return 1; | |
115 | } | |
58964a49 | 116 | |
657e60fa | 117 | static void md2_block(MD2_CTX *c, const unsigned char *d) |
0f113f3e MC |
118 | { |
119 | register MD2_INT t, *sp1, *sp2; | |
120 | register int i, j; | |
121 | MD2_INT state[48]; | |
122 | ||
123 | sp1 = c->state; | |
124 | sp2 = c->cksm; | |
125 | j = sp2[MD2_BLOCK - 1]; | |
126 | for (i = 0; i < 16; i++) { | |
127 | state[i] = sp1[i]; | |
128 | state[i + 16] = t = d[i]; | |
129 | state[i + 32] = (t ^ sp1[i]); | |
130 | j = sp2[i] ^= S[t ^ j]; | |
131 | } | |
132 | t = 0; | |
133 | for (i = 0; i < 18; i++) { | |
134 | for (j = 0; j < 48; j += 8) { | |
135 | t = state[j + 0] ^= S[t]; | |
136 | t = state[j + 1] ^= S[t]; | |
137 | t = state[j + 2] ^= S[t]; | |
138 | t = state[j + 3] ^= S[t]; | |
139 | t = state[j + 4] ^= S[t]; | |
140 | t = state[j + 5] ^= S[t]; | |
141 | t = state[j + 6] ^= S[t]; | |
142 | t = state[j + 7] ^= S[t]; | |
143 | } | |
144 | t = (t + i) & 0xff; | |
145 | } | |
146 | memcpy(sp1, state, 16 * sizeof(MD2_INT)); | |
147 | OPENSSL_cleanse(state, 48 * sizeof(MD2_INT)); | |
148 | } | |
58964a49 | 149 | |
2dc769a1 | 150 | int MD2_Final(unsigned char *md, MD2_CTX *c) |
0f113f3e MC |
151 | { |
152 | int i, v; | |
153 | register UCHAR *cp; | |
154 | register MD2_INT *p1, *p2; | |
155 | ||
156 | cp = c->data; | |
157 | p1 = c->state; | |
158 | p2 = c->cksm; | |
159 | v = MD2_BLOCK - c->num; | |
160 | for (i = c->num; i < MD2_BLOCK; i++) | |
161 | cp[i] = (UCHAR) v; | |
162 | ||
163 | md2_block(c, cp); | |
164 | ||
165 | for (i = 0; i < MD2_BLOCK; i++) | |
166 | cp[i] = (UCHAR) p2[i]; | |
167 | md2_block(c, cp); | |
168 | ||
169 | for (i = 0; i < 16; i++) | |
170 | md[i] = (UCHAR) (p1[i] & 0xff); | |
16f8d4eb | 171 | memset(&c, 0, sizeof(c)); |
0f113f3e MC |
172 | return 1; |
173 | } |