lib/libsum/sum-lmd.c

	sum-lmd.c revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*          Copyright (c) 1996-2011 AT&T Intellectual Property          *
*                      and is licensed under the                       *
*                 Eclipse Public License, Version 1.0                  *
*                    by AT&T Intellectual Property                     *
*                                                                      *
*                A copy of the License is available at                 *
*          http://www.eclipse.org/org/documents/epl-v10.html           *
*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
*                                                                      *
*              Information and Software Systems Research               *
*                            AT&T Research                             *
*                           Florham Park NJ                            *
*                                                                      *
*                 Glenn Fowler <gsf@research.att.com>                  *
*                                                                      *
***********************************************************************/
#pragma prototyped

/*
 * sum(3) wrapper for solaris -lmd message digest library
 */

typedef void (*Lmd_init_f)(void*);
typedef void (*Lmd_update_f)(void*, const void*, size_t);
typedef void (*Lmd_final_f)(unsigned char*, void*);

#define _SUM_LMD_   \
    _SUM_PUBLIC_    \
    _SUM_PRIVATE_   \
    Lmd_init_f  initf; \
    Lmd_update_f    updatef; \
    Lmd_final_f finalf; \
    unsigned int    datasize; \
    unsigned char   total[64]; \
    unsigned char   data[64];

typedef struct Lmd_s
{
    _SUM_LMD_
    struct
    {
    uintmax_t   context;
    }       context;
} Lmd_t;

static int
lmd_init(Sum_t* p)
{
    Lmd_t*  lmd = (Lmd_t*)p;

    (*lmd->initf)(&lmd->context);
    return 0;
}

static int
lmd_block(Sum_t* p, const void* s, size_t n)
{
    Lmd_t*  lmd = (Lmd_t*)p;

    (*lmd->updatef)(&lmd->context, s, n);
    return 0;
}

static int
lmd_done(Sum_t* p)
{
    register Lmd_t* lmd = (Lmd_t*)p;
    register int    i;

    (*lmd->finalf)(lmd->data, &lmd->context);
    for (i = 0; i < lmd->datasize; i++)
        lmd->total[i] ^= lmd->data[i];
    return 0;
}

static int
lmd_print(Sum_t* p, Sfio_t* sp, register int flags, size_t scale)
{
    register Lmd_t*     lmd = (Lmd_t*)p;
    register unsigned char* d;
    register int        i;

    d = (flags & SUM_TOTAL) ? lmd->total : lmd->data;
    for (i = 0; i < lmd->datasize; i++)
        sfprintf(sp, "%02x", d[i]);
    return 0;
}

static int
lmd_data(Sum_t* p, Sumdata_t* data)
{
    Lmd_t*      lmd = (Lmd_t*)p;

    data->size = lmd->datasize;
    data->num = 0;
    data->buf = lmd->data;
    return 0;
}

#if _lib_MD4Init && _hdr_md4

#include <md4.h>

#define md4_description "RFC1320 MD4 message digest. Cryptographically weak. The block count is not printed."
#define md4_options "[+(version)?md4 (solaris -lmd) 2005-07-26]"
#define md4_match   "md4|MD4"
#define md4_scale   0
#define md4_init    lmd_init
#define md4_block   lmd_block
#define md4_done    lmd_done
#define md4_print   lmd_print
#define md4_data    lmd_data

typedef struct Md4_s
{
    _SUM_LMD_
    MD4_CTX     context;
} Md4_t;

