diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6303d2d16f..8e43492c4e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-07-22 15:58 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + - contrib/hbcrypt + * Deleted after move. (SVN got confused if done if previous pass) + 2009-07-22 15:48 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * bin/hb-func.sh * include/hbextern.ch diff --git a/harbour/contrib/hbcrypt/Makefile b/harbour/contrib/hbcrypt/Makefile deleted file mode 100644 index ef3b7f2410..0000000000 --- a/harbour/contrib/hbcrypt/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -# -# $Id$ -# - -ROOT = ../../ - -LIBNAME=hbcrypt - -C_SOURCES=\ - hbsha1.c \ - hbsha1hm.c \ - hbsha2.c \ - hbsha2hm.c \ - sha1.c \ - sha1hmac.c \ - sha2.c \ - sha2hmac.c \ - -include $(TOP)$(ROOT)config/lib.cf diff --git a/harbour/contrib/hbcrypt/hbcrypt.hbc b/harbour/contrib/hbcrypt/hbcrypt.hbc deleted file mode 100644 index cd0930adbc..0000000000 --- a/harbour/contrib/hbcrypt/hbcrypt.hbc +++ /dev/null @@ -1,5 +0,0 @@ -# -# $Id$ -# - -libs=hbcrypt diff --git a/harbour/contrib/hbcrypt/hbsha1.c b/harbour/contrib/hbcrypt/hbsha1.c deleted file mode 100644 index 58a6b7faaf..0000000000 --- a/harbour/contrib/hbcrypt/hbsha1.c +++ /dev/null @@ -1,76 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * SHA1 Harbour wrappers. - * - * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - * - * 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 software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). - * - * As a special exception, the Harbour Project gives permission for - * additional uses of the text contained in its release of Harbour. - * - * The exception is that, if you link the Harbour libraries with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the Harbour library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the Harbour - * Project under the name Harbour. If you copy code from other - * Harbour Project or Free Software Foundation releases into a copy of - * Harbour, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for Harbour, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. - * - */ - -#include "hbapi.h" - -#include "sha1.h" - -HB_FUNC( HB_SHA1 ) -{ - sha1_byte digest[ SHA1_DIGEST_LENGTH ]; - SHA_CTX ctx; - - SHA1_Init( &ctx ); - SHA1_Update( &ctx, ( sha1_byte * ) hb_parcx( 1 ), hb_parclen( 1 ) ); - SHA1_Final( digest, &ctx ); - - if( ! hb_parl( 2 ) ) - { - char hex[ ( sizeof( digest ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) digest, sizeof( digest ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) digest, sizeof( digest ) ); - - return; -} diff --git a/harbour/contrib/hbcrypt/hbsha1hm.c b/harbour/contrib/hbcrypt/hbsha1hm.c deleted file mode 100644 index f0e11c1bd7..0000000000 --- a/harbour/contrib/hbcrypt/hbsha1hm.c +++ /dev/null @@ -1,78 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * HMAC-SHA1 Harbour wrappers. - * - * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - * - * 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 software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). - * - * As a special exception, the Harbour Project gives permission for - * additional uses of the text contained in its release of Harbour. - * - * The exception is that, if you link the Harbour libraries with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the Harbour library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the Harbour - * Project under the name Harbour. If you copy code from other - * Harbour Project or Free Software Foundation releases into a copy of - * Harbour, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for Harbour, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. - * - */ - -#include "hbapi.h" - -#include "sha1hmac.h" - -HB_FUNC( HB_HMAC_SHA1 ) -{ - unsigned char mac[ HMAC_SHA1_DIGEST_LENGTH ]; - HMAC_SHA1_CTX ctx; - - HMAC_SHA1_Init( &ctx ); - HMAC_SHA1_UpdateKey( &ctx, ( unsigned char * ) hb_parcx( 2 ), hb_parclen( 2 ) ); - HMAC_SHA1_EndKey( &ctx ); - HMAC_SHA1_StartMessage( &ctx ); - HMAC_SHA1_UpdateMessage( &ctx, ( unsigned char * ) hb_parcx( 1 ), hb_parclen( 1 ) ); - HMAC_SHA1_EndMessage( mac, &ctx ); - HMAC_SHA1_Done( &ctx ); - - if( ! hb_parl( 3 ) ) - { - char hex[ ( sizeof( mac ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) mac, sizeof( mac ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) mac, sizeof( mac ) ); -} diff --git a/harbour/contrib/hbcrypt/hbsha2.c b/harbour/contrib/hbcrypt/hbsha2.c deleted file mode 100644 index 83fce32a25..0000000000 --- a/harbour/contrib/hbcrypt/hbsha2.c +++ /dev/null @@ -1,119 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * SHA2 Harbour wrappers. - * - * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - * - * 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 software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). - * - * As a special exception, the Harbour Project gives permission for - * additional uses of the text contained in its release of Harbour. - * - * The exception is that, if you link the Harbour libraries with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the Harbour library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the Harbour - * Project under the name Harbour. If you copy code from other - * Harbour Project or Free Software Foundation releases into a copy of - * Harbour, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for Harbour, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. - * - */ - -#include "hbapi.h" - -#include "sha2.h" - -HB_FUNC( HB_SHA224 ) -{ - BYTE digest[ SHA224_DIGEST_SIZE ]; - - sha224( ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), digest ); - - if( ! hb_parl( 2 ) ) - { - char hex[ ( sizeof( digest ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) digest, sizeof( digest ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) digest, sizeof( digest ) ); -} - -HB_FUNC( HB_SHA256 ) -{ - BYTE digest[ SHA256_DIGEST_SIZE ]; - - sha256( ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), digest ); - - if( ! hb_parl( 2 ) ) - { - char hex[ ( sizeof( digest ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) digest, sizeof( digest ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) digest, sizeof( digest ) ); -} - -HB_FUNC( HB_SHA384 ) -{ - BYTE digest[ SHA384_DIGEST_SIZE ]; - - sha384( ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), digest ); - - if( ! hb_parl( 2 ) ) - { - char hex[ ( sizeof( digest ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) digest, sizeof( digest ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) digest, sizeof( digest ) ); -} - -HB_FUNC( HB_SHA512 ) -{ - BYTE digest[ SHA512_DIGEST_SIZE ]; - - sha512( ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), digest ); - - if( ! hb_parl( 2 ) ) - { - char hex[ ( sizeof( digest ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) digest, sizeof( digest ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) digest, sizeof( digest ) ); -} diff --git a/harbour/contrib/hbcrypt/hbsha2hm.c b/harbour/contrib/hbcrypt/hbsha2hm.c deleted file mode 100644 index 8f500a2896..0000000000 --- a/harbour/contrib/hbcrypt/hbsha2hm.c +++ /dev/null @@ -1,119 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * HMAC-SHA2 Harbour wrappers. - * - * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - * - * 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 software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). - * - * As a special exception, the Harbour Project gives permission for - * additional uses of the text contained in its release of Harbour. - * - * The exception is that, if you link the Harbour libraries with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the Harbour library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the Harbour - * Project under the name Harbour. If you copy code from other - * Harbour Project or Free Software Foundation releases into a copy of - * Harbour, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for Harbour, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. - * - */ - -#include "hbapi.h" - -#include "sha2hmac.h" - -HB_FUNC( HB_HMAC_SHA224 ) -{ - BYTE mac[ SHA224_DIGEST_SIZE ]; - - hmac_sha224( ( BYTE * ) hb_parcx( 2 ), hb_parclen( 2 ), ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), mac, HB_SIZEOFARRAY( mac ) ); - - if( ! hb_parl( 3 ) ) - { - char hex[ ( sizeof( mac ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) mac, sizeof( mac ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) mac, sizeof( mac ) ); -} - -HB_FUNC( HB_HMAC_SHA256 ) -{ - BYTE mac[ SHA256_DIGEST_SIZE ]; - - hmac_sha256( ( BYTE * ) hb_parcx( 2 ), hb_parclen( 2 ), ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), mac, HB_SIZEOFARRAY( mac ) ); - - if( ! hb_parl( 3 ) ) - { - char hex[ ( sizeof( mac ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) mac, sizeof( mac ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) mac, sizeof( mac ) ); -} - -HB_FUNC( HB_HMAC_SHA384 ) -{ - BYTE mac[ SHA384_DIGEST_SIZE ]; - - hmac_sha384( ( BYTE * ) hb_parcx( 2 ), hb_parclen( 2 ), ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), mac, HB_SIZEOFARRAY( mac ) ); - - if( ! hb_parl( 3 ) ) - { - char hex[ ( sizeof( mac ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) mac, sizeof( mac ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) mac, sizeof( mac ) ); -} - -HB_FUNC( HB_HMAC_SHA512 ) -{ - BYTE mac[ SHA512_DIGEST_SIZE ]; - - hmac_sha512( ( BYTE * ) hb_parcx( 2 ), hb_parclen( 2 ), ( BYTE * ) hb_parcx( 1 ), hb_parclen( 1 ), mac, HB_SIZEOFARRAY( mac ) ); - - if( ! hb_parl( 3 ) ) - { - char hex[ ( sizeof( mac ) * 2 ) + 1 ]; - hb_strtohex( ( char * ) mac, sizeof( mac ), hex ); - hb_retclen( hex, HB_SIZEOFARRAY( hex ) - 1 ); - } - else - hb_retclen( ( char * ) mac, sizeof( mac ) ); -} diff --git a/harbour/contrib/hbcrypt/sha1.c b/harbour/contrib/hbcrypt/sha1.c deleted file mode 100644 index b8c0eb5c32..0000000000 --- a/harbour/contrib/hbcrypt/sha1.c +++ /dev/null @@ -1,161 +0,0 @@ -/* - * $Id$ - */ - -/* - * sha1.c - * - * Originally witten by Steve Reid - * - * Modified by Aaron D. Gifford - * - * NO COPYRIGHT - THIS IS 100% IN THE PUBLIC DOMAIN - * - * The original unmodified version is available at: - * ftp://ftp.funet.fi/pub/crypt/hash/sha/sha1.c - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#include - -#include "sha1.h" - -#define rol(value, bits) (((value) << (bits)) | ((value) >> (32 - (bits)))) - -/* blk0() and blk() perform the initial expand. */ -/* I got the idea of expanding during the round function from SSLeay */ - -#ifdef HB_LITTLE_ENDIAN -#define blk0(i) (block->l[i] = (rol(block->l[i],24)&(sha1_quadbyte)0xFF00FF00) \ - |(rol(block->l[i],8)&(sha1_quadbyte)0x00FF00FF)) -#else -#define blk0(i) block->l[i] -#endif - -#define blk(i) (block->l[i&15] = rol(block->l[(i+13)&15]^block->l[(i+8)&15] \ - ^block->l[(i+2)&15]^block->l[i&15],1)) - -/* (R0+R1), R2, R3, R4 are the different operations used in SHA1 */ -#define R0(v,w,x,y,z,i) z+=((w&(x^y))^y)+blk0(i)+0x5A827999+rol(v,5);w=rol(w,30); -#define R1(v,w,x,y,z,i) z+=((w&(x^y))^y)+blk(i)+0x5A827999+rol(v,5);w=rol(w,30); -#define R2(v,w,x,y,z,i) z+=(w^x^y)+blk(i)+0x6ED9EBA1+rol(v,5);w=rol(w,30); -#define R3(v,w,x,y,z,i) z+=(((w|x)&y)|(w&x))+blk(i)+0x8F1BBCDC+rol(v,5);w=rol(w,30); -#define R4(v,w,x,y,z,i) z+=(w^x^y)+blk(i)+0xCA62C1D6+rol(v,5);w=rol(w,30); - -typedef union _BYTE64QUAD16 { - sha1_byte c[64]; - sha1_quadbyte l[16]; -} BYTE64QUAD16; - -/* Hash a single 512-bit block. This is the core of the algorithm. */ -void SHA1_Transform(sha1_quadbyte state[5], sha1_byte buffer[64]) { - sha1_quadbyte a, b, c, d, e; - BYTE64QUAD16 *block; - - block = (BYTE64QUAD16*)buffer; - /* Copy context->state[] to working vars */ - a = state[0]; - b = state[1]; - c = state[2]; - d = state[3]; - e = state[4]; - /* 4 rounds of 20 operations each. Loop unrolled. */ - R0(a,b,c,d,e, 0); R0(e,a,b,c,d, 1); R0(d,e,a,b,c, 2); R0(c,d,e,a,b, 3); - R0(b,c,d,e,a, 4); R0(a,b,c,d,e, 5); R0(e,a,b,c,d, 6); R0(d,e,a,b,c, 7); - R0(c,d,e,a,b, 8); R0(b,c,d,e,a, 9); R0(a,b,c,d,e,10); R0(e,a,b,c,d,11); - R0(d,e,a,b,c,12); R0(c,d,e,a,b,13); R0(b,c,d,e,a,14); R0(a,b,c,d,e,15); - R1(e,a,b,c,d,16); R1(d,e,a,b,c,17); R1(c,d,e,a,b,18); R1(b,c,d,e,a,19); - R2(a,b,c,d,e,20); R2(e,a,b,c,d,21); R2(d,e,a,b,c,22); R2(c,d,e,a,b,23); - R2(b,c,d,e,a,24); R2(a,b,c,d,e,25); R2(e,a,b,c,d,26); R2(d,e,a,b,c,27); - R2(c,d,e,a,b,28); R2(b,c,d,e,a,29); R2(a,b,c,d,e,30); R2(e,a,b,c,d,31); - R2(d,e,a,b,c,32); R2(c,d,e,a,b,33); R2(b,c,d,e,a,34); R2(a,b,c,d,e,35); - R2(e,a,b,c,d,36); R2(d,e,a,b,c,37); R2(c,d,e,a,b,38); R2(b,c,d,e,a,39); - R3(a,b,c,d,e,40); R3(e,a,b,c,d,41); R3(d,e,a,b,c,42); R3(c,d,e,a,b,43); - R3(b,c,d,e,a,44); R3(a,b,c,d,e,45); R3(e,a,b,c,d,46); R3(d,e,a,b,c,47); - R3(c,d,e,a,b,48); R3(b,c,d,e,a,49); R3(a,b,c,d,e,50); R3(e,a,b,c,d,51); - R3(d,e,a,b,c,52); R3(c,d,e,a,b,53); R3(b,c,d,e,a,54); R3(a,b,c,d,e,55); - R3(e,a,b,c,d,56); R3(d,e,a,b,c,57); R3(c,d,e,a,b,58); R3(b,c,d,e,a,59); - R4(a,b,c,d,e,60); R4(e,a,b,c,d,61); R4(d,e,a,b,c,62); R4(c,d,e,a,b,63); - R4(b,c,d,e,a,64); R4(a,b,c,d,e,65); R4(e,a,b,c,d,66); R4(d,e,a,b,c,67); - R4(c,d,e,a,b,68); R4(b,c,d,e,a,69); R4(a,b,c,d,e,70); R4(e,a,b,c,d,71); - R4(d,e,a,b,c,72); R4(c,d,e,a,b,73); R4(b,c,d,e,a,74); R4(a,b,c,d,e,75); - R4(e,a,b,c,d,76); R4(d,e,a,b,c,77); R4(c,d,e,a,b,78); R4(b,c,d,e,a,79); - /* Add the working vars back into context.state[] */ - state[0] += a; - state[1] += b; - state[2] += c; - state[3] += d; - state[4] += e; - /* Wipe variables */ - /* a = b = c = d = e = 0; */ -} - - -/* SHA1_Init - Initialize new context */ -void SHA1_Init(SHA_CTX* context) { - /* SHA1 initialization constants */ - context->state[0] = 0x67452301; - context->state[1] = 0xEFCDAB89; - context->state[2] = 0x98BADCFE; - context->state[3] = 0x10325476; - context->state[4] = 0xC3D2E1F0; - context->count[0] = context->count[1] = 0; -} - -/* Run your data through this. */ -void SHA1_Update(SHA_CTX *context, sha1_byte *data, unsigned int len) { - unsigned int i, j; - - j = (context->count[0] >> 3) & 63; - if ((context->count[0] += len << 3) < (len << 3)) context->count[1]++; - context->count[1] += (len >> 29); - if ((j + len) > 63) { - memcpy(&context->buffer[j], data, (i = 64-j)); - SHA1_Transform(context->state, context->buffer); - for ( ; i + 63 < len; i += 64) { - SHA1_Transform(context->state, &data[i]); - } - j = 0; - } - else i = 0; - memcpy(&context->buffer[j], &data[i], len - i); -} - - -/* Add padding and return the message digest. */ -void SHA1_Final(sha1_byte digest[SHA1_DIGEST_LENGTH], SHA_CTX *context) { - sha1_quadbyte i; - sha1_byte finalcount[8]; - - for (i = 0; i < 8; i++) { - finalcount[i] = (sha1_byte)((context->count[(i >= 4 ? 0 : 1)] - >> ((3-(i & 3)) * 8) ) & 255); /* Endian independent */ - } - SHA1_Update(context, (sha1_byte *)"\x80", 1); - while ((context->count[0] & 504) != 448) { - SHA1_Update(context, (sha1_byte *)"\0", 1); - } - /* Should cause a SHA1_Transform() */ - SHA1_Update(context, finalcount, 8); - for (i = 0; i < SHA1_DIGEST_LENGTH; i++) { - digest[i] = (sha1_byte) - ((context->state[i>>2] >> ((3-(i & 3)) * 8) ) & 255); - } - /* Wipe variables */ - /* i = 0; */ - memset(context->buffer, 0, SHA1_BLOCK_LENGTH); - memset(context->state, 0, SHA1_DIGEST_LENGTH); - memset(context->count, 0, 8); - memset(finalcount, 0, 8); -} diff --git a/harbour/contrib/hbcrypt/sha1.h b/harbour/contrib/hbcrypt/sha1.h deleted file mode 100644 index 70f9551a41..0000000000 --- a/harbour/contrib/hbcrypt/sha1.h +++ /dev/null @@ -1,82 +0,0 @@ -/* - * $Id$ - */ - -/* - * sha.h - * - * Originally taken from the public domain SHA1 implementation - * written by by Steve Reid - * - * Modified by Aaron D. Gifford - * - * NO COPYRIGHT - THIS IS 100% IN THE PUBLIC DOMAIN - * - * The original unmodified version is available at: - * ftp://ftp.funet.fi/pub/crypt/hash/sha/sha1.c - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#ifndef __SHA1_H__ -#define __SHA1_H__ - -#include "hbdefs.h" - -#ifdef __cplusplus -extern "C" { -#endif - -/* Define this if your machine is LITTLE_ENDIAN, otherwise #undef it: */ -/* Disabled to avoid conflicts with the same macro defined in system header - * files in some OS-es. HB_LITTLE_ENDIAN used instead. - */ -/* #define LITTLE_ENDIAN */ - -/* Make sure you define these types for your architecture: */ -typedef unsigned int sha1_quadbyte; /* 4 byte type */ -typedef unsigned char sha1_byte; /* single byte type */ - -/* - * Be sure to get the above definitions right. For instance, on my - * x86 based FreeBSD box, I define LITTLE_ENDIAN and use the type - * "unsigned long" for the quadbyte. On FreeBSD on the Alpha, however, - * while I still use LITTLE_ENDIAN, I must define the quadbyte type - * as "unsigned int" instead. - */ - -#define SHA1_BLOCK_LENGTH 64 -#define SHA1_DIGEST_LENGTH 20 - -/* The SHA1 structure: */ -typedef struct _SHA_CTX { - sha1_quadbyte state[5]; - sha1_quadbyte count[2]; - sha1_byte buffer[SHA1_BLOCK_LENGTH]; -} SHA_CTX; - -#ifndef NOPROTO -void SHA1_Init(SHA_CTX *context); -void SHA1_Update(SHA_CTX *context, sha1_byte *data, unsigned int len); -void SHA1_Final(sha1_byte digest[SHA1_DIGEST_LENGTH], SHA_CTX* context); -#else -void SHA1_Init(); -void SHA1_Update(); -void SHA1_Final(); -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/harbour/contrib/hbcrypt/sha1hmac.c b/harbour/contrib/hbcrypt/sha1hmac.c deleted file mode 100644 index 6e92999e96..0000000000 --- a/harbour/contrib/hbcrypt/sha1hmac.c +++ /dev/null @@ -1,198 +0,0 @@ -/* - * $Id$ - */ - -/* - * hmac_sha1.c - * - * Version 1.0.0 - * - * Written by Aaron D. Gifford - * - * Copyright 1998, 2000 Aaron D. Gifford. All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the copyright holder nor the names of contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -/* - * The HMAC-SHA1 has is defined as: - * - * HMAC = SHA1(K XOR opad, SHA1(K XOR ipad, message)) - * - * "opad" is 64 bytes filled with 0x5c - * "ipad" is 64 bytes filled with 0x36 - * "K" is the key material - * - * If the key material "K" is longer than 64 bytes, then the key material - * will first be digested (K = SHA1(K)) resulting in a 20-byte hash. - * If the key material is shorter than 64 bytes, it is padded with zero - * bytes. - * - * This code precomputes "K XOR ipad" and "K XOR opad" since that just makes - * sense. - * - * This code was heavily influenced by Eric A. Young's in how the interface - * was designed and how this file is formatted. - */ - -#ifndef __HMAC_SHA1_H__ -#define __HMAC_SHA1_H__ - -#include "sha1hmac.h" -#include - -#ifdef __cplusplus -extern "C" { -#endif - -/* Filler bytes: */ -#define IPAD_BYTE 0x36 -#define OPAD_BYTE 0x5c -#define ZERO_BYTE 0x00 - -void HMAC_SHA1_Init(HMAC_SHA1_CTX *ctx) { - memset(&(ctx->key[0]), ZERO_BYTE, HMAC_SHA1_BLOCK_LENGTH); - memset(&(ctx->ipad[0]), IPAD_BYTE, HMAC_SHA1_BLOCK_LENGTH); - memset(&(ctx->opad[0]), OPAD_BYTE, HMAC_SHA1_BLOCK_LENGTH); - ctx->keylen = 0; - ctx->hashkey = 0; -} - -void HMAC_SHA1_UpdateKey(HMAC_SHA1_CTX *ctx, unsigned char *key, unsigned int keylen) { - - /* Do we have anything to work with? If not, return right away. */ - if (keylen < 1) - return; - - /* - * Is the total key length (current data and any previous data) - * longer than the hash block length? - */ - if (ctx->hashkey !=0 || (keylen + ctx->keylen) > HMAC_SHA1_BLOCK_LENGTH) { - /* - * Looks like the key data exceeds the hash block length, - * so that means we use a hash of the key as the key data - * instead. - */ - if (ctx->hashkey == 0) { - /* - * Ah, we haven't started hashing the key - * data yet, so we must init. the hash - * monster to begin feeding it. - */ - - /* Set the hash key flag to true (non-zero) */ - ctx->hashkey = 1; - - /* Init. the hash beastie... */ - SHA1_Init(&ctx->shactx); - - /* If there's any previous key data, use it */ - if (ctx->keylen > 0) { - SHA1_Update(&ctx->shactx, &(ctx->key[0]), ctx->keylen); - } - - /* - * Reset the key length to the future true - * key length, HMAC_SHA1_DIGEST_LENGTH - */ - ctx->keylen = HMAC_SHA1_DIGEST_LENGTH; - } - /* Now feed the latest key data to the has monster */ - SHA1_Update(&ctx->shactx, key, keylen); - } else { - /* - * Key data length hasn't yet exceeded the hash - * block length (HMAC_SHA1_BLOCK_LENGTH), so theres - * no need to hash the key data (yet). Copy it - * into the key buffer. - */ - memcpy(&(ctx->key[ctx->keylen]), key, keylen); - ctx->keylen += keylen; - } -} - -void HMAC_SHA1_EndKey(HMAC_SHA1_CTX *ctx) { - unsigned char *ipad, *opad, *key; - unsigned int i; - - /* Did we end up hashing the key? */ - if (ctx->hashkey) { - memset(&(ctx->key[0]), ZERO_BYTE, HMAC_SHA1_BLOCK_LENGTH); - /* Yes, so finish up and copy the key data */ - SHA1_Final(&(ctx->key[0]), &ctx->shactx); - /* ctx->keylen was already set correctly */ - } - /* Pad the key if necessary with zero bytes */ - if ((i = HMAC_SHA1_BLOCK_LENGTH - ctx->keylen) > 0) { - memset(&(ctx->key[ctx->keylen]), ZERO_BYTE, i); - } - - ipad = &(ctx->ipad[0]); - opad = &(ctx->opad[0]); - - /* Precompute the respective pads XORed with the key */ - key = &(ctx->key[0]); - for (i = 0; i < ctx->keylen; i++, key++) { - /* XOR the key byte with the appropriate pad filler byte */ - *ipad++ ^= *key; - *opad++ ^= *key; - } -} - -void HMAC_SHA1_StartMessage(HMAC_SHA1_CTX *ctx) { - SHA1_Init(&ctx->shactx); - SHA1_Update(&ctx->shactx, &(ctx->ipad[0]), HMAC_SHA1_BLOCK_LENGTH); -} - -void HMAC_SHA1_UpdateMessage(HMAC_SHA1_CTX *ctx, unsigned char *data, unsigned int datalen) { - SHA1_Update(&ctx->shactx, data, datalen); -} - -void HMAC_SHA1_EndMessage(unsigned char *out, HMAC_SHA1_CTX *ctx) { - unsigned char buf[HMAC_SHA1_DIGEST_LENGTH]; - SHA_CTX *c = &ctx->shactx; - - SHA1_Final(&(buf[0]), c); - SHA1_Init(c); - SHA1_Update(c, &(ctx->opad[0]), HMAC_SHA1_BLOCK_LENGTH); - SHA1_Update(c, buf, HMAC_SHA1_DIGEST_LENGTH); - SHA1_Final(out, c); -} - -void HMAC_SHA1_Done(HMAC_SHA1_CTX *ctx) { - /* Just to be safe, toast all context data */ - memset(&(ctx->ipad[0]), ZERO_BYTE, HMAC_SHA1_BLOCK_LENGTH); - memset(&(ctx->ipad[0]), ZERO_BYTE, HMAC_SHA1_BLOCK_LENGTH); - memset(&(ctx->key[0]), ZERO_BYTE, HMAC_SHA1_BLOCK_LENGTH); - ctx->keylen = 0; - ctx->hashkey = 0; -} - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/harbour/contrib/hbcrypt/sha1hmac.h b/harbour/contrib/hbcrypt/sha1hmac.h deleted file mode 100644 index b2de21ecf2..0000000000 --- a/harbour/contrib/hbcrypt/sha1hmac.h +++ /dev/null @@ -1,96 +0,0 @@ -/* - * $Id$ - */ - -/* - * hmac_sha1.h - * - * Version 1.0.0 - * - * Written by Aaron D. Gifford - * - * Copyright 1998, 2000 Aaron D. Gifford. All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the copyright holder nor the names of contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#ifndef HEADER_HMAC_SHA1_H -#define HEADER_HMAC_SHA1_H - -/* - * Include SHA-1 stuff - CHOOSE WHICH SOURCE to use for the SHA1 functions - * - * Use the below include if your system has a library with SHA1 and be sure - * to link to the library: - */ - -/* #include */ - -/* - * Or you can use Steve Reid's public domain SHA1 implementation: - */ - -#include "sha1.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define HMAC_SHA1_DIGEST_LENGTH 20 -#define HMAC_SHA1_BLOCK_LENGTH 64 - -/* The HMAC_SHA1 structure: */ -typedef struct _HMAC_SHA1_CTX { - unsigned char ipad[HMAC_SHA1_BLOCK_LENGTH]; - unsigned char opad[HMAC_SHA1_BLOCK_LENGTH]; - SHA_CTX shactx; - unsigned char key[HMAC_SHA1_BLOCK_LENGTH]; - unsigned int keylen; - unsigned int hashkey; -} HMAC_SHA1_CTX; - -#ifndef NOPROTO -void HMAC_SHA1_Init(HMAC_SHA1_CTX *ctx); -void HMAC_SHA1_UpdateKey(HMAC_SHA1_CTX *ctx, unsigned char *key, unsigned int keylen); -void HMAC_SHA1_EndKey(HMAC_SHA1_CTX *ctx); -void HMAC_SHA1_StartMessage(HMAC_SHA1_CTX *ctx); -void HMAC_SHA1_UpdateMessage(HMAC_SHA1_CTX *ctx, unsigned char *data, unsigned int datalen); -void HMAC_SHA1_EndMessage(unsigned char *out, HMAC_SHA1_CTX *ctx); -void HMAC_SHA1_Done(HMAC_SHA1_CTX *ctx); -#else -void HMAC_SHA1_Init(); -void HMAC_SHA1_UpdateKey(); -void HMAC_SHA1_EndKey(); -void HMAC_SHA1_StartMessage(); -void HMAC_SHA1_UpdateMessage(); -void HMAC_SHA1_EndMessage(); -void HMAC_SHA1_Done(); -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/harbour/contrib/hbcrypt/sha2.c b/harbour/contrib/hbcrypt/sha2.c deleted file mode 100644 index a1c1bcb2bc..0000000000 --- a/harbour/contrib/hbcrypt/sha2.c +++ /dev/null @@ -1,838 +0,0 @@ -/* - * $Id$ - */ - -/* - * FIPS 180-2 SHA-224/256/384/512 implementation - * Last update: 02/02/2007 - * Issue date: 04/30/2005 - * - * Copyright (C) 2005, 2007 Olivier Gay - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the project nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#if 0 -#define UNROLL_LOOPS /* Enable loops unrolling */ -#endif - -#include - -#include "sha2.h" - -#define SHFR(x, n) (x >> n) -#define ROTR(x, n) ((x >> n) | (x << ((sizeof(x) << 3) - n))) -#define ROTL(x, n) ((x << n) | (x >> ((sizeof(x) << 3) - n))) -#define CH(x, y, z) ((x & y) ^ (~x & z)) -#define MAJ(x, y, z) ((x & y) ^ (x & z) ^ (y & z)) - -#define SHA256_F1(x) (ROTR(x, 2) ^ ROTR(x, 13) ^ ROTR(x, 22)) -#define SHA256_F2(x) (ROTR(x, 6) ^ ROTR(x, 11) ^ ROTR(x, 25)) -#define SHA256_F3(x) (ROTR(x, 7) ^ ROTR(x, 18) ^ SHFR(x, 3)) -#define SHA256_F4(x) (ROTR(x, 17) ^ ROTR(x, 19) ^ SHFR(x, 10)) - -#define SHA512_F1(x) (ROTR(x, 28) ^ ROTR(x, 34) ^ ROTR(x, 39)) -#define SHA512_F2(x) (ROTR(x, 14) ^ ROTR(x, 18) ^ ROTR(x, 41)) -#define SHA512_F3(x) (ROTR(x, 1) ^ ROTR(x, 8) ^ SHFR(x, 7)) -#define SHA512_F4(x) (ROTR(x, 19) ^ ROTR(x, 61) ^ SHFR(x, 6)) - -#define UNPACK32(x, str) \ -{ \ - *((str) + 3) = (uint8) ((x) ); \ - *((str) + 2) = (uint8) ((x) >> 8); \ - *((str) + 1) = (uint8) ((x) >> 16); \ - *((str) + 0) = (uint8) ((x) >> 24); \ -} - -#define PACK32(str, x) \ -{ \ - *(x) = ((uint32) *((str) + 3) ) \ - | ((uint32) *((str) + 2) << 8) \ - | ((uint32) *((str) + 1) << 16) \ - | ((uint32) *((str) + 0) << 24); \ -} - -#define UNPACK64(x, str) \ -{ \ - *((str) + 7) = (uint8) ((x) ); \ - *((str) + 6) = (uint8) ((x) >> 8); \ - *((str) + 5) = (uint8) ((x) >> 16); \ - *((str) + 4) = (uint8) ((x) >> 24); \ - *((str) + 3) = (uint8) ((x) >> 32); \ - *((str) + 2) = (uint8) ((x) >> 40); \ - *((str) + 1) = (uint8) ((x) >> 48); \ - *((str) + 0) = (uint8) ((x) >> 56); \ -} - -#define PACK64(str, x) \ -{ \ - *(x) = ((uint64) *((str) + 7) ) \ - | ((uint64) *((str) + 6) << 8) \ - | ((uint64) *((str) + 5) << 16) \ - | ((uint64) *((str) + 4) << 24) \ - | ((uint64) *((str) + 3) << 32) \ - | ((uint64) *((str) + 2) << 40) \ - | ((uint64) *((str) + 1) << 48) \ - | ((uint64) *((str) + 0) << 56); \ -} - -/* Macros used for loops unrolling */ - -#define SHA256_SCR(i) \ -{ \ - w[i] = SHA256_F4(w[i - 2]) + w[i - 7] \ - + SHA256_F3(w[i - 15]) + w[i - 16]; \ -} - -#define SHA512_SCR(i) \ -{ \ - w[i] = SHA512_F4(w[i - 2]) + w[i - 7] \ - + SHA512_F3(w[i - 15]) + w[i - 16]; \ -} - -#define SHA256_EXP(a, b, c, d, e, f, g, h, j) \ -{ \ - t1 = wv[h] + SHA256_F2(wv[e]) + CH(wv[e], wv[f], wv[g]) \ - + sha256_k[j] + w[j]; \ - t2 = SHA256_F1(wv[a]) + MAJ(wv[a], wv[b], wv[c]); \ - wv[d] += t1; \ - wv[h] = t1 + t2; \ -} - -#define SHA512_EXP(a, b, c, d, e, f, g ,h, j) \ -{ \ - t1 = wv[h] + SHA512_F2(wv[e]) + CH(wv[e], wv[f], wv[g]) \ - + sha512_k[j] + w[j]; \ - t2 = SHA512_F1(wv[a]) + MAJ(wv[a], wv[b], wv[c]); \ - wv[d] += t1; \ - wv[h] = t1 + t2; \ -} - -#if defined( __BORLANDC__ ) -# if __BORLANDC__ >= 1328 -# define _ULL( num ) num##ui64 -# else -# define _ULL( num ) num -# endif -#elif defined( _MSC_VER ) -# define _ULL( num ) num -#else -# define _ULL( num ) num##ULL -#endif - -uint32 sha224_h0[8] = - {0xc1059ed8, 0x367cd507, 0x3070dd17, 0xf70e5939, - 0xffc00b31, 0x68581511, 0x64f98fa7, 0xbefa4fa4}; - -uint32 sha256_h0[8] = - {0x6a09e667, 0xbb67ae85, 0x3c6ef372, 0xa54ff53a, - 0x510e527f, 0x9b05688c, 0x1f83d9ab, 0x5be0cd19}; - -uint64 sha384_h0[8] = - {_ULL( 0xcbbb9d5dc1059ed8 ), _ULL( 0x629a292a367cd507 ), - _ULL( 0x9159015a3070dd17 ), _ULL( 0x152fecd8f70e5939 ), - _ULL( 0x67332667ffc00b31 ), _ULL( 0x8eb44a8768581511 ), - _ULL( 0xdb0c2e0d64f98fa7 ), _ULL( 0x47b5481dbefa4fa4 )}; - -uint64 sha512_h0[8] = - {_ULL( 0x6a09e667f3bcc908 ), _ULL( 0xbb67ae8584caa73b ) , - _ULL( 0x3c6ef372fe94f82b ), _ULL( 0xa54ff53a5f1d36f1 ) , - _ULL( 0x510e527fade682d1 ), _ULL( 0x9b05688c2b3e6c1f ) , - _ULL( 0x1f83d9abfb41bd6b ), _ULL( 0x5be0cd19137e2179 ) }; - -uint32 sha256_k[64] = - {0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, - 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5, - 0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, - 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174, - 0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, - 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da, - 0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, - 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967, - 0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, - 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85, - 0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, - 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070, - 0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, - 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3, - 0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, - 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2}; - -uint64 sha512_k[80] = - {_ULL( 0x428a2f98d728ae22 ), _ULL( 0x7137449123ef65cd ), - _ULL( 0xb5c0fbcfec4d3b2f ), _ULL( 0xe9b5dba58189dbbc ), - _ULL( 0x3956c25bf348b538 ), _ULL( 0x59f111f1b605d019 ), - _ULL( 0x923f82a4af194f9b ), _ULL( 0xab1c5ed5da6d8118 ), - _ULL( 0xd807aa98a3030242 ), _ULL( 0x12835b0145706fbe ), - _ULL( 0x243185be4ee4b28c ), _ULL( 0x550c7dc3d5ffb4e2 ), - _ULL( 0x72be5d74f27b896f ), _ULL( 0x80deb1fe3b1696b1 ), - _ULL( 0x9bdc06a725c71235 ), _ULL( 0xc19bf174cf692694 ), - _ULL( 0xe49b69c19ef14ad2 ), _ULL( 0xefbe4786384f25e3 ), - _ULL( 0x0fc19dc68b8cd5b5 ), _ULL( 0x240ca1cc77ac9c65 ), - _ULL( 0x2de92c6f592b0275 ), _ULL( 0x4a7484aa6ea6e483 ), - _ULL( 0x5cb0a9dcbd41fbd4 ), _ULL( 0x76f988da831153b5 ), - _ULL( 0x983e5152ee66dfab ), _ULL( 0xa831c66d2db43210 ), - _ULL( 0xb00327c898fb213f ), _ULL( 0xbf597fc7beef0ee4 ), - _ULL( 0xc6e00bf33da88fc2 ), _ULL( 0xd5a79147930aa725 ), - _ULL( 0x06ca6351e003826f ), _ULL( 0x142929670a0e6e70 ), - _ULL( 0x27b70a8546d22ffc ), _ULL( 0x2e1b21385c26c926 ), - _ULL( 0x4d2c6dfc5ac42aed ), _ULL( 0x53380d139d95b3df ), - _ULL( 0x650a73548baf63de ), _ULL( 0x766a0abb3c77b2a8 ), - _ULL( 0x81c2c92e47edaee6 ), _ULL( 0x92722c851482353b ), - _ULL( 0xa2bfe8a14cf10364 ), _ULL( 0xa81a664bbc423001 ), - _ULL( 0xc24b8b70d0f89791 ), _ULL( 0xc76c51a30654be30 ), - _ULL( 0xd192e819d6ef5218 ), _ULL( 0xd69906245565a910 ), - _ULL( 0xf40e35855771202a ), _ULL( 0x106aa07032bbd1b8 ), - _ULL( 0x19a4c116b8d2d0c8 ), _ULL( 0x1e376c085141ab53 ), - _ULL( 0x2748774cdf8eeb99 ), _ULL( 0x34b0bcb5e19b48a8 ), - _ULL( 0x391c0cb3c5c95a63 ), _ULL( 0x4ed8aa4ae3418acb ), - _ULL( 0x5b9cca4f7763e373 ), _ULL( 0x682e6ff3d6b2b8a3 ), - _ULL( 0x748f82ee5defb2fc ), _ULL( 0x78a5636f43172f60 ), - _ULL( 0x84c87814a1f0ab72 ), _ULL( 0x8cc702081a6439ec ), - _ULL( 0x90befffa23631e28 ), _ULL( 0xa4506cebde82bde9 ), - _ULL( 0xbef9a3f7b2c67915 ), _ULL( 0xc67178f2e372532b ), - _ULL( 0xca273eceea26619c ), _ULL( 0xd186b8c721c0c207 ), - _ULL( 0xeada7dd6cde0eb1e ), _ULL( 0xf57d4f7fee6ed178 ), - _ULL( 0x06f067aa72176fba ), _ULL( 0x0a637dc5a2c898a6 ), - _ULL( 0x113f9804bef90dae ), _ULL( 0x1b710b35131c471b ), - _ULL( 0x28db77f523047d84 ), _ULL( 0x32caab7b40c72493 ), - _ULL( 0x3c9ebe0a15c9bebc ), _ULL( 0x431d67c49c100d4c ), - _ULL( 0x4cc5d4becb3e42b6 ), _ULL( 0x597f299cfc657e2a ), - _ULL( 0x5fcb6fab3ad6faec ), _ULL( 0x6c44198c4a475817 )}; - -/* SHA-256 functions */ - -void sha256_transf(sha256_ctx *ctx, const unsigned char *message, - unsigned int block_nb) -{ - uint32 w[64]; - uint32 wv[8]; - uint32 t1, t2; - const unsigned char *sub_block; - int i; - -#ifndef UNROLL_LOOPS - int j; -#endif - - for (i = 0; i < (int) block_nb; i++) { - sub_block = message + (i << 6); - -#ifndef UNROLL_LOOPS - for (j = 0; j < 16; j++) { - PACK32(&sub_block[j << 2], &w[j]); - } - - for (j = 16; j < 64; j++) { - SHA256_SCR(j); - } - - for (j = 0; j < 8; j++) { - wv[j] = ctx->h[j]; - } - - for (j = 0; j < 64; j++) { - t1 = wv[7] + SHA256_F2(wv[4]) + CH(wv[4], wv[5], wv[6]) - + sha256_k[j] + w[j]; - t2 = SHA256_F1(wv[0]) + MAJ(wv[0], wv[1], wv[2]); - wv[7] = wv[6]; - wv[6] = wv[5]; - wv[5] = wv[4]; - wv[4] = wv[3] + t1; - wv[3] = wv[2]; - wv[2] = wv[1]; - wv[1] = wv[0]; - wv[0] = t1 + t2; - } - - for (j = 0; j < 8; j++) { - ctx->h[j] += wv[j]; - } -#else - PACK32(&sub_block[ 0], &w[ 0]); PACK32(&sub_block[ 4], &w[ 1]); - PACK32(&sub_block[ 8], &w[ 2]); PACK32(&sub_block[12], &w[ 3]); - PACK32(&sub_block[16], &w[ 4]); PACK32(&sub_block[20], &w[ 5]); - PACK32(&sub_block[24], &w[ 6]); PACK32(&sub_block[28], &w[ 7]); - PACK32(&sub_block[32], &w[ 8]); PACK32(&sub_block[36], &w[ 9]); - PACK32(&sub_block[40], &w[10]); PACK32(&sub_block[44], &w[11]); - PACK32(&sub_block[48], &w[12]); PACK32(&sub_block[52], &w[13]); - PACK32(&sub_block[56], &w[14]); PACK32(&sub_block[60], &w[15]); - - SHA256_SCR(16); SHA256_SCR(17); SHA256_SCR(18); SHA256_SCR(19); - SHA256_SCR(20); SHA256_SCR(21); SHA256_SCR(22); SHA256_SCR(23); - SHA256_SCR(24); SHA256_SCR(25); SHA256_SCR(26); SHA256_SCR(27); - SHA256_SCR(28); SHA256_SCR(29); SHA256_SCR(30); SHA256_SCR(31); - SHA256_SCR(32); SHA256_SCR(33); SHA256_SCR(34); SHA256_SCR(35); - SHA256_SCR(36); SHA256_SCR(37); SHA256_SCR(38); SHA256_SCR(39); - SHA256_SCR(40); SHA256_SCR(41); SHA256_SCR(42); SHA256_SCR(43); - SHA256_SCR(44); SHA256_SCR(45); SHA256_SCR(46); SHA256_SCR(47); - SHA256_SCR(48); SHA256_SCR(49); SHA256_SCR(50); SHA256_SCR(51); - SHA256_SCR(52); SHA256_SCR(53); SHA256_SCR(54); SHA256_SCR(55); - SHA256_SCR(56); SHA256_SCR(57); SHA256_SCR(58); SHA256_SCR(59); - SHA256_SCR(60); SHA256_SCR(61); SHA256_SCR(62); SHA256_SCR(63); - - wv[0] = ctx->h[0]; wv[1] = ctx->h[1]; - wv[2] = ctx->h[2]; wv[3] = ctx->h[3]; - wv[4] = ctx->h[4]; wv[5] = ctx->h[5]; - wv[6] = ctx->h[6]; wv[7] = ctx->h[7]; - - SHA256_EXP(0,1,2,3,4,5,6,7, 0); SHA256_EXP(7,0,1,2,3,4,5,6, 1); - SHA256_EXP(6,7,0,1,2,3,4,5, 2); SHA256_EXP(5,6,7,0,1,2,3,4, 3); - SHA256_EXP(4,5,6,7,0,1,2,3, 4); SHA256_EXP(3,4,5,6,7,0,1,2, 5); - SHA256_EXP(2,3,4,5,6,7,0,1, 6); SHA256_EXP(1,2,3,4,5,6,7,0, 7); - SHA256_EXP(0,1,2,3,4,5,6,7, 8); SHA256_EXP(7,0,1,2,3,4,5,6, 9); - SHA256_EXP(6,7,0,1,2,3,4,5,10); SHA256_EXP(5,6,7,0,1,2,3,4,11); - SHA256_EXP(4,5,6,7,0,1,2,3,12); SHA256_EXP(3,4,5,6,7,0,1,2,13); - SHA256_EXP(2,3,4,5,6,7,0,1,14); SHA256_EXP(1,2,3,4,5,6,7,0,15); - SHA256_EXP(0,1,2,3,4,5,6,7,16); SHA256_EXP(7,0,1,2,3,4,5,6,17); - SHA256_EXP(6,7,0,1,2,3,4,5,18); SHA256_EXP(5,6,7,0,1,2,3,4,19); - SHA256_EXP(4,5,6,7,0,1,2,3,20); SHA256_EXP(3,4,5,6,7,0,1,2,21); - SHA256_EXP(2,3,4,5,6,7,0,1,22); SHA256_EXP(1,2,3,4,5,6,7,0,23); - SHA256_EXP(0,1,2,3,4,5,6,7,24); SHA256_EXP(7,0,1,2,3,4,5,6,25); - SHA256_EXP(6,7,0,1,2,3,4,5,26); SHA256_EXP(5,6,7,0,1,2,3,4,27); - SHA256_EXP(4,5,6,7,0,1,2,3,28); SHA256_EXP(3,4,5,6,7,0,1,2,29); - SHA256_EXP(2,3,4,5,6,7,0,1,30); SHA256_EXP(1,2,3,4,5,6,7,0,31); - SHA256_EXP(0,1,2,3,4,5,6,7,32); SHA256_EXP(7,0,1,2,3,4,5,6,33); - SHA256_EXP(6,7,0,1,2,3,4,5,34); SHA256_EXP(5,6,7,0,1,2,3,4,35); - SHA256_EXP(4,5,6,7,0,1,2,3,36); SHA256_EXP(3,4,5,6,7,0,1,2,37); - SHA256_EXP(2,3,4,5,6,7,0,1,38); SHA256_EXP(1,2,3,4,5,6,7,0,39); - SHA256_EXP(0,1,2,3,4,5,6,7,40); SHA256_EXP(7,0,1,2,3,4,5,6,41); - SHA256_EXP(6,7,0,1,2,3,4,5,42); SHA256_EXP(5,6,7,0,1,2,3,4,43); - SHA256_EXP(4,5,6,7,0,1,2,3,44); SHA256_EXP(3,4,5,6,7,0,1,2,45); - SHA256_EXP(2,3,4,5,6,7,0,1,46); SHA256_EXP(1,2,3,4,5,6,7,0,47); - SHA256_EXP(0,1,2,3,4,5,6,7,48); SHA256_EXP(7,0,1,2,3,4,5,6,49); - SHA256_EXP(6,7,0,1,2,3,4,5,50); SHA256_EXP(5,6,7,0,1,2,3,4,51); - SHA256_EXP(4,5,6,7,0,1,2,3,52); SHA256_EXP(3,4,5,6,7,0,1,2,53); - SHA256_EXP(2,3,4,5,6,7,0,1,54); SHA256_EXP(1,2,3,4,5,6,7,0,55); - SHA256_EXP(0,1,2,3,4,5,6,7,56); SHA256_EXP(7,0,1,2,3,4,5,6,57); - SHA256_EXP(6,7,0,1,2,3,4,5,58); SHA256_EXP(5,6,7,0,1,2,3,4,59); - SHA256_EXP(4,5,6,7,0,1,2,3,60); SHA256_EXP(3,4,5,6,7,0,1,2,61); - SHA256_EXP(2,3,4,5,6,7,0,1,62); SHA256_EXP(1,2,3,4,5,6,7,0,63); - - ctx->h[0] += wv[0]; ctx->h[1] += wv[1]; - ctx->h[2] += wv[2]; ctx->h[3] += wv[3]; - ctx->h[4] += wv[4]; ctx->h[5] += wv[5]; - ctx->h[6] += wv[6]; ctx->h[7] += wv[7]; -#endif /* !UNROLL_LOOPS */ - } -} - -void sha256(const unsigned char *message, unsigned int len, unsigned char *digest) -{ - sha256_ctx ctx; - - sha256_init(&ctx); - sha256_update(&ctx, message, len); - sha256_final(&ctx, digest); -} - -void sha256_init(sha256_ctx *ctx) -{ -#ifndef UNROLL_LOOPS - int i; - for (i = 0; i < 8; i++) { - ctx->h[i] = sha256_h0[i]; - } -#else - ctx->h[0] = sha256_h0[0]; ctx->h[1] = sha256_h0[1]; - ctx->h[2] = sha256_h0[2]; ctx->h[3] = sha256_h0[3]; - ctx->h[4] = sha256_h0[4]; ctx->h[5] = sha256_h0[5]; - ctx->h[6] = sha256_h0[6]; ctx->h[7] = sha256_h0[7]; -#endif /* !UNROLL_LOOPS */ - - ctx->len = 0; - ctx->tot_len = 0; -} - -void sha256_update(sha256_ctx *ctx, const unsigned char *message, - unsigned int len) -{ - unsigned int block_nb; - unsigned int new_len, rem_len, tmp_len; - const unsigned char *shifted_message; - - tmp_len = SHA256_BLOCK_SIZE - ctx->len; - rem_len = len < tmp_len ? len : tmp_len; - - memcpy(&ctx->block[ctx->len], message, rem_len); - - if (ctx->len + len < SHA256_BLOCK_SIZE) { - ctx->len += len; - return; - } - - new_len = len - rem_len; - block_nb = new_len / SHA256_BLOCK_SIZE; - - shifted_message = message + rem_len; - - sha256_transf(ctx, ctx->block, 1); - sha256_transf(ctx, shifted_message, block_nb); - - rem_len = new_len % SHA256_BLOCK_SIZE; - - memcpy(ctx->block, &shifted_message[block_nb << 6], - rem_len); - - ctx->len = rem_len; - ctx->tot_len += (block_nb + 1) << 6; -} - -void sha256_final(sha256_ctx *ctx, unsigned char *digest) -{ - unsigned int block_nb; - unsigned int pm_len; - unsigned int len_b; - -#ifndef UNROLL_LOOPS - int i; -#endif - - block_nb = (1 + ((SHA256_BLOCK_SIZE - 9) - < (ctx->len % SHA256_BLOCK_SIZE))); - - len_b = (ctx->tot_len + ctx->len) << 3; - pm_len = block_nb << 6; - - memset(ctx->block + ctx->len, 0, pm_len - ctx->len); - ctx->block[ctx->len] = 0x80; - UNPACK32(len_b, ctx->block + pm_len - 4); - - sha256_transf(ctx, ctx->block, block_nb); - -#ifndef UNROLL_LOOPS - for (i = 0 ; i < 8; i++) { - UNPACK32(ctx->h[i], &digest[i << 2]); - } -#else - UNPACK32(ctx->h[0], &digest[ 0]); - UNPACK32(ctx->h[1], &digest[ 4]); - UNPACK32(ctx->h[2], &digest[ 8]); - UNPACK32(ctx->h[3], &digest[12]); - UNPACK32(ctx->h[4], &digest[16]); - UNPACK32(ctx->h[5], &digest[20]); - UNPACK32(ctx->h[6], &digest[24]); - UNPACK32(ctx->h[7], &digest[28]); -#endif /* !UNROLL_LOOPS */ -} - -/* SHA-512 functions */ - -void sha512_transf(sha512_ctx *ctx, const unsigned char *message, - unsigned int block_nb) -{ - uint64 w[80]; - uint64 wv[8]; - uint64 t1, t2; - const unsigned char *sub_block; - int i, j; - - for (i = 0; i < (int) block_nb; i++) { - sub_block = message + (i << 7); - -#ifndef UNROLL_LOOPS - for (j = 0; j < 16; j++) { - PACK64(&sub_block[j << 3], &w[j]); - } - - for (j = 16; j < 80; j++) { - SHA512_SCR(j); - } - - for (j = 0; j < 8; j++) { - wv[j] = ctx->h[j]; - } - - for (j = 0; j < 80; j++) { - t1 = wv[7] + SHA512_F2(wv[4]) + CH(wv[4], wv[5], wv[6]) - + sha512_k[j] + w[j]; - t2 = SHA512_F1(wv[0]) + MAJ(wv[0], wv[1], wv[2]); - wv[7] = wv[6]; - wv[6] = wv[5]; - wv[5] = wv[4]; - wv[4] = wv[3] + t1; - wv[3] = wv[2]; - wv[2] = wv[1]; - wv[1] = wv[0]; - wv[0] = t1 + t2; - } - - for (j = 0; j < 8; j++) { - ctx->h[j] += wv[j]; - } -#else - PACK64(&sub_block[ 0], &w[ 0]); PACK64(&sub_block[ 8], &w[ 1]); - PACK64(&sub_block[ 16], &w[ 2]); PACK64(&sub_block[ 24], &w[ 3]); - PACK64(&sub_block[ 32], &w[ 4]); PACK64(&sub_block[ 40], &w[ 5]); - PACK64(&sub_block[ 48], &w[ 6]); PACK64(&sub_block[ 56], &w[ 7]); - PACK64(&sub_block[ 64], &w[ 8]); PACK64(&sub_block[ 72], &w[ 9]); - PACK64(&sub_block[ 80], &w[10]); PACK64(&sub_block[ 88], &w[11]); - PACK64(&sub_block[ 96], &w[12]); PACK64(&sub_block[104], &w[13]); - PACK64(&sub_block[112], &w[14]); PACK64(&sub_block[120], &w[15]); - - SHA512_SCR(16); SHA512_SCR(17); SHA512_SCR(18); SHA512_SCR(19); - SHA512_SCR(20); SHA512_SCR(21); SHA512_SCR(22); SHA512_SCR(23); - SHA512_SCR(24); SHA512_SCR(25); SHA512_SCR(26); SHA512_SCR(27); - SHA512_SCR(28); SHA512_SCR(29); SHA512_SCR(30); SHA512_SCR(31); - SHA512_SCR(32); SHA512_SCR(33); SHA512_SCR(34); SHA512_SCR(35); - SHA512_SCR(36); SHA512_SCR(37); SHA512_SCR(38); SHA512_SCR(39); - SHA512_SCR(40); SHA512_SCR(41); SHA512_SCR(42); SHA512_SCR(43); - SHA512_SCR(44); SHA512_SCR(45); SHA512_SCR(46); SHA512_SCR(47); - SHA512_SCR(48); SHA512_SCR(49); SHA512_SCR(50); SHA512_SCR(51); - SHA512_SCR(52); SHA512_SCR(53); SHA512_SCR(54); SHA512_SCR(55); - SHA512_SCR(56); SHA512_SCR(57); SHA512_SCR(58); SHA512_SCR(59); - SHA512_SCR(60); SHA512_SCR(61); SHA512_SCR(62); SHA512_SCR(63); - SHA512_SCR(64); SHA512_SCR(65); SHA512_SCR(66); SHA512_SCR(67); - SHA512_SCR(68); SHA512_SCR(69); SHA512_SCR(70); SHA512_SCR(71); - SHA512_SCR(72); SHA512_SCR(73); SHA512_SCR(74); SHA512_SCR(75); - SHA512_SCR(76); SHA512_SCR(77); SHA512_SCR(78); SHA512_SCR(79); - - wv[0] = ctx->h[0]; wv[1] = ctx->h[1]; - wv[2] = ctx->h[2]; wv[3] = ctx->h[3]; - wv[4] = ctx->h[4]; wv[5] = ctx->h[5]; - wv[6] = ctx->h[6]; wv[7] = ctx->h[7]; - - j = 0; - - do { - SHA512_EXP(0,1,2,3,4,5,6,7,j); j++; - SHA512_EXP(7,0,1,2,3,4,5,6,j); j++; - SHA512_EXP(6,7,0,1,2,3,4,5,j); j++; - SHA512_EXP(5,6,7,0,1,2,3,4,j); j++; - SHA512_EXP(4,5,6,7,0,1,2,3,j); j++; - SHA512_EXP(3,4,5,6,7,0,1,2,j); j++; - SHA512_EXP(2,3,4,5,6,7,0,1,j); j++; - SHA512_EXP(1,2,3,4,5,6,7,0,j); j++; - } while (j < 80); - - ctx->h[0] += wv[0]; ctx->h[1] += wv[1]; - ctx->h[2] += wv[2]; ctx->h[3] += wv[3]; - ctx->h[4] += wv[4]; ctx->h[5] += wv[5]; - ctx->h[6] += wv[6]; ctx->h[7] += wv[7]; -#endif /* !UNROLL_LOOPS */ - } -} - -void sha512(const unsigned char *message, unsigned int len, - unsigned char *digest) -{ - sha512_ctx ctx; - - sha512_init(&ctx); - sha512_update(&ctx, message, len); - sha512_final(&ctx, digest); -} - -void sha512_init(sha512_ctx *ctx) -{ -#ifndef UNROLL_LOOPS - int i; - for (i = 0; i < 8; i++) { - ctx->h[i] = sha512_h0[i]; - } -#else - ctx->h[0] = sha512_h0[0]; ctx->h[1] = sha512_h0[1]; - ctx->h[2] = sha512_h0[2]; ctx->h[3] = sha512_h0[3]; - ctx->h[4] = sha512_h0[4]; ctx->h[5] = sha512_h0[5]; - ctx->h[6] = sha512_h0[6]; ctx->h[7] = sha512_h0[7]; -#endif /* !UNROLL_LOOPS */ - - ctx->len = 0; - ctx->tot_len = 0; -} - -void sha512_update(sha512_ctx *ctx, const unsigned char *message, - unsigned int len) -{ - unsigned int block_nb; - unsigned int new_len, rem_len, tmp_len; - const unsigned char *shifted_message; - - tmp_len = SHA512_BLOCK_SIZE - ctx->len; - rem_len = len < tmp_len ? len : tmp_len; - - memcpy(&ctx->block[ctx->len], message, rem_len); - - if (ctx->len + len < SHA512_BLOCK_SIZE) { - ctx->len += len; - return; - } - - new_len = len - rem_len; - block_nb = new_len / SHA512_BLOCK_SIZE; - - shifted_message = message + rem_len; - - sha512_transf(ctx, ctx->block, 1); - sha512_transf(ctx, shifted_message, block_nb); - - rem_len = new_len % SHA512_BLOCK_SIZE; - - memcpy(ctx->block, &shifted_message[block_nb << 7], - rem_len); - - ctx->len = rem_len; - ctx->tot_len += (block_nb + 1) << 7; -} - -void sha512_final(sha512_ctx *ctx, unsigned char *digest) -{ - unsigned int block_nb; - unsigned int pm_len; - unsigned int len_b; - -#ifndef UNROLL_LOOPS - int i; -#endif - - block_nb = 1 + ((SHA512_BLOCK_SIZE - 17) - < (ctx->len % SHA512_BLOCK_SIZE)); - - len_b = (ctx->tot_len + ctx->len) << 3; - pm_len = block_nb << 7; - - memset(ctx->block + ctx->len, 0, pm_len - ctx->len); - ctx->block[ctx->len] = 0x80; - UNPACK32(len_b, ctx->block + pm_len - 4); - - sha512_transf(ctx, ctx->block, block_nb); - -#ifndef UNROLL_LOOPS - for (i = 0 ; i < 8; i++) { - UNPACK64(ctx->h[i], &digest[i << 3]); - } -#else - UNPACK64(ctx->h[0], &digest[ 0]); - UNPACK64(ctx->h[1], &digest[ 8]); - UNPACK64(ctx->h[2], &digest[16]); - UNPACK64(ctx->h[3], &digest[24]); - UNPACK64(ctx->h[4], &digest[32]); - UNPACK64(ctx->h[5], &digest[40]); - UNPACK64(ctx->h[6], &digest[48]); - UNPACK64(ctx->h[7], &digest[56]); -#endif /* !UNROLL_LOOPS */ -} - -/* SHA-384 functions */ - -void sha384(const unsigned char *message, unsigned int len, - unsigned char *digest) -{ - sha384_ctx ctx; - - sha384_init(&ctx); - sha384_update(&ctx, message, len); - sha384_final(&ctx, digest); -} - -void sha384_init(sha384_ctx *ctx) -{ -#ifndef UNROLL_LOOPS - int i; - for (i = 0; i < 8; i++) { - ctx->h[i] = sha384_h0[i]; - } -#else - ctx->h[0] = sha384_h0[0]; ctx->h[1] = sha384_h0[1]; - ctx->h[2] = sha384_h0[2]; ctx->h[3] = sha384_h0[3]; - ctx->h[4] = sha384_h0[4]; ctx->h[5] = sha384_h0[5]; - ctx->h[6] = sha384_h0[6]; ctx->h[7] = sha384_h0[7]; -#endif /* !UNROLL_LOOPS */ - - ctx->len = 0; - ctx->tot_len = 0; -} - -void sha384_update(sha384_ctx *ctx, const unsigned char *message, - unsigned int len) -{ - unsigned int block_nb; - unsigned int new_len, rem_len, tmp_len; - const unsigned char *shifted_message; - - tmp_len = SHA384_BLOCK_SIZE - ctx->len; - rem_len = len < tmp_len ? len : tmp_len; - - memcpy(&ctx->block[ctx->len], message, rem_len); - - if (ctx->len + len < SHA384_BLOCK_SIZE) { - ctx->len += len; - return; - } - - new_len = len - rem_len; - block_nb = new_len / SHA384_BLOCK_SIZE; - - shifted_message = message + rem_len; - - sha512_transf(ctx, ctx->block, 1); - sha512_transf(ctx, shifted_message, block_nb); - - rem_len = new_len % SHA384_BLOCK_SIZE; - - memcpy(ctx->block, &shifted_message[block_nb << 7], - rem_len); - - ctx->len = rem_len; - ctx->tot_len += (block_nb + 1) << 7; -} - -void sha384_final(sha384_ctx *ctx, unsigned char *digest) -{ - unsigned int block_nb; - unsigned int pm_len; - unsigned int len_b; - -#ifndef UNROLL_LOOPS - int i; -#endif - - block_nb = (1 + ((SHA384_BLOCK_SIZE - 17) - < (ctx->len % SHA384_BLOCK_SIZE))); - - len_b = (ctx->tot_len + ctx->len) << 3; - pm_len = block_nb << 7; - - memset(ctx->block + ctx->len, 0, pm_len - ctx->len); - ctx->block[ctx->len] = 0x80; - UNPACK32(len_b, ctx->block + pm_len - 4); - - sha512_transf(ctx, ctx->block, block_nb); - -#ifndef UNROLL_LOOPS - for (i = 0 ; i < 6; i++) { - UNPACK64(ctx->h[i], &digest[i << 3]); - } -#else - UNPACK64(ctx->h[0], &digest[ 0]); - UNPACK64(ctx->h[1], &digest[ 8]); - UNPACK64(ctx->h[2], &digest[16]); - UNPACK64(ctx->h[3], &digest[24]); - UNPACK64(ctx->h[4], &digest[32]); - UNPACK64(ctx->h[5], &digest[40]); -#endif /* !UNROLL_LOOPS */ -} - -/* SHA-224 functions */ - -void sha224(const unsigned char *message, unsigned int len, - unsigned char *digest) -{ - sha224_ctx ctx; - - sha224_init(&ctx); - sha224_update(&ctx, message, len); - sha224_final(&ctx, digest); -} - -void sha224_init(sha224_ctx *ctx) -{ -#ifndef UNROLL_LOOPS - int i; - for (i = 0; i < 8; i++) { - ctx->h[i] = sha224_h0[i]; - } -#else - ctx->h[0] = sha224_h0[0]; ctx->h[1] = sha224_h0[1]; - ctx->h[2] = sha224_h0[2]; ctx->h[3] = sha224_h0[3]; - ctx->h[4] = sha224_h0[4]; ctx->h[5] = sha224_h0[5]; - ctx->h[6] = sha224_h0[6]; ctx->h[7] = sha224_h0[7]; -#endif /* !UNROLL_LOOPS */ - - ctx->len = 0; - ctx->tot_len = 0; -} - -void sha224_update(sha224_ctx *ctx, const unsigned char *message, - unsigned int len) -{ - unsigned int block_nb; - unsigned int new_len, rem_len, tmp_len; - const unsigned char *shifted_message; - - tmp_len = SHA224_BLOCK_SIZE - ctx->len; - rem_len = len < tmp_len ? len : tmp_len; - - memcpy(&ctx->block[ctx->len], message, rem_len); - - if (ctx->len + len < SHA224_BLOCK_SIZE) { - ctx->len += len; - return; - } - - new_len = len - rem_len; - block_nb = new_len / SHA224_BLOCK_SIZE; - - shifted_message = message + rem_len; - - sha256_transf(ctx, ctx->block, 1); - sha256_transf(ctx, shifted_message, block_nb); - - rem_len = new_len % SHA224_BLOCK_SIZE; - - memcpy(ctx->block, &shifted_message[block_nb << 6], - rem_len); - - ctx->len = rem_len; - ctx->tot_len += (block_nb + 1) << 6; -} - -void sha224_final(sha224_ctx *ctx, unsigned char *digest) -{ - unsigned int block_nb; - unsigned int pm_len; - unsigned int len_b; - -#ifndef UNROLL_LOOPS - int i; -#endif - - block_nb = (1 + ((SHA224_BLOCK_SIZE - 9) - < (ctx->len % SHA224_BLOCK_SIZE))); - - len_b = (ctx->tot_len + ctx->len) << 3; - pm_len = block_nb << 6; - - memset(ctx->block + ctx->len, 0, pm_len - ctx->len); - ctx->block[ctx->len] = 0x80; - UNPACK32(len_b, ctx->block + pm_len - 4); - - sha256_transf(ctx, ctx->block, block_nb); - -#ifndef UNROLL_LOOPS - for (i = 0 ; i < 7; i++) { - UNPACK32(ctx->h[i], &digest[i << 2]); - } -#else - UNPACK32(ctx->h[0], &digest[ 0]); - UNPACK32(ctx->h[1], &digest[ 4]); - UNPACK32(ctx->h[2], &digest[ 8]); - UNPACK32(ctx->h[3], &digest[12]); - UNPACK32(ctx->h[4], &digest[16]); - UNPACK32(ctx->h[5], &digest[20]); - UNPACK32(ctx->h[6], &digest[24]); -#endif /* !UNROLL_LOOPS */ -} diff --git a/harbour/contrib/hbcrypt/sha2.h b/harbour/contrib/hbcrypt/sha2.h deleted file mode 100644 index 30be9e801f..0000000000 --- a/harbour/contrib/hbcrypt/sha2.h +++ /dev/null @@ -1,115 +0,0 @@ -/* - * $Id$ - */ - -/* - * FIPS 180-2 SHA-224/256/384/512 implementation - * Last update: 02/02/2007 - * Issue date: 04/30/2005 - * - * Copyright (C) 2005, 2007 Olivier Gay - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the project nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#ifndef SHA2_H -#define SHA2_H - -#define SHA224_DIGEST_SIZE ( 224 / 8) -#define SHA256_DIGEST_SIZE ( 256 / 8) -#define SHA384_DIGEST_SIZE ( 384 / 8) -#define SHA512_DIGEST_SIZE ( 512 / 8) - -#define SHA256_BLOCK_SIZE ( 512 / 8) -#define SHA512_BLOCK_SIZE (1024 / 8) -#define SHA384_BLOCK_SIZE SHA512_BLOCK_SIZE -#define SHA224_BLOCK_SIZE SHA256_BLOCK_SIZE - -#ifndef SHA2_TYPES -#define SHA2_TYPES -typedef unsigned char uint8; -typedef unsigned int uint32; -#if defined( __BORLANDC__ ) -typedef unsigned __int64 uint64; -#else -typedef unsigned long long uint64; -#endif -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - unsigned int tot_len; - unsigned int len; - unsigned char block[2 * SHA256_BLOCK_SIZE]; - uint32 h[8]; -} sha256_ctx; - -typedef struct { - unsigned int tot_len; - unsigned int len; - unsigned char block[2 * SHA512_BLOCK_SIZE]; - uint64 h[8]; -} sha512_ctx; - -typedef sha512_ctx sha384_ctx; -typedef sha256_ctx sha224_ctx; - -void sha224_init(sha224_ctx *ctx); -void sha224_update(sha224_ctx *ctx, const unsigned char *message, - unsigned int len); -void sha224_final(sha224_ctx *ctx, unsigned char *digest); -void sha224(const unsigned char *message, unsigned int len, - unsigned char *digest); - -void sha256_init(sha256_ctx * ctx); -void sha256_update(sha256_ctx *ctx, const unsigned char *message, - unsigned int len); -void sha256_final(sha256_ctx *ctx, unsigned char *digest); -void sha256(const unsigned char *message, unsigned int len, - unsigned char *digest); - -void sha384_init(sha384_ctx *ctx); -void sha384_update(sha384_ctx *ctx, const unsigned char *message, - unsigned int len); -void sha384_final(sha384_ctx *ctx, unsigned char *digest); -void sha384(const unsigned char *message, unsigned int len, - unsigned char *digest); - -void sha512_init(sha512_ctx *ctx); -void sha512_update(sha512_ctx *ctx, const unsigned char *message, - unsigned int len); -void sha512_final(sha512_ctx *ctx, unsigned char *digest); -void sha512(const unsigned char *message, unsigned int len, - unsigned char *digest); - -#ifdef __cplusplus -} -#endif - -#endif /* !SHA2_H */ diff --git a/harbour/contrib/hbcrypt/sha2hmac.c b/harbour/contrib/hbcrypt/sha2hmac.c deleted file mode 100644 index 0f63fc3909..0000000000 --- a/harbour/contrib/hbcrypt/sha2hmac.c +++ /dev/null @@ -1,384 +0,0 @@ -/* - * $Id$ - */ - -/*- - * HMAC-SHA-224/256/384/512 implementation - * Last update: 06/15/2005 - * Issue date: 06/15/2005 - * - * Copyright (C) 2005 Olivier Gay - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the project nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#include - -#include "sha2hmac.h" - -/* HMAC-SHA-224 functions */ - -void hmac_sha224_init(hmac_sha224_ctx *ctx, unsigned char *key, - unsigned int key_size) -{ - unsigned int fill; - unsigned int num; - - unsigned char *key_used; - unsigned char key_temp[SHA224_DIGEST_SIZE]; - unsigned int i; - - if (key_size == SHA224_BLOCK_SIZE) { - key_used = key; - num = SHA224_BLOCK_SIZE; - } else { - if (key_size > SHA224_BLOCK_SIZE){ - key_used = key_temp; - num = SHA224_DIGEST_SIZE; - sha224(key, key_size, key_used); - } else { /* key_size > SHA224_BLOCK_SIZE */ - key_used = key; - num = key_size; - } - fill = SHA224_BLOCK_SIZE - num; - - memset(ctx->block_ipad + num, 0x36, fill); - memset(ctx->block_opad + num, 0x5c, fill); - } - - for (i = 0; i < num; i++) { - ctx->block_ipad[i] = key_used[i] ^ 0x36; - ctx->block_opad[i] = key_used[i] ^ 0x5c; - } - - sha224_init(&ctx->ctx_inside); - sha224_update(&ctx->ctx_inside, ctx->block_ipad, SHA224_BLOCK_SIZE); - - sha224_init(&ctx->ctx_outside); - sha224_update(&ctx->ctx_outside, ctx->block_opad, - SHA224_BLOCK_SIZE); - - /* for hmac_reinit */ - memcpy(&ctx->ctx_inside_reinit, &ctx->ctx_inside, - sizeof(sha224_ctx)); - memcpy(&ctx->ctx_outside_reinit, &ctx->ctx_outside, - sizeof(sha224_ctx)); -} - -void hmac_sha224_reinit(hmac_sha224_ctx *ctx) -{ - memcpy(&ctx->ctx_inside, &ctx->ctx_inside_reinit, - sizeof(sha224_ctx)); - memcpy(&ctx->ctx_outside, &ctx->ctx_outside_reinit, - sizeof(sha224_ctx)); -} - -void hmac_sha224_update(hmac_sha224_ctx *ctx, unsigned char *message, - unsigned int message_len) -{ - sha224_update(&ctx->ctx_inside, message, message_len); -} - -void hmac_sha224_final(hmac_sha224_ctx *ctx, unsigned char *mac, - unsigned int mac_size) -{ - unsigned char digest_inside[SHA224_DIGEST_SIZE]; - unsigned char mac_temp[SHA224_DIGEST_SIZE]; - - sha224_final(&ctx->ctx_inside, digest_inside); - sha224_update(&ctx->ctx_outside, digest_inside, SHA224_DIGEST_SIZE); - sha224_final(&ctx->ctx_outside, mac_temp); - memcpy(mac, mac_temp, mac_size); -} - -void hmac_sha224(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size) -{ - hmac_sha224_ctx ctx; - - hmac_sha224_init(&ctx, key, key_size); - hmac_sha224_update(&ctx, message, message_len); - hmac_sha224_final(&ctx, mac, mac_size); -} - -/* HMAC-SHA-256 functions */ - -void hmac_sha256_init(hmac_sha256_ctx *ctx, unsigned char *key, - unsigned int key_size) -{ - unsigned int fill; - unsigned int num; - - unsigned char *key_used; - unsigned char key_temp[SHA256_DIGEST_SIZE]; - unsigned int i; - - if (key_size == SHA256_BLOCK_SIZE) { - key_used = key; - num = SHA256_BLOCK_SIZE; - } else { - if (key_size > SHA256_BLOCK_SIZE){ - key_used = key_temp; - num = SHA256_DIGEST_SIZE; - sha256(key, key_size, key_used); - } else { /* key_size > SHA256_BLOCK_SIZE */ - key_used = key; - num = key_size; - } - fill = SHA256_BLOCK_SIZE - num; - - memset(ctx->block_ipad + num, 0x36, fill); - memset(ctx->block_opad + num, 0x5c, fill); - } - - for (i = 0; i < num; i++) { - ctx->block_ipad[i] = key_used[i] ^ 0x36; - ctx->block_opad[i] = key_used[i] ^ 0x5c; - } - - sha256_init(&ctx->ctx_inside); - sha256_update(&ctx->ctx_inside, ctx->block_ipad, SHA256_BLOCK_SIZE); - - sha256_init(&ctx->ctx_outside); - sha256_update(&ctx->ctx_outside, ctx->block_opad, - SHA256_BLOCK_SIZE); - - /* for hmac_reinit */ - memcpy(&ctx->ctx_inside_reinit, &ctx->ctx_inside, - sizeof(sha256_ctx)); - memcpy(&ctx->ctx_outside_reinit, &ctx->ctx_outside, - sizeof(sha256_ctx)); -} - -void hmac_sha256_reinit(hmac_sha256_ctx *ctx) -{ - memcpy(&ctx->ctx_inside, &ctx->ctx_inside_reinit, - sizeof(sha256_ctx)); - memcpy(&ctx->ctx_outside, &ctx->ctx_outside_reinit, - sizeof(sha256_ctx)); -} - -void hmac_sha256_update(hmac_sha256_ctx *ctx, unsigned char *message, - unsigned int message_len) -{ - sha256_update(&ctx->ctx_inside, message, message_len); -} - -void hmac_sha256_final(hmac_sha256_ctx *ctx, unsigned char *mac, - unsigned int mac_size) -{ - unsigned char digest_inside[SHA256_DIGEST_SIZE]; - unsigned char mac_temp[SHA256_DIGEST_SIZE]; - - sha256_final(&ctx->ctx_inside, digest_inside); - sha256_update(&ctx->ctx_outside, digest_inside, SHA256_DIGEST_SIZE); - sha256_final(&ctx->ctx_outside, mac_temp); - memcpy(mac, mac_temp, mac_size); -} - -void hmac_sha256(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size) -{ - hmac_sha256_ctx ctx; - - hmac_sha256_init(&ctx, key, key_size); - hmac_sha256_update(&ctx, message, message_len); - hmac_sha256_final(&ctx, mac, mac_size); -} - -/* HMAC-SHA-384 functions */ - -void hmac_sha384_init(hmac_sha384_ctx *ctx, unsigned char *key, - unsigned int key_size) -{ - unsigned int fill; - unsigned int num; - - unsigned char *key_used; - unsigned char key_temp[SHA384_DIGEST_SIZE]; - unsigned int i; - - if (key_size == SHA384_BLOCK_SIZE) { - key_used = key; - num = SHA384_BLOCK_SIZE; - } else { - if (key_size > SHA384_BLOCK_SIZE){ - key_used = key_temp; - num = SHA384_DIGEST_SIZE; - sha384(key, key_size, key_used); - } else { /* key_size > SHA384_BLOCK_SIZE */ - key_used = key; - num = key_size; - } - fill = SHA384_BLOCK_SIZE - num; - - memset(ctx->block_ipad + num, 0x36, fill); - memset(ctx->block_opad + num, 0x5c, fill); - } - - for (i = 0; i < num; i++) { - ctx->block_ipad[i] = key_used[i] ^ 0x36; - ctx->block_opad[i] = key_used[i] ^ 0x5c; - } - - sha384_init(&ctx->ctx_inside); - sha384_update(&ctx->ctx_inside, ctx->block_ipad, SHA384_BLOCK_SIZE); - - sha384_init(&ctx->ctx_outside); - sha384_update(&ctx->ctx_outside, ctx->block_opad, - SHA384_BLOCK_SIZE); - - /* for hmac_reinit */ - memcpy(&ctx->ctx_inside_reinit, &ctx->ctx_inside, - sizeof(sha384_ctx)); - memcpy(&ctx->ctx_outside_reinit, &ctx->ctx_outside, - sizeof(sha384_ctx)); -} - -void hmac_sha384_reinit(hmac_sha384_ctx *ctx) -{ - memcpy(&ctx->ctx_inside, &ctx->ctx_inside_reinit, - sizeof(sha384_ctx)); - memcpy(&ctx->ctx_outside, &ctx->ctx_outside_reinit, - sizeof(sha384_ctx)); -} - -void hmac_sha384_update(hmac_sha384_ctx *ctx, unsigned char *message, - unsigned int message_len) -{ - sha384_update(&ctx->ctx_inside, message, message_len); -} - -void hmac_sha384_final(hmac_sha384_ctx *ctx, unsigned char *mac, - unsigned int mac_size) -{ - unsigned char digest_inside[SHA384_DIGEST_SIZE]; - unsigned char mac_temp[SHA384_DIGEST_SIZE]; - - sha384_final(&ctx->ctx_inside, digest_inside); - sha384_update(&ctx->ctx_outside, digest_inside, SHA384_DIGEST_SIZE); - sha384_final(&ctx->ctx_outside, mac_temp); - memcpy(mac, mac_temp, mac_size); -} - -void hmac_sha384(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size) -{ - hmac_sha384_ctx ctx; - - hmac_sha384_init(&ctx, key, key_size); - hmac_sha384_update(&ctx, message, message_len); - hmac_sha384_final(&ctx, mac, mac_size); -} - -/* HMAC-SHA-512 functions */ - -void hmac_sha512_init(hmac_sha512_ctx *ctx, unsigned char *key, - unsigned int key_size) -{ - unsigned int fill; - unsigned int num; - - unsigned char *key_used; - unsigned char key_temp[SHA512_DIGEST_SIZE]; - unsigned int i; - - if (key_size == SHA512_BLOCK_SIZE) { - key_used = key; - num = SHA512_BLOCK_SIZE; - } else { - if (key_size > SHA512_BLOCK_SIZE){ - key_used = key_temp; - num = SHA512_DIGEST_SIZE; - sha512(key, key_size, key_used); - } else { /* key_size > SHA512_BLOCK_SIZE */ - key_used = key; - num = key_size; - } - fill = SHA512_BLOCK_SIZE - num; - - memset(ctx->block_ipad + num, 0x36, fill); - memset(ctx->block_opad + num, 0x5c, fill); - } - - for (i = 0; i < num; i++) { - ctx->block_ipad[i] = key_used[i] ^ 0x36; - ctx->block_opad[i] = key_used[i] ^ 0x5c; - } - - sha512_init(&ctx->ctx_inside); - sha512_update(&ctx->ctx_inside, ctx->block_ipad, SHA512_BLOCK_SIZE); - - sha512_init(&ctx->ctx_outside); - sha512_update(&ctx->ctx_outside, ctx->block_opad, - SHA512_BLOCK_SIZE); - - /* for hmac_reinit */ - memcpy(&ctx->ctx_inside_reinit, &ctx->ctx_inside, - sizeof(sha512_ctx)); - memcpy(&ctx->ctx_outside_reinit, &ctx->ctx_outside, - sizeof(sha512_ctx)); -} - -void hmac_sha512_reinit(hmac_sha512_ctx *ctx) -{ - memcpy(&ctx->ctx_inside, &ctx->ctx_inside_reinit, - sizeof(sha512_ctx)); - memcpy(&ctx->ctx_outside, &ctx->ctx_outside_reinit, - sizeof(sha512_ctx)); -} - -void hmac_sha512_update(hmac_sha512_ctx *ctx, unsigned char *message, - unsigned int message_len) -{ - sha512_update(&ctx->ctx_inside, message, message_len); -} - -void hmac_sha512_final(hmac_sha512_ctx *ctx, unsigned char *mac, - unsigned int mac_size) -{ - unsigned char digest_inside[SHA512_DIGEST_SIZE]; - unsigned char mac_temp[SHA512_DIGEST_SIZE]; - - sha512_final(&ctx->ctx_inside, digest_inside); - sha512_update(&ctx->ctx_outside, digest_inside, SHA512_DIGEST_SIZE); - sha512_final(&ctx->ctx_outside, mac_temp); - memcpy(mac, mac_temp, mac_size); -} - -void hmac_sha512(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size) -{ - hmac_sha512_ctx ctx; - - hmac_sha512_init(&ctx, key, key_size); - hmac_sha512_update(&ctx, message, message_len); - hmac_sha512_final(&ctx, mac, mac_size); -} diff --git a/harbour/contrib/hbcrypt/sha2hmac.h b/harbour/contrib/hbcrypt/sha2hmac.h deleted file mode 100644 index 00e07ec0e5..0000000000 --- a/harbour/contrib/hbcrypt/sha2hmac.h +++ /dev/null @@ -1,143 +0,0 @@ -/* - * $Id$ - */ - -/*- - * HMAC-SHA-224/256/384/512 implementation - * Last update: 06/15/2005 - * Issue date: 06/15/2005 - * - * Copyright (C) 2005 Olivier Gay - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the project nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ - -#ifndef _HMAC_SHA2_H -#define _HMAC_SHA2_H - -#include "sha2.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - sha224_ctx ctx_inside; - sha224_ctx ctx_outside; - - /* for hmac_reinit */ - sha224_ctx ctx_inside_reinit; - sha224_ctx ctx_outside_reinit; - - unsigned char block_ipad[SHA224_BLOCK_SIZE]; - unsigned char block_opad[SHA224_BLOCK_SIZE]; -} hmac_sha224_ctx; - -typedef struct { - sha256_ctx ctx_inside; - sha256_ctx ctx_outside; - - /* for hmac_reinit */ - sha256_ctx ctx_inside_reinit; - sha256_ctx ctx_outside_reinit; - - unsigned char block_ipad[SHA256_BLOCK_SIZE]; - unsigned char block_opad[SHA256_BLOCK_SIZE]; -} hmac_sha256_ctx; - -typedef struct { - sha384_ctx ctx_inside; - sha384_ctx ctx_outside; - - /* for hmac_reinit */ - sha384_ctx ctx_inside_reinit; - sha384_ctx ctx_outside_reinit; - - unsigned char block_ipad[SHA384_BLOCK_SIZE]; - unsigned char block_opad[SHA384_BLOCK_SIZE]; -} hmac_sha384_ctx; - -typedef struct { - sha512_ctx ctx_inside; - sha512_ctx ctx_outside; - - /* for hmac_reinit */ - sha512_ctx ctx_inside_reinit; - sha512_ctx ctx_outside_reinit; - - unsigned char block_ipad[SHA512_BLOCK_SIZE]; - unsigned char block_opad[SHA512_BLOCK_SIZE]; -} hmac_sha512_ctx; - -void hmac_sha224_init(hmac_sha224_ctx *ctx, unsigned char *key, - unsigned int key_size); -void hmac_sha224_reinit(hmac_sha224_ctx *ctx); -void hmac_sha224_update(hmac_sha224_ctx *ctx, unsigned char *message, - unsigned int message_len); -void hmac_sha224_final(hmac_sha224_ctx *ctx, unsigned char *mac, - unsigned int mac_size); -void hmac_sha224(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size); - -void hmac_sha256_init(hmac_sha256_ctx *ctx, unsigned char *key, - unsigned int key_size); -void hmac_sha256_reinit(hmac_sha256_ctx *ctx); -void hmac_sha256_update(hmac_sha256_ctx *ctx, unsigned char *message, - unsigned int message_len); -void hmac_sha256_final(hmac_sha256_ctx *ctx, unsigned char *mac, - unsigned int mac_size); -void hmac_sha256(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size); - -void hmac_sha384_init(hmac_sha384_ctx *ctx, unsigned char *key, - unsigned int key_size); -void hmac_sha384_reinit(hmac_sha384_ctx *ctx); -void hmac_sha384_update(hmac_sha384_ctx *ctx, unsigned char *message, - unsigned int message_len); -void hmac_sha384_final(hmac_sha384_ctx *ctx, unsigned char *mac, - unsigned int mac_size); -void hmac_sha384(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size); - -void hmac_sha512_init(hmac_sha512_ctx *ctx, unsigned char *key, - unsigned int key_size); -void hmac_sha512_reinit(hmac_sha512_ctx *ctx); -void hmac_sha512_update(hmac_sha512_ctx *ctx, unsigned char *message, - unsigned int message_len); -void hmac_sha512_final(hmac_sha512_ctx *ctx, unsigned char *mac, - unsigned int mac_size); -void hmac_sha512(unsigned char *key, unsigned int key_size, - unsigned char *message, unsigned int message_len, - unsigned char *mac, unsigned mac_size); - -#ifdef __cplusplus -} -#endif - -#endif /* ! _HMAC_SHA2_H */ diff --git a/harbour/contrib/hbcrypt/tests/hbmk.hbm b/harbour/contrib/hbcrypt/tests/hbmk.hbm deleted file mode 100644 index c82a235506..0000000000 --- a/harbour/contrib/hbcrypt/tests/hbmk.hbm +++ /dev/null @@ -1,5 +0,0 @@ -# -# $Id$ -# - -../hbcrypt.hbc diff --git a/harbour/contrib/hbcrypt/tests/testsha1.prg b/harbour/contrib/hbcrypt/tests/testsha1.prg deleted file mode 100644 index ba9ee974aa..0000000000 --- a/harbour/contrib/hbcrypt/tests/testsha1.prg +++ /dev/null @@ -1,22 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * - * Rewritten from C: Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - */ - -PROCEDURE Main() - - ? ">" + hb_sha1( "hello" ) + "<" - ? ">" + hb_sha1( "hello", .F. ) + "<" - ? ">" + hb_sha1( "hello", .T. ) + "<" - - ? ">" + hb_hmac_sha1( "hello", "key" ) + "<" - ? ">" + hb_hmac_sha1( "hello", "key", .F. ) + "<" - ? ">" + hb_hmac_sha1( "hello", "key", .T. ) + "<" - - RETURN diff --git a/harbour/contrib/hbcrypt/tests/testsha2.prg b/harbour/contrib/hbcrypt/tests/testsha2.prg deleted file mode 100644 index 5c55895167..0000000000 --- a/harbour/contrib/hbcrypt/tests/testsha2.prg +++ /dev/null @@ -1,138 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * - * Rewritten from C: Viktor Szakats (harbour.01 syenar.hu) - * www - http://www.harbour-project.org - */ - -PROCEDURE Main() - - ? "SHA-2 FIPS 180-2 Validation tests" - Test_SHA2() - - ? "HMAC-SHA-2 IETF Validation tests" - Test_SHA2_HMAC() - - RETURN - -STATIC PROCEDURE Test_SHA2() - - LOCAL cMsg1 := "abc" - LOCAL cMsg2a := "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" - LOCAL cMsg2b := "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" - LOCAL cMsg3 := Replicate( "a", 1000000 ) - - LOCAL results := {; - {; /* SHA-224 */ - "23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7" ,; - "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525" ,; - "20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67" },; - {; /* SHA-256 */ - "ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad" ,; - "248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1" ,; - "cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0" },; - {; /* SHA-384 */ - "cb00753f45a35e8bb5a03d699ac65007272c32ab0eded1631a8b605a43ff5bed8086072ba1e7cc2358baeca134c825a7" ,; - "09330c33f71147e83d192fc782cd1b4753111b173b3b05d22fa08086e3b0f712fcc7c71a557e2db966c3e9fa91746039" ,; - "9d0e1809716474cb086e834e310a4a1ced149e9c00f248527972cec5704c2a5b07b8b3dc38ecc4ebae97ddd87f3d8985" },; - {; /* SHA-512 */ - "ddaf35a193617abacc417349ae20413112e6fa4e89a97ea20a9eeee64b55d39a2192992a274fc1a836ba3c23a3feebbd454d4423643ce80e2a9ac94fa54ca49f" ,; - "8e959b75dae313da8cf4f72814fc143f8f7779c6eb9f7fa17299aeadb6889018501d289e4900f7e4331b99dec4b5433ac7d329eeb6dd26545e96e55b874be909" ,; - "e718483d0ce769644e2e42c7bc15b4638e1f98b13b2044285632a803afa973ebde0ff244877ea60a4cb0432ce577c31beb009c5c2c49aa2e4eadb217ad8cc09b" } } - - ? StrToHex( HB_SHA224( cMsg1 ) ) == results[ 1 ][ 1 ] - ? StrToHex( HB_SHA224( cMsg2a ) ) == results[ 1 ][ 2 ] - ? StrToHex( HB_SHA224( cMsg3 ) ) == results[ 1 ][ 3 ] - - ? StrToHex( HB_SHA256( cMsg1 ) ) == results[ 2 ][ 1 ] - ? StrToHex( HB_SHA256( cMsg2a ) ) == results[ 2 ][ 2 ] - ? StrToHex( HB_SHA256( cMsg3 ) ) == results[ 2 ][ 3 ] - - ? StrToHex( HB_SHA384( cMsg1 ) ) == results[ 3 ][ 1 ] - ? StrToHex( HB_SHA384( cMsg2b ) ) == results[ 3 ][ 2 ] - ? StrToHex( HB_SHA384( cMsg3 ) ) == results[ 3 ][ 3 ] - - ? StrToHex( HB_SHA512( cMsg1 ) ) == results[ 4 ][ 1 ] - ? StrToHex( HB_SHA512( cMsg2b ) ) == results[ 4 ][ 2 ] - ? StrToHex( HB_SHA512( cMsg3 ) ) == results[ 4 ][ 3 ] - - RETURN - -STATIC PROCEDURE Test_SHA2_HMAC() - LOCAL aMsg := {; - "Hi There",; - "what do ya want for nothing?",; - Replicate( Chr( 0xdd ), 50 ),; - Replicate( Chr( 0xcd ), 50 ),; - "Test With Truncation",; - "Test Using Larger Than Block-Size Key - Hash Key First",; - "This is a test using a larger than block-size key and a larger than block-size data. The key needs to be hashed before being used by the HMAC algorithm." } - - LOCAL results := {; - "896fb1128abbdf196832107cd49df33f47b4b1169912ba4f53684b22",; /* HMAC-SHA-224 */ - "a30e01098bc6dbbf45690f3a7e9e6d0f8bbea2a39e6148008fd05e44",; - "7fb3cb3588c6c1f6ffa9694d7d6ad2649365b0c1f65d69d1ec8333ea",; - "6c11506874013cac6a2abc1bb382627cec6a90d86efc012de7afec5a",; - "0e2aea68a90c8d37c988bcdb9fca6fa8",; - "95e9a0db962095adaebe9b2d6f0dbce2d499f112f2d2b7273fa6870e",; - "3a854166ac5d9f023f54d517d0b39dbd946770db9c2b95c9f6f565d1",; - "b0344c61d8db38535ca8afceaf0bf12b881dc200c9833da726e9376c2e32cff7",; /* HMAC-SHA-256 */ - "5bdcc146bf60754e6a042426089575c75a003f089d2739839dec58b964ec3843",; - "773ea91e36800e46854db8ebd09181a72959098b3ef8c122d9635514ced565fe",; - "82558a389a443c0ea4cc819899f2083a85f0faa3e578f8077a2e3ff46729665b",; - "a3b6167473100ee06e0c796c2955552b",; - "60e431591ee0b67f0d8a26aacbf5b77f8e0bc6213728c5140546040f0ee37f54",; - "9b09ffa71b942fcb27635fbcd5b0e944bfdc63644f0713938a7f51535c3a35e2",; - "afd03944d84895626b0825f4ab46907f15f9dadbe4101ec682aa034c7cebc59cfaea9ea9076ede7f4af152e8b2fa9cb6",; /* HMAC-SHA-384 */ - "af45d2e376484031617f78d2b58a6b1b9c7ef464f5a01b47e42ec3736322445e8e2240ca5e69e2c78b3239ecfab21649",; - "88062608d3e6ad8a0aa2ace014c8a86f0aa635d947ac9febe83ef4e55966144b2a5ab39dc13814b94e3ab6e101a34f27",; - "3e8a69b7783c25851933ab6290af6ca77a9981480850009cc5577c6e1f573b4e6801dd23c4a7d679ccf8a386c674cffb",; - "3abf34c3503b2a23a46efc619baef897",; - "4ece084485813e9088d2c63a041bc5b44f9ef1012a2b588f3cd11f05033ac4c60c2ef6ab4030fe8296248df163f44952",; - "6617178e941f020d351e2f254e8fd32c602420feb0b8fb9adccebb82461e99c5a678cc31e799176d3860e6110c46523e",; - "87aa7cdea5ef619d4ff0b4241a1d6cb02379f4e2ce4ec2787ad0b30545e17cdedaa833b7d6b8a702038b274eaea3f4e4be9d914eeb61f1702e696c203a126854",; /* HMAC-SHA-512 */ - "164b7a7bfcf819e2e395fbe73b56e0a387bd64222e831fd610270cd7ea2505549758bf75c05a994a6d034f65f8f0e6fdcaeab1a34d4a6b4b636e070a38bce737",; - "fa73b0089d56a284efb0f0756c890be9b1b5dbdd8ee81a3655f83e33b2279d39bf3e848279a722c806b485a47e67c807b946a337bee8942674278859e13292fb",; - "b0ba465637458c6990e5a8c5f61d4af7e576d97ff94b872de76f8050361ee3dba91ca5c11aa25eb4d679275cc5788063a5f19741120c4f2de2adebeb10a298dd",; - "415fad6271580a531d4179bc891d87a6",; - "80b24263c7c1a3ebb71493c1dd7be8b49b46d1f41b4aeec1121b013783f8f3526b56d037e05f2598bd0fd2215d6a1e5295e64f73f63f0aec8b915a985d786598",; - "e37b6a775dc87dbaa4dfa9f96e5e3ffddebd71f8867289865df5a32d20cdc944b6022cac3c4982b10d5eeb55c3e4de15134676fb6de0446065c97440fa8c6a58"} - - LOCAL keys := {; - Replicate( Chr( 0x0b ), 20 ),; - "Jefe",; - Replicate( Chr( 0xaa ), 20 ),; - "",; - Replicate( Chr( 0x0c ), 20 ),; - Replicate( Chr( 0xaa ), 131 ),; - Replicate( Chr( 0xaa ), 131 ) } - - LOCAL tmp - - FOR tmp := 1 TO 25 - keys[ 4 ] += Chr( tmp ) - NEXT - - FOR tmp := 1 TO 7 - IF tmp != 5 - ? StrToHex( HB_HMAC_SHA224( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp ] - ? StrToHex( HB_HMAC_SHA256( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 7 ] - ? StrToHex( HB_HMAC_SHA384( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 14 ] - ? StrToHex( HB_HMAC_SHA512( aMsg[ tmp ], keys[ tmp ] ) ) == results[ tmp + 21 ] -/* We don't support these MAC sizes */ -/* ELSE - mac_224_size = 128 / 8; - mac_256_size = 128 / 8; - mac_384_size = 128 / 8; - mac_512_size = 128 / 8; */ - ENDIF - NEXT - - RETURN - -STATIC FUNCTION StrToHex( cString ) - RETURN Lower( cString )