From ddf5c42f67757000d6ec7686b92a667c2a252dca Mon Sep 17 00:00:00 2001 From: unknown Date: Fri, 23 Oct 2009 04:29:39 +0000 Subject: Imported from iksemel-1.3.tar.gz. --- src/md5.c | 189 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 189 insertions(+) create mode 100644 src/md5.c (limited to 'src/md5.c') diff --git a/src/md5.c b/src/md5.c new file mode 100644 index 0000000..11af2d8 --- /dev/null +++ b/src/md5.c @@ -0,0 +1,189 @@ +/* iksemel (XML parser for Jabber) +** Copyright (C) 2000-2003 Gurer Ozen +** This code is free software; you can redistribute it and/or +** modify it under the terms of GNU Lesser General Public License. +*/ + +#include "common.h" +#include "iksemel.h" + +#define GET_UINT32(n,b,i) { \ + (n) = ( (unsigned long int) (b)[(i) ] ) \ + | ( (unsigned long int) (b)[(i) + 1] << 8 ) \ + | ( (unsigned long int) (b)[(i) + 2] << 16 ) \ + | ( (unsigned long int) (b)[(i) + 3] << 24 ); \ +} + +#define PUT_UINT32(n,b,i) { \ + (b)[(i) ] = (unsigned char) ( (n) ); \ + (b)[(i) + 1] = (unsigned char) ( (n) >> 8 ); \ + (b)[(i) + 2] = (unsigned char) ( (n) >> 16 ); \ + (b)[(i) + 3] = (unsigned char) ( (n) >> 24 ); \ +} + +#define F(x,y,z) ((z) ^ ((x) & ((y) ^ (z)))) + +#define G(x,y,z) ((y) ^ ((z) & ((x) ^ (y)))) + +#define H(x,y,z) ((x) ^ (y) ^ (z)) + +#define I(x,y,z) ((y) ^ ((x) | ~(z))) + +#define S(x,n) (((x) << (n)) | (((x) & 0xFFFFFFFF) >> (32 - (n)))) + +#define P(r,i,f,k,s,t) { \ + r[i] += f(r[((i)+1)%4],r[((i)+2)%4],r[((i)+3)%4]) + X[k] + t; \ + r[i] = S(r[i],s) + r[((i)+1)%4]; \ +} + +struct iksmd5_struct { + unsigned long int total[2]; + unsigned long int state[4]; + unsigned char buffer[64]; + unsigned char blen; +}; + +static const unsigned long int T[] = + { 0xd76aa478, 0xe8c7b756, 0x242070db, 0xc1bdceee, + 0xf57c0faf, 0x4787c62a, 0xa8304613, 0xfd469501, + 0x698098d8, 0x8b44f7af, 0xffff5bb1, 0x895cd7be, + 0x6b901122, 0xfd987193, 0xa679438e, 0x49b40821, + 0xf61e2562, 0xc040b340, 0x265e5a51, 0xe9b6c7aa, + 0xd62f105d, 0x02441453, 0xd8a1e681, 0xe7d3fbc8, + 0x21e1cde6, 0xc33707d6, 0xf4d50d87, 0x455a14ed, + 0xa9e3e905, 0xfcefa3f8, 0x676f02d9, 0x8d2a4c8a, + 0xfffa3942, 0x8771f681, 0x6d9d6122, 0xfde5380c, + 0xa4beea44, 0x4bdecfa9, 0xf6bb4b60, 0xbebfbc70, + 0x289b7ec6, 0xeaa127fa, 0xd4ef3085, 0x04881d05, + 0xd9d4d039, 0xe6db99e5, 0x1fa27cf8, 0xc4ac5665, + 0xf4292244, 0x432aff97, 0xab9423a7, 0xfc93a039, + 0x655b59c3, 0x8f0ccc92, 0xffeff47d, 0x85845dd1, + 0x6fa87e4f, 0xfe2ce6e0, 0xa3014314, 0x4e0811a1, + 0xf7537e82, 0xbd3af235, 0x2ad7d2bb, 0xeb86d391 }; + +static void iks_md5_compute(iksmd5 *md5); + +void iks_md5_reset(iksmd5 *md5) +{ + memset(md5, 0, sizeof(iksmd5)); + md5->state[0] = 0x67452301; + md5->state[1] = 0xEFCDAB89; + md5->state[2] = 0x98BADCFE; + md5->state[3] = 0x10325476; +} + +iksmd5 *iks_md5_new(void) +{ + iksmd5 *md5 = malloc(sizeof(iksmd5)); + + if (!md5) + return NULL; + iks_md5_reset(md5); + return md5; +} + +void iks_md5_hash(iksmd5 *md5, const unsigned char *data, size_t slen, int finish) +{ + int i, j; + int len = slen; + + i = (64 - md5->blen); + j = (len < i) ? (len) : (i); + memcpy(md5->buffer + md5->blen, data, j); + md5->blen += j; + len -= j; + data += j; + while (len > 0) { + iks_md5_compute(md5); + md5->blen = 0; + md5->total[0] += 8*64; + md5->total[1] += (md5->total[0] < 8*64); + j = (len < 64) ? (len) : (64); + memcpy(md5->buffer, data, j); + md5->blen = j; + len -= j; + data += j; + } + if (finish) { + md5->total[0] += 8*md5->blen; + md5->total[1] += (md5->total[0] < 8*md5->blen); + md5->buffer[(md5->blen)++] = 0x80; + if (md5->blen > 56) { + while (md5->blen < 64) + md5->buffer[(md5->blen)++] = 0x00; + iks_md5_compute(md5); + md5->blen = 0; + } + while (md5->blen < 56) + md5->buffer[(md5->blen)++] = 0x00; + PUT_UINT32(md5->total[0], md5->buffer, 56); + PUT_UINT32(md5->total[1], md5->buffer, 60); + iks_md5_compute(md5); + } +} + +void iks_md5_delete(iksmd5 *md5) +{ + free(md5); +} + +void iks_md5_digest(iksmd5 *md5, unsigned char *digest) +{ + PUT_UINT32(md5->state[0], digest, 0); + PUT_UINT32(md5->state[1], digest, 4); + PUT_UINT32(md5->state[2], digest, 8); + PUT_UINT32(md5->state[3], digest, 12); +} + +void iks_md5_print(iksmd5 *md5, char *buf) +{ + int i; + unsigned char digest[16]; + + iks_md5_digest(md5, digest); + for (i = 0; i < 16; i++) { + sprintf (buf, "%02x", digest[i]); + buf += 2; + } +} + +void iks_md5(const char *data, char *buf) +{ + iksmd5 *md5 = iks_md5_new(); + + iks_md5_hash(md5, (const unsigned char*)data, strlen(data), 1); + iks_md5_print(md5, buf); + iks_md5_delete(md5); +} + +static void iks_md5_compute(iksmd5 *md5) +{ + unsigned long int X[16], R[4]; + unsigned char RS1[] = { 7, 12 ,17, 22 }; + unsigned char RS2[] = { 5, 9 ,14, 20 }; + unsigned char RS3[] = { 4, 11 ,16, 23 }; + unsigned char RS4[] = { 6, 10 ,15, 21 }; + int i, j, k, p; + + for (i = 0; i < 16; ++i) + GET_UINT32(X[i], md5->buffer, i*4); + + for (i = 0; i < 4; ++i) + R[i] = md5->state[i]; + + for (i = j = k = 0; i < 16; ++i, j = i%4, k = (k+3)%4) + P(R, k, F, i, RS1[j], T[i]); + + for (i = j = k = 0, p = 1; i < 16; ++i, j = i%4, k = (k+3)%4, p = (p+5)%16) + P(R, k, G, p, RS2[j], T[i+16]); + + for (i = j = k = 0, p = 5; i < 16; ++i, j = i%4, k = (k+3)%4, p = (p+3)%16) + P(R, k, H, p, RS3[j], T[i+32]); + + for (i = j = k = p = 0; i < 16; ++i, j = i%4, k = (k+3)%4, p = (p+7)%16) + P(R, k, I, p, RS4[j], T[i+48]); + + for (i = 0; i < 4; ++i) + md5->state[i] += R[i]; +} + -- cgit