static Sum_t*
md4_open(const Method_t* method, const char* name)
{
    Md4_t*  lmd;

    if (lmd = newof(0, Md4_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 16;
        lmd->initf = (Lmd_init_f)MD4Init;
        lmd->updatef = (Lmd_update_f)MD4Update;
        lmd->finalf = (Lmd_final_f)MD4Final;
        md4_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#endif

#if _lib_MD5Init && _hdr_md5

#include <md5.h>

#define md5_description "RFC1321 MD5 message digest. Cryptographically weak. The block count is not printed."
#define md5_options "[+(version)?md5 (solaris -lmd) 2005-07-26]"
#define md5_match   "md5|MD5"
#define md5_scale   0
#define md5_init    lmd_init
#define md5_block   lmd_block
#define md5_done    lmd_done
#define md5_print   lmd_print
#define md5_data    lmd_data

typedef struct Md5_s
{
    _SUM_LMD_
    MD5_CTX     context;
} Md5_t;

static Sum_t*
md5_open(const Method_t* method, const char* name)
{
    Md5_t*  lmd;

    if (lmd = newof(0, Md5_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 16;
        lmd->initf = (Lmd_init_f)MD5Init;
        lmd->updatef = (Lmd_update_f)MD5Update;
        lmd->finalf = (Lmd_final_f)MD5Final;
        md5_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#endif

#if _lib_SHA1Init && _hdr_sha1

#include <sha1.h>

#define sha1_description "RFC3174 / FIPS 180-1 SHA-1 secure hash algorithm 1. Cryptographically weak. The block count is not printed."
#define sha1_options    "[+(version)?sha1 (solaris -lmd) 2005-07-26]"
#define sha1_match  "sha1|SHA1|sha-1|SHA-1"
#define sha1_scale  0
#define sha1_init   lmd_init
#define sha1_block  lmd_block
#define sha1_done   lmd_done
#define sha1_print  lmd_print
#define sha1_data   lmd_data

typedef struct Sha1_s
{
    _SUM_LMD_
    SHA1_CTX    context;
    unsigned char   pad[1024];  /* XXX: who's bug is it? */
} Sha1_t;

static Sum_t*
sha1_open(const Method_t* method, const char* name)
{
    Sha1_t* lmd;

    if (lmd = newof(0, Sha1_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 20;
        lmd->initf = (Lmd_init_f)SHA1Init;
        lmd->updatef = (Lmd_update_f)SHA1Update;
        lmd->finalf = (Lmd_final_f)SHA1Final;
        sha1_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#endif

#if _lib_SHA2Init && _hdr_sha2

#include <sha2.h>

#define sha256_description "FIPS 180-2 SHA256 secure hash algorithm.  The block count is not printed."
#define sha256_options  "[+(version)?sha256 (solaris -lmd) 2005-07-26]"
#define sha256_match    "sha256|sha-256|SHA256|SHA-256"
#define sha256_scale    0
#define sha256_init lmd_init
#define sha256_block    lmd_block
#define sha256_done lmd_done
#define sha256_print    lmd_print
#define sha256_data lmd_data

typedef struct Sha256_s
{
    _SUM_LMD_
    SHA256_CTX  context;
} Sha256_t;

static Sum_t*
sha256_open(const Method_t* method, const char* name)
{
    Sha256_t*   lmd;

    if (lmd = newof(0, Sha256_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 32;
        lmd->initf = (Lmd_init_f)SHA256Init;
        lmd->updatef = (Lmd_update_f)SHA256Update;
        lmd->finalf = (Lmd_final_f)SHA256Final;
        sha256_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#define sha384_description "FIPS 180-2 SHA384 secure hash algorithm.  The block count is not printed."
#define sha384_options  "[+(version)?sha384 (solaris -lmd) 2005-07-26]"
#define sha384_match    "sha384|sha-384|SHA384|SHA-384"
#define sha384_scale    0
#define sha384_init lmd_init
#define sha384_block    lmd_block
#define sha384_done lmd_done
#define sha384_print    lmd_print
#define sha384_data lmd_data

typedef struct Sha384_s
{
    _SUM_LMD_
    SHA384_CTX  context;
} Sha384_t;

static Sum_t*
sha384_open(const Method_t* method, const char* name)
{
    Sha384_t*   lmd;

    if (lmd = newof(0, Sha384_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 48;
        lmd->initf = (Lmd_init_f)SHA384Init;
        lmd->updatef = (Lmd_update_f)SHA384Update;
        lmd->finalf = (Lmd_final_f)SHA384Final;
        sha384_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#define sha512_description "FIPS 180-2 SHA512 secure hash algorithm.  The block count is not printed."
#define sha512_options  "[+(version)?sha512 (solaris -lmd) 2005-07-26]"
#define sha512_match    "sha512|sha-512|SHA512|SHA-512"
#define sha512_scale    0
#define sha512_init lmd_init
#define sha512_block    lmd_block
#define sha512_done lmd_done
#define sha512_print    lmd_print
#define sha512_data lmd_data

typedef struct Sha512_s
{
    _SUM_LMD_
    SHA512_CTX  context;
} Sha512_t;

static Sum_t*
sha512_open(const Method_t* method, const char* name)
{
    Sha512_t*   lmd;

    if (lmd = newof(0, Sha512_t, 1, 0))
    {
        lmd->method = (Method_t*)method;
        lmd->name = name;
        lmd->datasize = 64;
        lmd->initf = (Lmd_init_f)SHA512Init;
        lmd->updatef = (Lmd_update_f)SHA512Update;
        lmd->finalf = (Lmd_final_f)SHA512Final;
        sha512_init((Sum_t*)lmd);
    }
    return (Sum_t*)lmd;
}

#endif