]>
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 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
11 * DES low level APIs are deprecated for public use, but still ok for internal
14 #include "internal/deprecated.h"
16 #include "des_local.h"
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
)
22 register DES_LONG tout0
, tout1
, tin0
, tin1
;
23 register long l
= length
;
25 unsigned char *out
= &(*output
)[0];
26 const unsigned char *iv
= &(*ivec
)[0];
30 for (; l
> 0; l
-= 8) {
35 c2ln(in
, tin0
, tin1
, l
);
41 DES_encrypt1((DES_LONG
*)tin
, schedule
, DES_ENCRYPT
);
49 tout0
= tin0
= tin1
= tin
[0] = tin
[1] = 0;
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.
54 tout1
= ((tout1
>> 24L) & 0x000000FF)
55 | ((tout1
>> 8L) & 0x0000FF00)
56 | ((tout1
<< 8L) & 0x00FF0000)
57 | ((tout1
<< 24L) & 0xFF000000);