2
0

cbc_cksm.c 1.7 KB

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