/* Copyright © 2007 Carl Worth * Copyright © 2009 Jeremy Huddleston, Julien Cristau, and Matthieu Herrb * Copyright © 2009-2010 Mikhail Gusarov * Copyright © 2012 Yaakov Selkowitz and Keith Packard * Copyright © 2014 Intel Corporation * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice (including the next * paragraph) shall be included in all copies or substantial portions of the * Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER * DEALINGS IN THE SOFTWARE. */ #include "mesa-sha1.h" #ifdef HAVE_SHA1 #if defined(HAVE_SHA1_IN_LIBMD) /* Use libmd for SHA1 */ \ || defined(HAVE_SHA1_IN_LIBC) /* Use libc for SHA1 */ #include <sha1.h> struct mesa_sha1 * _mesa_sha1_init(void) { SHA1_CTX *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; SHA1Init(ctx); return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { SHA1_CTX *sha1_ctx = (SHA1_CTX *) ctx; SHA1Update(sha1_ctx, data, size); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { SHA1_CTX *sha1_ctx = (SHA1_CTX *) ctx; SHA1Final(result, sha1_ctx); free(sha1_ctx); return 1; } #elif defined(HAVE_SHA1_IN_COMMONCRYPTO) /* Use CommonCrypto for SHA1 */ #include <CommonCrypto/CommonDigest.h> struct mesa_sha1 * _mesa_sha1_init(void) { CC_SHA1_CTX *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; CC_SHA1_Init(ctx); return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { CC_SHA1_CTX *sha1_ctx = (CC_SHA1_CTX *) ctx; CC_SHA1_Update(sha1_ctx, data, size); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { CC_SHA1_CTX *sha1_ctx = (CC_SHA1_CTX *) ctx; CC_SHA1_Final(result, sha1_ctx); free(sha1_ctx); return 1; } #elif defined(HAVE_SHA1_IN_CRYPTOAPI) /* Use CryptoAPI for SHA1 */ #define WIN32_LEAN_AND_MEAN #include <windows.h> #include <wincrypt.h> static HCRYPTPROV hProv; struct mesa_sha1 * _mesa_sha1_init(void) { HCRYPTHASH *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; CryptAcquireContext(&hProv, NULL, MS_DEF_PROV, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT); CryptCreateHash(hProv, CALG_SHA1, 0, 0, ctx); return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { HCRYPTHASH *hHash = (HCRYPTHASH *) ctx; CryptHashData(*hHash, data, size, 0); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { HCRYPTHASH *hHash = (HCRYPTHASH *) ctx; DWORD len = 20; CryptGetHashParam(*hHash, HP_HASHVAL, result, &len, 0); CryptDestroyHash(*hHash); CryptReleaseContext(hProv, 0); free(ctx); return 1; } #elif defined(HAVE_SHA1_IN_LIBNETTLE) /* Use libnettle for SHA1 */ #include <nettle/sha.h> struct mesa_sha1 * _mesa_sha1_init(void) { struct sha1_ctx *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; sha1_init(ctx); return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { sha1_update((struct sha1_ctx *) ctx, size, data); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { sha1_digest((struct sha1_ctx *) ctx, 20, result); free(ctx); return 1; } #elif defined(HAVE_SHA1_IN_LIBGCRYPT) /* Use libgcrypt for SHA1 */ #include <gcrypt.h> #include "c11/threads.h" static void _mesa_libgcrypt_init(void) { if (!gcry_check_version(NULL)) return; gcry_control(GCRYCTL_DISABLE_SECMEM, 0); gcry_control(GCRYCTL_INITIALIZATION_FINISHED, 0); } struct mesa_sha1 * _mesa_sha1_init(void) { static once_flag flag = ONCE_FLAG_INIT; gcry_md_hd_t h; gcry_error_t err; call_once(&flag, _mesa_libgcrypt_init); err = gcry_md_open(&h, GCRY_MD_SHA1, 0); if (err) return NULL; return (struct mesa_sha1 *) h; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { gcry_md_hd_t h = (gcry_md_hd_t) ctx; gcry_md_write(h, data, size); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { gcry_md_hd_t h = (gcry_md_hd_t) ctx; memcpy(result, gcry_md_read(h, GCRY_MD_SHA1), 20); gcry_md_close(h); return 1; } #elif defined(HAVE_SHA1_IN_LIBSHA1) /* Use libsha1 */ #include <libsha1.h> struct mesa_sha1 * _mesa_sha1_init(void) { sha1_ctx *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; sha1_begin(ctx); return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { sha1_hash(data, size, (sha1_ctx *) ctx); return 1; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { sha1_end(result, (sha1_ctx *) ctx); free(ctx); return 1; } #else /* Use OpenSSL's libcrypto */ #include <stddef.h> /* buggy openssl/sha.h wants size_t */ #include <openssl/sha.h> struct mesa_sha1 * _mesa_sha1_init(void) { int ret; SHA_CTX *ctx = malloc(sizeof(*ctx)); if (!ctx) return NULL; ret = SHA1_Init(ctx); if (!ret) { free(ctx); return NULL; } return (struct mesa_sha1 *) ctx; } int _mesa_sha1_update(struct mesa_sha1 *ctx, const void *data, int size) { int ret; SHA_CTX *sha_ctx = (SHA_CTX *) ctx; ret = SHA1_Update(sha_ctx, data, size); if (!ret) free(sha_ctx); return ret; } int _mesa_sha1_final(struct mesa_sha1 *ctx, unsigned char result[20]) { int ret; SHA_CTX *sha_ctx = (SHA_CTX *) ctx; ret = SHA1_Final(result, (SHA_CTX *) sha_ctx); free(sha_ctx); return ret; } #endif void _mesa_sha1_compute(const void *data, size_t size, unsigned char result[20]) { struct mesa_sha1 *ctx; ctx = _mesa_sha1_init(); _mesa_sha1_update(ctx, data, size); _mesa_sha1_final(ctx, result); } char * _mesa_sha1_format(char *buf, const unsigned char *sha1) { static const char hex_digits[] = "0123456789abcdef"; int i; for (i = 0; i < 40; i += 2) { buf[i] = hex_digits[sha1[i >> 1] >> 4]; buf[i + 1] = hex_digits[sha1[i >> 1] & 0x0f]; } buf[i] = '\0'; return buf; } #endif