1998-04-07 18:16:10 +00:00
|
|
|
/* cipher.c - cipher dispatcher
|
|
|
|
* Copyright (C) 1998 Free Software Foundation, Inc.
|
|
|
|
*
|
1998-12-23 12:41:40 +00:00
|
|
|
* This file is part of GnuPG.
|
1998-04-07 18:16:10 +00:00
|
|
|
*
|
1998-12-23 12:41:40 +00:00
|
|
|
* GnuPG is free software; you can redistribute it and/or modify
|
1998-04-07 18:16:10 +00:00
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
1998-12-23 12:41:40 +00:00
|
|
|
* GnuPG is distributed in the hope that it will be useful,
|
1998-04-07 18:16:10 +00:00
|
|
|
* 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <config.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <errno.h>
|
|
|
|
#include <assert.h>
|
1999-10-26 12:14:37 +00:00
|
|
|
|
|
|
|
#include "g10lib.h"
|
1998-04-07 18:16:10 +00:00
|
|
|
#include "cipher.h"
|
1998-09-18 15:24:53 +00:00
|
|
|
#include "des.h"
|
1998-04-07 18:16:10 +00:00
|
|
|
#include "blowfish.h"
|
|
|
|
#include "cast5.h"
|
1998-06-11 07:16:50 +00:00
|
|
|
#include "dynload.h"
|
1998-04-07 18:16:10 +00:00
|
|
|
|
1998-07-29 19:35:05 +00:00
|
|
|
#define MAX_BLOCKSIZE 16
|
1998-06-16 15:13:28 +00:00
|
|
|
#define TABLE_SIZE 10
|
1999-10-26 12:14:37 +00:00
|
|
|
#define CTX_MAGIC_NORMAL 0x24091964
|
|
|
|
#define CTX_MAGIC_SECURE 0x46919042
|
1998-04-07 18:16:10 +00:00
|
|
|
|
1998-06-11 07:16:50 +00:00
|
|
|
struct cipher_table_s {
|
1998-06-09 15:14:06 +00:00
|
|
|
const char *name;
|
|
|
|
int algo;
|
1998-07-29 19:35:05 +00:00
|
|
|
size_t blocksize;
|
1998-06-11 07:16:50 +00:00
|
|
|
size_t keylen;
|
|
|
|
size_t contextsize; /* allocate this amount of context */
|
1998-09-14 15:49:56 +00:00
|
|
|
int (*setkey)( void *c, byte *key, unsigned keylen );
|
1998-06-09 15:14:06 +00:00
|
|
|
void (*encrypt)( void *c, byte *outbuf, byte *inbuf );
|
|
|
|
void (*decrypt)( void *c, byte *outbuf, byte *inbuf );
|
1998-06-11 07:16:50 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
static struct cipher_table_s cipher_table[TABLE_SIZE];
|
1999-07-15 08:16:46 +00:00
|
|
|
static int disabled_algos[TABLE_SIZE];
|
1998-04-07 18:16:10 +00:00
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
struct gcry_cipher_handle {
|
|
|
|
int magic;
|
1998-04-07 18:16:10 +00:00
|
|
|
int algo;
|
|
|
|
int mode;
|
1999-10-26 12:14:37 +00:00
|
|
|
unsigned int flags;
|
1998-07-29 19:35:05 +00:00
|
|
|
size_t blocksize;
|
|
|
|
byte iv[MAX_BLOCKSIZE]; /* (this should be ulong aligned) */
|
|
|
|
byte lastiv[MAX_BLOCKSIZE];
|
1998-04-07 18:16:10 +00:00
|
|
|
int unused; /* in IV */
|
1998-09-14 15:49:56 +00:00
|
|
|
int (*setkey)( void *c, byte *key, unsigned keylen );
|
1998-04-07 18:16:10 +00:00
|
|
|
void (*encrypt)( void *c, byte *outbuf, byte *inbuf );
|
|
|
|
void (*decrypt)( void *c, byte *outbuf, byte *inbuf );
|
1999-02-24 10:12:32 +00:00
|
|
|
PROPERLY_ALIGNED_TYPE context;
|
1998-04-07 18:16:10 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
|
1998-09-14 15:49:56 +00:00
|
|
|
static int
|
|
|
|
dummy_setkey( void *c, byte *key, unsigned keylen ) { return 0; }
|
1998-05-26 13:38:00 +00:00
|
|
|
static void
|
|
|
|
dummy_encrypt_block( void *c, byte *outbuf, byte *inbuf ) { BUG(); }
|
|
|
|
static void
|
|
|
|
dummy_decrypt_block( void *c, byte *outbuf, byte *inbuf ) { BUG(); }
|
|
|
|
|
|
|
|
|
1998-06-09 15:14:06 +00:00
|
|
|
|
|
|
|
/****************
|
|
|
|
* Put the static entries into the table.
|
|
|
|
*/
|
|
|
|
static void
|
1999-02-16 13:16:33 +00:00
|
|
|
setup_cipher_table(void)
|
1998-06-09 15:14:06 +00:00
|
|
|
{
|
|
|
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
i = 0;
|
1999-04-07 18:58:34 +00:00
|
|
|
cipher_table[i].algo = CIPHER_ALGO_TWOFISH;
|
|
|
|
cipher_table[i].name = twofish_get_info( cipher_table[i].algo,
|
|
|
|
&cipher_table[i].keylen,
|
|
|
|
&cipher_table[i].blocksize,
|
|
|
|
&cipher_table[i].contextsize,
|
|
|
|
&cipher_table[i].setkey,
|
|
|
|
&cipher_table[i].encrypt,
|
|
|
|
&cipher_table[i].decrypt );
|
|
|
|
if( !cipher_table[i].name )
|
|
|
|
BUG();
|
|
|
|
i++;
|
1998-06-09 15:14:06 +00:00
|
|
|
cipher_table[i].algo = CIPHER_ALGO_BLOWFISH;
|
|
|
|
cipher_table[i].name = blowfish_get_info( cipher_table[i].algo,
|
|
|
|
&cipher_table[i].keylen,
|
1998-07-29 19:35:05 +00:00
|
|
|
&cipher_table[i].blocksize,
|
1998-06-09 15:14:06 +00:00
|
|
|
&cipher_table[i].contextsize,
|
|
|
|
&cipher_table[i].setkey,
|
|
|
|
&cipher_table[i].encrypt,
|
|
|
|
&cipher_table[i].decrypt );
|
1998-07-29 19:35:05 +00:00
|
|
|
if( !cipher_table[i].name )
|
1998-06-09 15:14:06 +00:00
|
|
|
BUG();
|
|
|
|
i++;
|
|
|
|
cipher_table[i].algo = CIPHER_ALGO_CAST5;
|
|
|
|
cipher_table[i].name = cast5_get_info( cipher_table[i].algo,
|
|
|
|
&cipher_table[i].keylen,
|
1998-07-29 19:35:05 +00:00
|
|
|
&cipher_table[i].blocksize,
|
1998-06-09 15:14:06 +00:00
|
|
|
&cipher_table[i].contextsize,
|
|
|
|
&cipher_table[i].setkey,
|
|
|
|
&cipher_table[i].encrypt,
|
|
|
|
&cipher_table[i].decrypt );
|
1998-07-29 19:35:05 +00:00
|
|
|
if( !cipher_table[i].name )
|
1998-06-09 15:14:06 +00:00
|
|
|
BUG();
|
|
|
|
i++;
|
1998-09-18 15:24:53 +00:00
|
|
|
cipher_table[i].algo = CIPHER_ALGO_3DES;
|
|
|
|
cipher_table[i].name = des_get_info( cipher_table[i].algo,
|
|
|
|
&cipher_table[i].keylen,
|
|
|
|
&cipher_table[i].blocksize,
|
|
|
|
&cipher_table[i].contextsize,
|
|
|
|
&cipher_table[i].setkey,
|
|
|
|
&cipher_table[i].encrypt,
|
|
|
|
&cipher_table[i].decrypt );
|
|
|
|
if( !cipher_table[i].name )
|
|
|
|
BUG();
|
|
|
|
i++;
|
1998-06-09 15:14:06 +00:00
|
|
|
cipher_table[i].algo = CIPHER_ALGO_DUMMY;
|
|
|
|
cipher_table[i].name = "DUMMY";
|
1998-07-29 19:35:05 +00:00
|
|
|
cipher_table[i].blocksize = 8;
|
1998-06-09 15:14:06 +00:00
|
|
|
cipher_table[i].keylen = 128;
|
|
|
|
cipher_table[i].contextsize = 0;
|
|
|
|
cipher_table[i].setkey = dummy_setkey;
|
|
|
|
cipher_table[i].encrypt = dummy_encrypt_block;
|
|
|
|
cipher_table[i].decrypt = dummy_decrypt_block;
|
|
|
|
i++;
|
|
|
|
|
|
|
|
for( ; i < TABLE_SIZE; i++ )
|
|
|
|
cipher_table[i].name = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/****************
|
|
|
|
* Try to load all modules and return true if new modules are available
|
|
|
|
*/
|
|
|
|
static int
|
1999-02-16 13:16:33 +00:00
|
|
|
load_cipher_modules(void)
|
1998-06-09 15:14:06 +00:00
|
|
|
{
|
|
|
|
static int done = 0;
|
1998-06-16 15:13:28 +00:00
|
|
|
static int initialized = 0;
|
1998-06-11 07:16:50 +00:00
|
|
|
void *context = NULL;
|
|
|
|
struct cipher_table_s *ct;
|
|
|
|
int ct_idx;
|
|
|
|
int i;
|
|
|
|
const char *name;
|
|
|
|
int any = 0;
|
|
|
|
|
1998-06-16 15:13:28 +00:00
|
|
|
if( !initialized ) {
|
1999-02-10 16:22:40 +00:00
|
|
|
cipher_modules_constructor();
|
1998-06-16 15:13:28 +00:00
|
|
|
setup_cipher_table(); /* load static modules on the first call */
|
|
|
|
initialized = 1;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
1998-06-11 07:16:50 +00:00
|
|
|
if( done )
|
|
|
|
return 0;
|
|
|
|
done = 1;
|
1998-06-09 15:14:06 +00:00
|
|
|
|
1998-06-11 07:16:50 +00:00
|
|
|
for(ct_idx=0, ct = cipher_table; ct_idx < TABLE_SIZE; ct_idx++,ct++ ) {
|
|
|
|
if( !ct->name )
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if( ct_idx >= TABLE_SIZE-1 )
|
|
|
|
BUG(); /* table already full */
|
|
|
|
/* now load all extensions */
|
|
|
|
while( (name = enum_gnupgext_ciphers( &context, &ct->algo,
|
1998-07-29 19:35:05 +00:00
|
|
|
&ct->keylen, &ct->blocksize, &ct->contextsize,
|
1998-06-11 07:16:50 +00:00
|
|
|
&ct->setkey, &ct->encrypt, &ct->decrypt)) ) {
|
1998-07-29 19:35:05 +00:00
|
|
|
if( ct->blocksize != 8 && ct->blocksize != 16 ) {
|
1998-06-11 07:16:50 +00:00
|
|
|
log_info("skipping cipher %d: unsupported blocksize\n", ct->algo);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
for(i=0; cipher_table[i].name; i++ )
|
|
|
|
if( cipher_table[i].algo == ct->algo )
|
|
|
|
break;
|
|
|
|
if( cipher_table[i].name ) {
|
|
|
|
log_info("skipping cipher %d: already loaded\n", ct->algo );
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
/* put it into the table */
|
1999-12-08 21:03:03 +00:00
|
|
|
if( g10_log_verbosity( 2 ) )
|
1998-06-13 17:00:02 +00:00
|
|
|
log_info("loaded cipher %d (%s)\n", ct->algo, name);
|
1998-06-11 07:16:50 +00:00
|
|
|
ct->name = name;
|
|
|
|
ct_idx++;
|
|
|
|
ct++;
|
|
|
|
any = 1;
|
|
|
|
/* check whether there are more available table slots */
|
|
|
|
if( ct_idx >= TABLE_SIZE-1 ) {
|
|
|
|
log_info("cipher table full; ignoring other extensions\n");
|
|
|
|
break;
|
1998-06-09 15:14:06 +00:00
|
|
|
}
|
|
|
|
}
|
1998-06-11 07:16:50 +00:00
|
|
|
enum_gnupgext_ciphers( &context, NULL, NULL, NULL, NULL,
|
|
|
|
NULL, NULL, NULL );
|
|
|
|
return any;
|
1998-06-09 15:14:06 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
/****************
|
1999-10-26 12:14:37 +00:00
|
|
|
* Map a string to the cipher algo.
|
|
|
|
* Returns: The algo ID of the cipher for the gioven name or
|
|
|
|
* 0 if the name is not known.
|
1998-04-07 18:16:10 +00:00
|
|
|
*/
|
|
|
|
int
|
1999-10-26 12:14:37 +00:00
|
|
|
gcry_cipher_map_name( const char *string )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
const char *s;
|
|
|
|
|
1998-06-09 15:14:06 +00:00
|
|
|
do {
|
|
|
|
for(i=0; (s=cipher_table[i].name); i++ )
|
|
|
|
if( !stricmp( s, string ) )
|
|
|
|
return cipher_table[i].algo;
|
|
|
|
} while( load_cipher_modules() );
|
1998-04-07 18:16:10 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/****************
|
|
|
|
* Map a cipher algo to a string
|
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
static const char *
|
1998-04-07 18:16:10 +00:00
|
|
|
cipher_algo_to_string( int algo )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
1998-06-09 15:14:06 +00:00
|
|
|
do {
|
|
|
|
for(i=0; cipher_table[i].name; i++ )
|
|
|
|
if( cipher_table[i].algo == algo )
|
|
|
|
return cipher_table[i].name;
|
|
|
|
} while( load_cipher_modules() );
|
1998-04-07 18:16:10 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
/****************
|
|
|
|
* This function simply returns the name of the algorithm or some constant
|
|
|
|
* string when there is no algo. It will never return NULL.
|
|
|
|
*/
|
|
|
|
const char *
|
|
|
|
gcry_cipher_algo_name( int algo )
|
|
|
|
{
|
|
|
|
const char *s = cipher_algo_to_string( algo );
|
|
|
|
return s? s: "";
|
|
|
|
}
|
1999-07-15 08:16:46 +00:00
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
|
|
|
|
|
|
|
|
static void
|
1999-07-15 08:16:46 +00:00
|
|
|
disable_cipher_algo( int algo )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
for(i=0; i < DIM(disabled_algos); i++ ) {
|
|
|
|
if( !disabled_algos[i] || disabled_algos[i] == algo ) {
|
|
|
|
disabled_algos[i] = algo;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* fixme: we should use a linked list */
|
1999-07-23 12:03:01 +00:00
|
|
|
log_fatal("can't disable cipher algo %d: table full\n", algo );
|
1999-07-15 08:16:46 +00:00
|
|
|
}
|
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
/****************
|
|
|
|
* Return 0 if the cipher algo is available
|
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
static int
|
1998-04-07 18:16:10 +00:00
|
|
|
check_cipher_algo( int algo )
|
|
|
|
{
|
1998-06-09 15:14:06 +00:00
|
|
|
int i;
|
|
|
|
|
|
|
|
do {
|
|
|
|
for(i=0; cipher_table[i].name; i++ )
|
1999-07-15 08:16:46 +00:00
|
|
|
if( cipher_table[i].algo == algo ) {
|
|
|
|
for(i=0; i < DIM(disabled_algos); i++ ) {
|
|
|
|
if( disabled_algos[i] == algo )
|
1999-11-13 16:43:23 +00:00
|
|
|
return GCRYERR_INV_CIPHER_ALGO;
|
1999-07-15 08:16:46 +00:00
|
|
|
}
|
|
|
|
return 0; /* okay */
|
|
|
|
}
|
1998-06-09 15:14:06 +00:00
|
|
|
} while( load_cipher_modules() );
|
1999-11-13 16:43:23 +00:00
|
|
|
return GCRYERR_INV_CIPHER_ALGO;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
static unsigned
|
1998-04-30 14:06:01 +00:00
|
|
|
cipher_get_keylen( int algo )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
unsigned len = 0;
|
|
|
|
|
1998-06-09 15:14:06 +00:00
|
|
|
do {
|
|
|
|
for(i=0; cipher_table[i].name; i++ ) {
|
|
|
|
if( cipher_table[i].algo == algo ) {
|
|
|
|
len = cipher_table[i].keylen;
|
|
|
|
if( !len )
|
|
|
|
log_bug("cipher %d w/o key length\n", algo );
|
|
|
|
return len;
|
|
|
|
}
|
1998-04-30 14:06:01 +00:00
|
|
|
}
|
1998-06-09 15:14:06 +00:00
|
|
|
} while( load_cipher_modules() );
|
|
|
|
log_bug("cipher %d not found\n", algo );
|
|
|
|
return 0;
|
1998-04-30 14:06:01 +00:00
|
|
|
}
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
static unsigned
|
1998-07-29 19:35:05 +00:00
|
|
|
cipher_get_blocksize( int algo )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
unsigned len = 0;
|
|
|
|
|
|
|
|
do {
|
|
|
|
for(i=0; cipher_table[i].name; i++ ) {
|
|
|
|
if( cipher_table[i].algo == algo ) {
|
|
|
|
len = cipher_table[i].blocksize;
|
|
|
|
if( !len )
|
|
|
|
log_bug("cipher %d w/o blocksize\n", algo );
|
|
|
|
return len;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} while( load_cipher_modules() );
|
|
|
|
log_bug("cipher %d not found\n", algo );
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1998-04-30 14:06:01 +00:00
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
/****************
|
|
|
|
* Open a cipher handle for use with algorithm ALGO, in mode MODE
|
1999-10-26 12:14:37 +00:00
|
|
|
* and return the handle. Return NULL and set the internal error variable
|
|
|
|
* if something goes wrong.
|
1998-04-07 18:16:10 +00:00
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
|
|
|
|
GCRY_CIPHER_HD
|
|
|
|
gcry_cipher_open( int algo, int mode, unsigned int flags )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
1999-10-26 12:14:37 +00:00
|
|
|
GCRY_CIPHER_HD h;
|
|
|
|
int idx;
|
|
|
|
int secure = (flags & GCRY_CIPHER_SECURE);
|
1998-04-07 18:16:10 +00:00
|
|
|
|
|
|
|
fast_random_poll();
|
1999-10-26 12:14:37 +00:00
|
|
|
|
|
|
|
/* check whether the algo is available */
|
|
|
|
if( check_cipher_algo( algo ) ) {
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1998-06-09 15:14:06 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
/* check flags */
|
|
|
|
if( (flags & ~(GCRY_CIPHER_SECURE|GCRY_CIPHER_ENABLE_SYNC)) ) {
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* get the table index of the algo */
|
|
|
|
for(idx=0; cipher_table[idx].name; idx++ )
|
|
|
|
if( cipher_table[idx].algo == algo )
|
|
|
|
break;
|
|
|
|
if( !cipher_table[idx].name )
|
|
|
|
BUG(); /* check_cipher_algo() should have loaded the algo */
|
1998-06-09 15:14:06 +00:00
|
|
|
|
1998-05-26 13:38:00 +00:00
|
|
|
if( algo == CIPHER_ALGO_DUMMY )
|
1999-10-26 12:14:37 +00:00
|
|
|
mode = GCRY_CIPHER_MODE_NONE; /* force this mode for dummy algo */
|
|
|
|
|
|
|
|
/* check that a valid mode has been requested */
|
|
|
|
switch( mode ) {
|
|
|
|
case GCRY_CIPHER_MODE_ECB:
|
|
|
|
case GCRY_CIPHER_MODE_CBC:
|
|
|
|
case GCRY_CIPHER_MODE_CFB:
|
|
|
|
break;
|
|
|
|
case GCRY_CIPHER_MODE_NONE:
|
|
|
|
/* FIXME: issue a warning when this mode is used */
|
|
|
|
break;
|
|
|
|
default:
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
return NULL;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
/* ? perform selftest here and mark this with a flag in cipher_table ? */
|
|
|
|
|
1999-11-13 16:43:23 +00:00
|
|
|
h = secure ? g10_calloc_secure( 1, sizeof *h
|
1999-10-26 12:14:37 +00:00
|
|
|
+ cipher_table[idx].contextsize
|
|
|
|
- sizeof(PROPERLY_ALIGNED_TYPE) )
|
1999-11-13 16:43:23 +00:00
|
|
|
: g10_calloc( 1, sizeof *h + cipher_table[idx].contextsize
|
1999-10-26 12:14:37 +00:00
|
|
|
- sizeof(PROPERLY_ALIGNED_TYPE) );
|
1999-11-13 16:43:23 +00:00
|
|
|
if( !h ) {
|
|
|
|
set_lasterr( GCRYERR_NO_MEM );
|
|
|
|
return NULL;
|
|
|
|
}
|
1999-10-26 12:14:37 +00:00
|
|
|
h->magic = secure ? CTX_MAGIC_SECURE : CTX_MAGIC_NORMAL;
|
|
|
|
h->algo = algo;
|
|
|
|
h->mode = mode;
|
|
|
|
h->flags = flags;
|
|
|
|
h->blocksize = cipher_table[idx].blocksize;
|
|
|
|
h->setkey = cipher_table[idx].setkey;
|
|
|
|
h->encrypt = cipher_table[idx].encrypt;
|
|
|
|
h->decrypt = cipher_table[idx].decrypt;
|
|
|
|
|
|
|
|
return h;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-26 12:14:37 +00:00
|
|
|
gcry_cipher_close( GCRY_CIPHER_HD h )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
1999-10-26 12:14:37 +00:00
|
|
|
if( !h )
|
|
|
|
return;
|
1999-11-19 16:11:37 +00:00
|
|
|
if( h->magic != CTX_MAGIC_SECURE && h->magic != CTX_MAGIC_NORMAL )
|
|
|
|
g10_fatal_error(GCRYERR_INTERNAL,
|
|
|
|
"gcry_cipher_close: already closed/invalid handle");
|
1999-10-26 12:14:37 +00:00
|
|
|
h->magic = 0;
|
1999-11-13 16:43:23 +00:00
|
|
|
g10_free(h);
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
static int
|
|
|
|
cipher_setkey( GCRY_CIPHER_HD c, byte *key, unsigned keylen )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
1999-02-24 10:12:32 +00:00
|
|
|
return (*c->setkey)( &c->context.c, key, keylen );
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
static void
|
|
|
|
cipher_setiv( GCRY_CIPHER_HD c, const byte *iv, unsigned ivlen )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
1999-04-18 08:18:52 +00:00
|
|
|
memset( c->iv, 0, c->blocksize );
|
|
|
|
if( iv ) {
|
|
|
|
if( ivlen != c->blocksize )
|
|
|
|
log_info("WARNING: cipher_setiv: ivlen=%u blklen=%u\n",
|
1999-07-23 12:03:01 +00:00
|
|
|
ivlen, (unsigned)c->blocksize );
|
1999-04-18 08:18:52 +00:00
|
|
|
if( ivlen > c->blocksize )
|
|
|
|
ivlen = c->blocksize;
|
|
|
|
memcpy( c->iv, iv, ivlen );
|
|
|
|
}
|
1998-04-07 18:16:10 +00:00
|
|
|
c->unused = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_ecb_encrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nblocks )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
unsigned n;
|
|
|
|
|
|
|
|
for(n=0; n < nblocks; n++ ) {
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->encrypt)( &c->context.c, outbuf, inbuf );
|
1998-07-29 19:35:05 +00:00
|
|
|
inbuf += c->blocksize;
|
|
|
|
outbuf += c->blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_ecb_decrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nblocks )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
unsigned n;
|
|
|
|
|
|
|
|
for(n=0; n < nblocks; n++ ) {
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->decrypt)( &c->context.c, outbuf, inbuf );
|
1998-07-29 19:35:05 +00:00
|
|
|
inbuf += c->blocksize;
|
|
|
|
outbuf += c->blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1999-06-26 10:23:06 +00:00
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_cbc_encrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nblocks )
|
1999-06-26 10:23:06 +00:00
|
|
|
{
|
|
|
|
unsigned int n;
|
|
|
|
byte *ivp;
|
|
|
|
int i;
|
|
|
|
size_t blocksize = c->blocksize;
|
|
|
|
|
|
|
|
for(n=0; n < nblocks; n++ ) {
|
|
|
|
/* fixme: the xor should works on words and not on
|
|
|
|
* bytes. Maybe it is a good idea to enhance the cipher backend
|
|
|
|
* API to allow for CBC handling in the backend */
|
|
|
|
for(ivp=c->iv,i=0; i < blocksize; i++ )
|
1999-08-30 18:48:57 +00:00
|
|
|
outbuf[i] = inbuf[i] ^ *ivp++;
|
1999-06-26 10:23:06 +00:00
|
|
|
(*c->encrypt)( &c->context.c, outbuf, outbuf );
|
|
|
|
memcpy(c->iv, outbuf, blocksize );
|
|
|
|
inbuf += c->blocksize;
|
|
|
|
outbuf += c->blocksize;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_cbc_decrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nblocks )
|
1999-06-26 10:23:06 +00:00
|
|
|
{
|
|
|
|
unsigned int n;
|
|
|
|
byte *ivp;
|
|
|
|
int i;
|
|
|
|
size_t blocksize = c->blocksize;
|
|
|
|
|
|
|
|
for(n=0; n < nblocks; n++ ) {
|
|
|
|
/* because outbuf and inbuf might be the same, we have
|
|
|
|
* to save the original ciphertext block. We use lastiv
|
|
|
|
* for this here because it is not used otherwise */
|
|
|
|
memcpy(c->lastiv, inbuf, blocksize );
|
|
|
|
(*c->decrypt)( &c->context.c, outbuf, inbuf );
|
|
|
|
for(ivp=c->iv,i=0; i < blocksize; i++ )
|
|
|
|
outbuf[i] ^= *ivp++;
|
|
|
|
memcpy(c->iv, c->lastiv, blocksize );
|
|
|
|
inbuf += c->blocksize;
|
|
|
|
outbuf += c->blocksize;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
|
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_cfb_encrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nbytes )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
byte *ivp;
|
1998-07-29 19:35:05 +00:00
|
|
|
size_t blocksize = c->blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
|
|
|
|
if( nbytes <= c->unused ) {
|
|
|
|
/* short enough to be encoded by the remaining XOR mask */
|
|
|
|
/* XOR the input with the IV and store input into IV */
|
1998-07-29 19:35:05 +00:00
|
|
|
for(ivp=c->iv+c->blocksize - c->unused; nbytes; nbytes--, c->unused-- )
|
1998-04-07 18:16:10 +00:00
|
|
|
*outbuf++ = (*ivp++ ^= *inbuf++);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if( c->unused ) {
|
|
|
|
/* XOR the input with the IV and store input into IV */
|
|
|
|
nbytes -= c->unused;
|
1998-07-29 19:35:05 +00:00
|
|
|
for(ivp=c->iv+blocksize - c->unused; c->unused; c->unused-- )
|
1998-04-07 18:16:10 +00:00
|
|
|
*outbuf++ = (*ivp++ ^= *inbuf++);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* now we can process complete blocks */
|
1998-07-29 19:35:05 +00:00
|
|
|
while( nbytes >= blocksize ) {
|
1998-04-07 18:16:10 +00:00
|
|
|
int i;
|
|
|
|
/* encrypt the IV (and save the current one) */
|
1998-07-29 19:35:05 +00:00
|
|
|
memcpy( c->lastiv, c->iv, blocksize );
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->encrypt)( &c->context.c, c->iv, c->iv );
|
1998-04-07 18:16:10 +00:00
|
|
|
/* XOR the input with the IV and store input into IV */
|
1998-07-29 19:35:05 +00:00
|
|
|
for(ivp=c->iv,i=0; i < blocksize; i++ )
|
1998-04-07 18:16:10 +00:00
|
|
|
*outbuf++ = (*ivp++ ^= *inbuf++);
|
1998-07-29 19:35:05 +00:00
|
|
|
nbytes -= blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
if( nbytes ) { /* process the remaining bytes */
|
|
|
|
/* encrypt the IV (and save the current one) */
|
1998-07-29 19:35:05 +00:00
|
|
|
memcpy( c->lastiv, c->iv, blocksize );
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->encrypt)( &c->context.c, c->iv, c->iv );
|
1998-07-29 19:35:05 +00:00
|
|
|
c->unused = blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
/* and apply the xor */
|
|
|
|
c->unused -= nbytes;
|
|
|
|
for(ivp=c->iv; nbytes; nbytes-- )
|
|
|
|
*outbuf++ = (*ivp++ ^= *inbuf++);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
do_cfb_decrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf, unsigned nbytes )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
byte *ivp;
|
|
|
|
ulong temp;
|
1998-07-29 19:35:05 +00:00
|
|
|
size_t blocksize = c->blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
|
|
|
|
if( nbytes <= c->unused ) {
|
|
|
|
/* short enough to be encoded by the remaining XOR mask */
|
|
|
|
/* XOR the input with the IV and store input into IV */
|
1998-07-29 19:35:05 +00:00
|
|
|
for(ivp=c->iv+blocksize - c->unused; nbytes; nbytes--,c->unused--){
|
1998-04-07 18:16:10 +00:00
|
|
|
temp = *inbuf++;
|
|
|
|
*outbuf++ = *ivp ^ temp;
|
|
|
|
*ivp++ = temp;
|
|
|
|
}
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if( c->unused ) {
|
|
|
|
/* XOR the input with the IV and store input into IV */
|
|
|
|
nbytes -= c->unused;
|
1998-07-29 19:35:05 +00:00
|
|
|
for(ivp=c->iv+blocksize - c->unused; c->unused; c->unused-- ) {
|
1998-04-07 18:16:10 +00:00
|
|
|
temp = *inbuf++;
|
|
|
|
*outbuf++ = *ivp ^ temp;
|
|
|
|
*ivp++ = temp;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* now we can process complete blocks */
|
1998-07-29 19:35:05 +00:00
|
|
|
while( nbytes >= blocksize ) {
|
|
|
|
int i;
|
|
|
|
/* encrypt the IV (and save the current one) */
|
|
|
|
memcpy( c->lastiv, c->iv, blocksize );
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->encrypt)( &c->context.c, c->iv, c->iv );
|
1998-07-29 19:35:05 +00:00
|
|
|
/* XOR the input with the IV and store input into IV */
|
|
|
|
for(ivp=c->iv,i=0; i < blocksize; i++ ) {
|
|
|
|
temp = *inbuf++;
|
|
|
|
*outbuf++ = *ivp ^ temp;
|
|
|
|
*ivp++ = temp;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
1998-07-29 19:35:05 +00:00
|
|
|
nbytes -= blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
}
|
|
|
|
if( nbytes ) { /* process the remaining bytes */
|
|
|
|
/* encrypt the IV (and save the current one) */
|
1998-07-29 19:35:05 +00:00
|
|
|
memcpy( c->lastiv, c->iv, blocksize );
|
1999-02-24 10:12:32 +00:00
|
|
|
(*c->encrypt)( &c->context.c, c->iv, c->iv );
|
1998-07-29 19:35:05 +00:00
|
|
|
c->unused = blocksize;
|
1998-04-07 18:16:10 +00:00
|
|
|
/* and apply the xor */
|
|
|
|
c->unused -= nbytes;
|
|
|
|
for(ivp=c->iv; nbytes; nbytes-- ) {
|
|
|
|
temp = *inbuf++;
|
|
|
|
*outbuf++ = *ivp ^ temp;
|
|
|
|
*ivp++ = temp;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/****************
|
|
|
|
* Encrypt INBUF to OUTBUF with the mode selected at open.
|
|
|
|
* inbuf and outbuf may overlap or be the same.
|
|
|
|
* Depending on the mode some some contraints apply to NBYTES.
|
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
cipher_encrypt( GCRY_CIPHER_HD c, byte *outbuf,
|
|
|
|
const byte *inbuf, unsigned nbytes )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
switch( c->mode ) {
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_ECB:
|
1998-04-07 18:16:10 +00:00
|
|
|
assert(!(nbytes%8));
|
|
|
|
do_ecb_encrypt(c, outbuf, inbuf, nbytes/8 );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_CBC:
|
1999-06-26 10:23:06 +00:00
|
|
|
assert(!(nbytes%8)); /* fixme: should be blocksize */
|
|
|
|
do_cbc_encrypt(c, outbuf, inbuf, nbytes/8 );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_CFB:
|
1998-04-07 18:16:10 +00:00
|
|
|
do_cfb_encrypt(c, outbuf, inbuf, nbytes );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_NONE:
|
1998-05-26 13:38:00 +00:00
|
|
|
if( inbuf != outbuf )
|
|
|
|
memmove( outbuf, inbuf, nbytes );
|
|
|
|
break;
|
1998-04-07 18:16:10 +00:00
|
|
|
default: log_fatal("cipher_encrypt: invalid mode %d\n", c->mode );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
/****************
|
|
|
|
* Encrypt IN and write it to OUT. If IN is NULL, in-place encryption has
|
|
|
|
* been requested,
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
gcry_cipher_encrypt( GCRY_CIPHER_HD h, byte *out, size_t outsize,
|
|
|
|
const byte *in, size_t inlen )
|
|
|
|
{
|
|
|
|
if( !in ) {
|
|
|
|
/* caller requested in-place encryption */
|
|
|
|
/* actullay cipher_encrypt() does not need to know about it, but
|
|
|
|
* we may chnage this to get better performace */
|
|
|
|
cipher_encrypt( h, out, out, outsize );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if( outsize < inlen )
|
|
|
|
return set_lasterr( GCRYERR_TOO_SHORT );
|
|
|
|
/* fixme: check that the inlength is a multipe of the blocksize
|
|
|
|
* if a blockoriented mode is used, or modify cipher_encrypt to
|
|
|
|
* return an error in this case */
|
|
|
|
cipher_encrypt( h, out, in, inlen );
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
/****************
|
|
|
|
* Decrypt INBUF to OUTBUF with the mode selected at open.
|
|
|
|
* inbuf and outbuf may overlap or be the same.
|
|
|
|
* Depending on the mode some some contraints apply to NBYTES.
|
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
static void
|
1999-11-13 16:43:23 +00:00
|
|
|
cipher_decrypt( GCRY_CIPHER_HD c, byte *outbuf, const byte *inbuf,
|
|
|
|
unsigned nbytes )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
|
|
|
switch( c->mode ) {
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_ECB:
|
1998-04-07 18:16:10 +00:00
|
|
|
assert(!(nbytes%8));
|
|
|
|
do_ecb_decrypt(c, outbuf, inbuf, nbytes/8 );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_CBC:
|
1999-06-26 10:23:06 +00:00
|
|
|
assert(!(nbytes%8)); /* fixme: should assert on blocksize */
|
|
|
|
do_cbc_decrypt(c, outbuf, inbuf, nbytes/8 );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_CFB:
|
1998-04-07 18:16:10 +00:00
|
|
|
do_cfb_decrypt(c, outbuf, inbuf, nbytes );
|
|
|
|
break;
|
1999-10-26 12:14:37 +00:00
|
|
|
case GCRY_CIPHER_MODE_NONE:
|
1998-05-26 13:38:00 +00:00
|
|
|
if( inbuf != outbuf )
|
|
|
|
memmove( outbuf, inbuf, nbytes );
|
|
|
|
break;
|
1998-04-07 18:16:10 +00:00
|
|
|
default: log_fatal("cipher_decrypt: invalid mode %d\n", c->mode );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
int
|
|
|
|
gcry_cipher_decrypt( GCRY_CIPHER_HD h, byte *out, size_t outsize,
|
|
|
|
const byte *in, size_t inlen )
|
|
|
|
{
|
|
|
|
if( !in ) {
|
|
|
|
/* caller requested in-place encryption */
|
|
|
|
/* actullay cipher_encrypt() does not need to know about it, but
|
|
|
|
* we may chnage this to get better performace */
|
|
|
|
cipher_decrypt( h, out, out, outsize );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if( outsize < inlen )
|
|
|
|
return set_lasterr( GCRYERR_TOO_SHORT );
|
|
|
|
/* fixme: check that the inlength is a multipe of the blocksize
|
|
|
|
* if a blockoriented mode is used, or modify cipher_encrypt to
|
|
|
|
* return an error in this case */
|
|
|
|
cipher_decrypt( h, out, in, inlen );
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1998-04-07 18:16:10 +00:00
|
|
|
|
|
|
|
/****************
|
1998-04-14 17:51:16 +00:00
|
|
|
* Used for PGP's somewhat strange CFB mode. Only works if
|
1999-10-26 12:14:37 +00:00
|
|
|
* the corresponding flag is set.
|
1998-04-07 18:16:10 +00:00
|
|
|
*/
|
1999-10-26 12:14:37 +00:00
|
|
|
static void
|
|
|
|
cipher_sync( GCRY_CIPHER_HD c )
|
1998-04-07 18:16:10 +00:00
|
|
|
{
|
1999-10-26 12:14:37 +00:00
|
|
|
if( (c->flags & GCRY_CIPHER_ENABLE_SYNC) && c->unused ) {
|
1998-07-29 19:35:05 +00:00
|
|
|
memmove(c->iv + c->unused, c->iv, c->blocksize - c->unused );
|
|
|
|
memcpy(c->iv, c->lastiv + c->blocksize - c->unused, c->unused);
|
1998-04-07 18:16:10 +00:00
|
|
|
c->unused = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1999-10-26 12:14:37 +00:00
|
|
|
|
|
|
|
int
|
|
|
|
gcry_cipher_ctl( GCRY_CIPHER_HD h, int cmd, void *buffer, size_t buflen)
|
|
|
|
{
|
|
|
|
switch( cmd ) {
|
|
|
|
case GCRYCTL_SET_KEY:
|
|
|
|
cipher_setkey( h, buffer, buflen );
|
|
|
|
break;
|
|
|
|
case GCRYCTL_SET_IV:
|
|
|
|
cipher_setiv( h, buffer, buflen );
|
|
|
|
break;
|
|
|
|
case GCRYCTL_CFB_SYNC:
|
|
|
|
cipher_sync( h );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case GCRYCTL_DISABLE_ALGO:
|
|
|
|
/* this one expects a NULL handle and buffer pointing to an
|
|
|
|
* integer with the algo number.
|
|
|
|
*/
|
|
|
|
if( h || !buffer || buflen != sizeof(int) )
|
1999-11-13 16:43:23 +00:00
|
|
|
return set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
disable_cipher_algo( *(int*)buffer );
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
return set_lasterr( GCRYERR_INV_OP );
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/****************
|
|
|
|
* Return information about the cipher handle.
|
|
|
|
* -1 is returned on error and gcry_errno() may be used to get more information
|
|
|
|
* about the error.
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
gcry_cipher_info( GCRY_CIPHER_HD h, int cmd, void *buffer, size_t *nbytes)
|
|
|
|
{
|
|
|
|
switch( cmd ) {
|
|
|
|
default:
|
|
|
|
set_lasterr( GCRYERR_INV_OP );
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/****************
|
|
|
|
* Return information about the given cipher algorithm
|
|
|
|
* WHAT select the kind of information returned:
|
|
|
|
* GCRYCTL_GET_KEYLEN:
|
|
|
|
* Return the length of the key, if the algorithm
|
|
|
|
* supports multiple key length, the maximum supported value
|
|
|
|
* is returnd. The length is return as number of octets.
|
|
|
|
* buffer and nbytes must be zero.
|
|
|
|
* The keylength is returned in _bytes_.
|
|
|
|
* GCRYCTL_GET_BLKLEN:
|
|
|
|
* Return the blocklength of the algorithm counted in octets.
|
|
|
|
* buffer and nbytes must be zero.
|
|
|
|
* GCRYCTL_TEST_ALGO:
|
|
|
|
* Returns 0 when the specified algorithm is available for use.
|
|
|
|
* buffer and nbytes must be zero.
|
|
|
|
*
|
|
|
|
* On error the value -1 is returned and the error reason may be
|
|
|
|
* retrieved by gcry_errno().
|
|
|
|
* Note: Because this function is in most caes used to return an
|
|
|
|
* integer value, we can make it easier for the caller to just look at
|
|
|
|
* the return value. The caller will in all cases consult the value
|
|
|
|
* and thereby detecting whether a error occured or not (i.e. while checking
|
|
|
|
* the block size)
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
gcry_cipher_algo_info( int algo, int what, void *buffer, size_t *nbytes)
|
|
|
|
{
|
|
|
|
unsigned int ui;
|
|
|
|
|
|
|
|
switch( what ) {
|
|
|
|
case GCRYCTL_GET_KEYLEN:
|
|
|
|
if( buffer || nbytes ) {
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
ui = cipher_get_keylen( algo );
|
|
|
|
if( ui > 0 && ui <= 512 )
|
|
|
|
return (int)ui/8;
|
|
|
|
/* the only reason is an invalid algo or a strange blocksize */
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case GCRYCTL_GET_BLKLEN:
|
|
|
|
if( buffer || nbytes ) {
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
ui = cipher_get_blocksize( algo );
|
|
|
|
if( ui > 0 && ui < 10000 )
|
|
|
|
return (int)ui;
|
|
|
|
/* the only reason is an invalid algo or a strange blocksize */
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case GCRYCTL_TEST_ALGO:
|
|
|
|
if( buffer || nbytes ) {
|
|
|
|
set_lasterr( GCRYERR_INV_ARG );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if( check_cipher_algo( algo ) ) {
|
1999-11-13 16:43:23 +00:00
|
|
|
set_lasterr( GCRYERR_INV_CIPHER_ALGO );
|
1999-10-26 12:14:37 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
default:
|
|
|
|
set_lasterr( GCRYERR_INV_OP );
|
|
|
|
}
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|