1 /* 2 * Copyright 1995-2020 The OpenSSL Project Authors. All Rights Reserved. 3 * 4 * Licensed under the Apache License 2.0 (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 8 */ 9 10 /* 11 * DES low level APIs are deprecated for public use, but still ok for internal 12 * use. 13 */ 14 #include "internal/deprecated.h" 15 16 #include "des_local.h" 17 18 DES_LONG DES_cbc_cksum(const unsigned char *in, DES_cblock *output, 19 long length, DES_key_schedule *schedule, 20 const_DES_cblock *ivec) 21 { 22 register DES_LONG tout0, tout1, tin0, tin1; 23 register long l = length; 24 DES_LONG tin[2]; 25 unsigned char *out = &(*output)[0]; 26 const unsigned char *iv = &(*ivec)[0]; 27 28 c2l(iv, tout0); 29 c2l(iv, tout1); 30 for (; l > 0; l -= 8) { 31 if (l >= 8) { 32 c2l(in, tin0); 33 c2l(in, tin1); 34 } else 35 c2ln(in, tin0, tin1, l); 36 37 tin0 ^= tout0; 38 tin[0] = tin0; 39 tin1 ^= tout1; 40 tin[1] = tin1; 41 DES_encrypt1((DES_LONG *)tin, schedule, DES_ENCRYPT); 42 tout0 = tin[0]; 43 tout1 = tin[1]; 44 } 45 if (out != NULL) { 46 l2c(tout0, out); 47 l2c(tout1, out); 48 } 49 tout0 = tin0 = tin1 = tin[0] = tin[1] = 0; 50 /* 51 * Transform the data in tout1 so that it will match the return value 52 * that the MIT Kerberos mit_des_cbc_cksum API returns. 53 */ 54 tout1 = ((tout1 >> 24L) & 0x000000FF) 55 | ((tout1 >> 8L) & 0x0000FF00) 56 | ((tout1 << 8L) & 0x00FF0000) 57 | ((tout1 << 24L) & 0xFF000000); 58 return tout1; 59 } 60