lsflib/src/md5sum.c
author Markus Bröker <mbroeker@largo.dyndns.tv>
Mon, 07 Jun 2010 23:21:56 +0200
changeset 133 f46f9606dbfb
parent 121 fef2ccfa7b12
child 136 d82f65e902d0
permissions -rw-r--r--
little typo in sudoku.c committer: Markus Bröker <mbroeker@largo.homelinux.org>

/**
 * lsflib/src/md5sum.c
 * Copyright (C) 2008 Markus Broeker
 */

#include <stdio.h>
#include <string.h>
#include <openssl/evp.h>

#include <lsf/lsf.h>

unsigned char *md5sum (char *fname)
{
    EVP_MD_CTX mdctx;
    const EVP_MD *md;
    char line[81];
    unsigned char md_value[EVP_MAX_MD_SIZE];
    int md_len, i;
    FILE *f;
    static unsigned char *value = NULL;

    OpenSSL_add_all_digests ();

    if ((f = fopen (fname, "rb")) == NULL) {
        perror ("FOPEN");
        value = malloc (1);
        value = 0;
        return value;
    }

    if ((md = EVP_get_digestbyname ("md5")) == NULL) {
        value = malloc (1);
        value = 0;
        return value;
    }

    EVP_MD_CTX_init (&mdctx);
    EVP_DigestInit_ex (&mdctx, md, NULL);

    *line = 0;
    while ((i = fread (line, 1, 80, f)) != 0) {
        EVP_DigestUpdate (&mdctx, line, i);
    }

    fclose (f);

    EVP_DigestFinal_ex (&mdctx, md_value, (unsigned int *)&md_len);
    EVP_MD_CTX_cleanup (&mdctx);

    value = malloc (md_len + 1);

    for (i = 0; i < md_len; i++)
        value[i] = md_value[i];
    value[i] = 0;
    return value;
}