| Index: third_party/usrsctp/overrides/usrsctplib/netinet/sctp_sha1.c
|
| ===================================================================
|
| --- third_party/usrsctp/overrides/usrsctplib/netinet/sctp_sha1.c (revision 0)
|
| +++ third_party/usrsctp/overrides/usrsctplib/netinet/sctp_sha1.c (revision 0)
|
| @@ -0,0 +1,268 @@
|
| +/*-
|
| + * Copyright (c) 2001-2007, by Cisco Systems, Inc. All rights reserved.
|
| + * Copyright (c) 2008-2012, by Randall Stewart. All rights reserved.
|
| + * Copyright (c) 2008-2012, by Michael Tuexen. All rights reserved.
|
| + *
|
| + * Redistribution and use in source and binary forms, with or without
|
| + * modification, are permitted provided that the following conditions are met:
|
| + *
|
| + * a) Redistributions of source code must retain the above copyright notice,
|
| + * this list of conditions and the following disclaimer.
|
| + *
|
| + * b) Redistributions in binary form must reproduce the above copyright
|
| + * notice, this list of conditions and the following disclaimer in
|
| + * the documentation and/or other materials provided with the distribution.
|
| + *
|
| + * c) Neither the name of Cisco Systems, Inc. nor the names of its
|
| + * contributors may be used to endorse or promote products derived
|
| + * from this software without specific prior written permission.
|
| + *
|
| + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
| + * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
|
| + * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
| + * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
| + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
| + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
| + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
| + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
| + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
| + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
|
| + * THE POSSIBILITY OF SUCH DAMAGE.
|
| + */
|
| +
|
| +#ifdef __FreeBSD__
|
| +#include <sys/cdefs.h>
|
| +__FBSDID("$FreeBSD$");
|
| +#endif
|
| +
|
| +#include <netinet/sctp_sha1.h>
|
| +#if !defined(__Userspace_os_Windows)
|
| +#include <sys/param.h>
|
| +#if !defined(__Windows__)
|
| +#include <arpa/inet.h>
|
| +#endif
|
| +#else
|
| +#include <winsock2.h>
|
| +#endif
|
| +#if !defined(__Userspace__)
|
| +#include <sys/systm.h>
|
| +#endif
|
| +#include <string.h>
|
| +void
|
| +SCTP_SHA1_Init(struct sha1_context *ctx)
|
| +{
|
| + /* Init the SHA-1 context structure */
|
| + ctx->A = 0;
|
| + ctx->B = 0;
|
| + ctx->C = 0;
|
| + ctx->D = 0;
|
| + ctx->E = 0;
|
| + ctx->H0 = H0INIT;
|
| + ctx->H1 = H1INIT;
|
| + ctx->H2 = H2INIT;
|
| + ctx->H3 = H3INIT;
|
| + ctx->H4 = H4INIT;
|
| + ctx->TEMP = 0;
|
| + memset(ctx->words, 0, sizeof(ctx->words));
|
| + ctx->how_many_in_block = 0;
|
| + ctx->running_total = 0;
|
| +}
|
| +
|
| +static void
|
| +sha1_process_a_block(struct sha1_context *ctx, unsigned int *block)
|
| +{
|
| + int i;
|
| +
|
| + /* init the W0-W15 to the block of words being hashed. */
|
| + /* step a) */
|
| + for (i = 0; i < 16; i++) {
|
| + ctx->words[i] = ntohl(block[i]);
|
| + }
|
| + /* now init the rest based on the SHA-1 formula, step b) */
|
| + for (i = 16; i < 80; i++) {
|
| + ctx->words[i] = CSHIFT(1, ((ctx->words[(i - 3)]) ^
|
| + (ctx->words[(i - 8)]) ^
|
| + (ctx->words[(i - 14)]) ^
|
| + (ctx->words[(i - 16)])));
|
| + }
|
| + /* step c) */
|
| + ctx->A = ctx->H0;
|
| + ctx->B = ctx->H1;
|
| + ctx->C = ctx->H2;
|
| + ctx->D = ctx->H3;
|
| + ctx->E = ctx->H4;
|
| +
|
| + /* step d) */
|
| + for (i = 0; i < 80; i++) {
|
| + if (i < 20) {
|
| + ctx->TEMP = ((CSHIFT(5, ctx->A)) +
|
| + (F1(ctx->B, ctx->C, ctx->D)) +
|
| + (ctx->E) +
|
| + ctx->words[i] +
|
| + K1);
|
| + } else if (i < 40) {
|
| + ctx->TEMP = ((CSHIFT(5, ctx->A)) +
|
| + (F2(ctx->B, ctx->C, ctx->D)) +
|
| + (ctx->E) +
|
| + (ctx->words[i]) +
|
| + K2);
|
| + } else if (i < 60) {
|
| + ctx->TEMP = ((CSHIFT(5, ctx->A)) +
|
| + (F3(ctx->B, ctx->C, ctx->D)) +
|
| + (ctx->E) +
|
| + (ctx->words[i]) +
|
| + K3);
|
| + } else {
|
| + ctx->TEMP = ((CSHIFT(5, ctx->A)) +
|
| + (F4(ctx->B, ctx->C, ctx->D)) +
|
| + (ctx->E) +
|
| + (ctx->words[i]) +
|
| + K4);
|
| + }
|
| + ctx->E = ctx->D;
|
| + ctx->D = ctx->C;
|
| + ctx->C = CSHIFT(30, ctx->B);
|
| + ctx->B = ctx->A;
|
| + ctx->A = ctx->TEMP;
|
| + }
|
| + /* step e) */
|
| + ctx->H0 = (ctx->H0) + (ctx->A);
|
| + ctx->H1 = (ctx->H1) + (ctx->B);
|
| + ctx->H2 = (ctx->H2) + (ctx->C);
|
| + ctx->H3 = (ctx->H3) + (ctx->D);
|
| + ctx->H4 = (ctx->H4) + (ctx->E);
|
| +}
|
| +
|
| +
|
| +void
|
| +SCTP_SHA1_Update(struct sha1_context *ctx, const unsigned char *ptr, int siz)
|
| +{
|
| + int number_left, left_to_fill;
|
| +
|
| + number_left = siz;
|
| + while (number_left > 0) {
|
| + left_to_fill = sizeof(ctx->sha_block) - ctx->how_many_in_block;
|
| + if (left_to_fill > number_left) {
|
| + /* can only partially fill up this one */
|
| + memcpy(&ctx->sha_block[ctx->how_many_in_block],
|
| + ptr, number_left);
|
| + ctx->how_many_in_block += number_left;
|
| + ctx->running_total += number_left;
|
| + number_left = 0;
|
| + break;
|
| + } else {
|
| + /* block is now full, process it */
|
| + memcpy(&ctx->sha_block[ctx->how_many_in_block],
|
| + ptr, left_to_fill);
|
| + sha1_process_a_block(ctx,
|
| + (unsigned int *)ctx->sha_block);
|
| + number_left -= left_to_fill;
|
| + ctx->running_total += left_to_fill;
|
| + ctx->how_many_in_block = 0;
|
| + ptr = (const unsigned char *)(ptr + left_to_fill);
|
| + }
|
| + }
|
| +}
|
| +
|
| +void
|
| +SCTP_SHA1_Final(unsigned char *digest, struct sha1_context *ctx)
|
| +{
|
| + /*
|
| + * if any left in block fill with padding and process. Then transfer
|
| + * the digest to the pointer. At the last block some special rules
|
| + * need to apply. We must add a 1 bit following the message, then we
|
| + * pad with 0's. The total size is encoded as a 64 bit number at the
|
| + * end. Now if the last buffer has more than 55 octets in it we
|
| + * cannot fit the 64 bit number + 10000000 pad on the end and must
|
| + * add the 10000000 pad, pad the rest of the message with 0's and
|
| + * then create an all 0 message with just the 64 bit size at the end
|
| + * and run this block through by itself. Also the 64 bit int must
|
| + * be in network byte order.
|
| + */
|
| + int left_to_fill;
|
| + unsigned int i, *ptr;
|
| +
|
| + if (ctx->how_many_in_block > 55) {
|
| + /*
|
| + * special case, we need to process two blocks here. One for
|
| + * the current stuff plus possibly the pad. The other for
|
| + * the size.
|
| + */
|
| + left_to_fill = sizeof(ctx->sha_block) - ctx->how_many_in_block;
|
| + if (left_to_fill == 0) {
|
| + /* Should not really happen but I am paranoid */
|
| + sha1_process_a_block(ctx,
|
| + (unsigned int *)ctx->sha_block);
|
| + /* init last block, a bit different than the rest */
|
| + ctx->sha_block[0] = '\x80';
|
| + for (i = 1; i < sizeof(ctx->sha_block); i++) {
|
| + ctx->sha_block[i] = 0x0;
|
| + }
|
| + } else if (left_to_fill == 1) {
|
| + ctx->sha_block[ctx->how_many_in_block] = '\x80';
|
| + sha1_process_a_block(ctx,
|
| + (unsigned int *)ctx->sha_block);
|
| + /* init last block */
|
| + memset(ctx->sha_block, 0, sizeof(ctx->sha_block));
|
| + } else {
|
| + ctx->sha_block[ctx->how_many_in_block] = '\x80';
|
| + for (i = (ctx->how_many_in_block + 1);
|
| + i < sizeof(ctx->sha_block);
|
| + i++) {
|
| + ctx->sha_block[i] = 0x0;
|
| + }
|
| + sha1_process_a_block(ctx,
|
| + (unsigned int *)ctx->sha_block);
|
| + /* init last block */
|
| + memset(ctx->sha_block, 0, sizeof(ctx->sha_block));
|
| + }
|
| + /* This is in bits so multiply by 8 */
|
| + ctx->running_total *= 8;
|
| + ptr = (unsigned int *)&ctx->sha_block[60];
|
| + *ptr = htonl(ctx->running_total);
|
| + sha1_process_a_block(ctx, (unsigned int *)ctx->sha_block);
|
| + } else {
|
| + /*
|
| + * easy case, we just pad this message to size - end with 0
|
| + * add the magic 0x80 to the next word and then put the
|
| + * network byte order size in the last spot and process the
|
| + * block.
|
| + */
|
| + ctx->sha_block[ctx->how_many_in_block] = '\x80';
|
| + for (i = (ctx->how_many_in_block + 1);
|
| + i < sizeof(ctx->sha_block);
|
| + i++) {
|
| + ctx->sha_block[i] = 0x0;
|
| + }
|
| + /* get last int spot */
|
| + ctx->running_total *= 8;
|
| + ptr = (unsigned int *)&ctx->sha_block[60];
|
| + *ptr = htonl(ctx->running_total);
|
| + sha1_process_a_block(ctx, (unsigned int *)ctx->sha_block);
|
| + }
|
| + /* transfer the digest back to the user */
|
| + digest[3] = (ctx->H0 & 0xff);
|
| + digest[2] = ((ctx->H0 >> 8) & 0xff);
|
| + digest[1] = ((ctx->H0 >> 16) & 0xff);
|
| + digest[0] = ((ctx->H0 >> 24) & 0xff);
|
| +
|
| + digest[7] = (ctx->H1 & 0xff);
|
| + digest[6] = ((ctx->H1 >> 8) & 0xff);
|
| + digest[5] = ((ctx->H1 >> 16) & 0xff);
|
| + digest[4] = ((ctx->H1 >> 24) & 0xff);
|
| +
|
| + digest[11] = (ctx->H2 & 0xff);
|
| + digest[10] = ((ctx->H2 >> 8) & 0xff);
|
| + digest[9] = ((ctx->H2 >> 16) & 0xff);
|
| + digest[8] = ((ctx->H2 >> 24) & 0xff);
|
| +
|
| + digest[15] = (ctx->H3 & 0xff);
|
| + digest[14] = ((ctx->H3 >> 8) & 0xff);
|
| + digest[13] = ((ctx->H3 >> 16) & 0xff);
|
| + digest[12] = ((ctx->H3 >> 24) & 0xff);
|
| +
|
| + digest[19] = (ctx->H4 & 0xff);
|
| + digest[18] = ((ctx->H4 >> 8) & 0xff);
|
| + digest[17] = ((ctx->H4 >> 16) & 0xff);
|
| + digest[16] = ((ctx->H4 >> 24) & 0xff);
|
| +}
|
|
|
| Property changes on: third_party/usrsctp/overrides/usrsctplib/netinet/sctp_sha1.c
|
| ___________________________________________________________________
|
| Added: svn:eol-style
|
| + LF
|
| Added: svn:executable
|
| + *
|
|
|
|
|