]>
git.ipfire.org Git - thirdparty/openssl.git/blob - crypto/des/cbc_cksm.c
2 * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
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
12 DES_LONG
DES_cbc_cksum(const unsigned char *in
, DES_cblock
*output
,
13 long length
, DES_key_schedule
*schedule
,
14 const_DES_cblock
*ivec
)
16 register DES_LONG tout0
, tout1
, tin0
, tin1
;
17 register long l
= length
;
19 unsigned char *out
= &(*output
)[0];
20 const unsigned char *iv
= &(*ivec
)[0];
24 for (; l
> 0; l
-= 8) {
29 c2ln(in
, tin0
, tin1
, l
);
35 DES_encrypt1((DES_LONG
*)tin
, schedule
, DES_ENCRYPT
);
43 tout0
= tin0
= tin1
= tin
[0] = tin
[1] = 0;
45 * Transform the data in tout1 so that it will match the return value
46 * that the MIT Kerberos mit_des_cbc_cksum API returns.
48 tout1
= ((tout1
>> 24L) & 0x000000FF)
49 | ((tout1
>> 8L) & 0x0000FF00)
50 | ((tout1
<< 8L) & 0x00FF0000)
51 | ((tout1
<< 24L) & 0xFF000000);