b76e4001bc
[GB.OPENSSL] * BUG: An internal routine's return value was mismatched causing HMac to return without data whenever the digest method was found. (Bug#1725)
115 lines
3.3 KiB
C
115 lines
3.3 KiB
C
/*
|
|
* c_hmac.c - HMac class
|
|
*
|
|
* Copyright (C) 2013-2019 Tobias Boege <tobias@gambas-buch.de>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
* MA 02110-1301, USA.
|
|
*
|
|
* In addition, as a special exception, the copyright holders give
|
|
* permission to link the code of portions of this program with the
|
|
* OpenSSL library under certain conditions as described in each
|
|
* individual source file, and distribute linked combinations
|
|
* including the two.
|
|
* You must obey the GNU General Public License in all respects
|
|
* for all of the code used other than OpenSSL. If you modify
|
|
* file(s) with this exception, you may extend this exception to
|
|
* your version of the file(s), but you are not obligated to do so.
|
|
* If you do not wish to do so, delete this exception statement
|
|
* from your version. If you delete this exception statement from
|
|
* all source files in the program, then also delete it here.
|
|
*/
|
|
|
|
#define __C_HMAC_C
|
|
|
|
#include <openssl/hmac.h>
|
|
|
|
#include "main.h"
|
|
#include "c_hmac.h"
|
|
|
|
/*
|
|
* HMac
|
|
*/
|
|
|
|
static const EVP_MD *get_method(GB_VARIANT_VALUE *varg)
|
|
{
|
|
const EVP_MD *method;
|
|
|
|
switch (varg->type) {
|
|
case GB_T_INTEGER:
|
|
GB.Deprecated("gb.openssl", "HMac() with integer method", "a string method like 'sha1'");
|
|
method = EVP_get_digestbynid(varg->value._integer);
|
|
break;
|
|
case GB_T_STRING:
|
|
method = EVP_get_digestbyname(varg->value._string);
|
|
break;
|
|
default:
|
|
GB.Error("Method argument to HMac() can only be Integer or String");
|
|
return NULL;
|
|
}
|
|
|
|
if (!method)
|
|
GB.Error("Unknown method");
|
|
return method;
|
|
}
|
|
|
|
/**G
|
|
* Make an HMAC authentication code out of a key and some data.
|
|
*
|
|
* *Method* is any digest name such as "sha1" or "ripemd160" that is
|
|
* supported by the Digest class. The default is "sha1".
|
|
**/
|
|
BEGIN_METHOD(HMac_call, GB_STRING key; GB_STRING data; GB_VARIANT method)
|
|
|
|
char hash[EVP_MAX_MD_SIZE];
|
|
unsigned int len;
|
|
const EVP_MD *method;
|
|
|
|
method = MISSING(method) ?
|
|
EVP_get_digestbynid(NID_sha1) :
|
|
get_method(&VARG(method));
|
|
if (!method)
|
|
return;
|
|
|
|
memset(hash, 0, sizeof(hash));
|
|
HMAC(method, STRING(key), LENGTH(key), (unsigned char *) STRING(data),
|
|
LENGTH(data), (unsigned char *) hash, &len);
|
|
GB.ReturnNewString(hash, len);
|
|
|
|
END_METHOD
|
|
|
|
GB_DESC CHMac[] = {
|
|
GB_DECLARE("HMac", 0),
|
|
GB_NOT_CREATABLE(),
|
|
|
|
/**G HMac Sha1
|
|
* Use the SHA1 algorithm.
|
|
*
|
|
* Since Gambas 3.14: This constant it deprecated. Use the string
|
|
* "sha1" as an argument to HMac() instead.
|
|
**/
|
|
GB_CONSTANT("Sha1", "i", NID_sha1),
|
|
/**G HMac RipeMD160
|
|
* Use the RIPEMD160 algorithm.
|
|
*
|
|
* Since Gambas 3.14: This constant is deprecated. Use the string
|
|
* "ripemd160" as an argument to HMac() instead.
|
|
**/
|
|
GB_CONSTANT("RipeMD160", "i", NID_ripemd160),
|
|
|
|
GB_STATIC_METHOD("_call", "s", HMac_call, "(Key)s(Data)s[(Method)v]"),
|
|
|
|
GB_END_DECLARE
|
|
};
|