440 lines
8.8 KiB
C
440 lines
8.8 KiB
C
/*
|
|
* Copyright (C) 1998,1999,2001 Nikos Mavroyanopoulos
|
|
*
|
|
* This library is free software; you can redistribute it and/or modify it under the terms of the
|
|
* GNU Library General Public License as published by the Free Software
|
|
* Foundation; either version 2 of the License, or (at your option) any
|
|
* later version.
|
|
*
|
|
* This library 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
|
|
* Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library General Public
|
|
* License along with this library; if not, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
/* $Id: mcrypt_extra.c,v 1.26 2002/12/17 10:53:34 nmav Exp $ */
|
|
|
|
#include <libdefs.h>
|
|
#include <bzero.h>
|
|
#include <xmemory.h>
|
|
#include <mcrypt_internal.h>
|
|
|
|
int mcrypt_algorithm_module_ok(const char *file, const char *directory);
|
|
int mcrypt_mode_module_ok(const char *file, const char *directory);
|
|
|
|
void *mcrypt_dlopen(mcrypt_dlhandle * handle, const char *a_directory,
|
|
const char *m_directory, const char *filename);
|
|
|
|
#ifdef HAVE_READDIR_R
|
|
# define MAXPATHLEN 256
|
|
#endif
|
|
|
|
WIN32DLL_DEFINE char *mcrypt_readdir(DIR * dirstream)
|
|
{
|
|
|
|
char *result;
|
|
struct dirent *ret = NULL;
|
|
#ifdef HAVE_READDIR_R
|
|
struct dirent ret2[sizeof(struct dirent) + MAXPATHLEN];
|
|
#endif
|
|
|
|
#ifdef HAVE_READDIR_R
|
|
readdir_r(dirstream, ret2, &ret);
|
|
#else
|
|
ret = readdir(dirstream);
|
|
#endif
|
|
if (ret == NULL)
|
|
return NULL;
|
|
|
|
result = strdup(ret->d_name);
|
|
if (result == NULL) {
|
|
return NULL;
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
extern const mcrypt_preloaded mps[];
|
|
|
|
WIN32DLL_DEFINE char **mcrypt_list_algorithms(const char *libdir,
|
|
int *size)
|
|
{
|
|
DIR *pdir;
|
|
char directory[512];
|
|
char *dirname;
|
|
char **filename = NULL, *ptr;
|
|
int tmpsize, i = 0;
|
|
|
|
|
|
*size = 0;
|
|
|
|
while (mps[i].name != 0 || mps[i].address != 0) {
|
|
if (mps[i].name != NULL && mps[i].address == NULL) {
|
|
if (mcrypt_algorithm_module_ok(mps[i].name, NULL) >
|
|
0) {
|
|
filename =
|
|
realloc(filename,
|
|
((*size) +
|
|
1) * sizeof(char *));
|
|
if (filename == NULL) {
|
|
goto freeall;
|
|
}
|
|
filename[*size] = strdup(mps[i].name);
|
|
if (filename[*size] == NULL)
|
|
goto freeall;
|
|
(*size)++;
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
|
|
#ifdef USE_LTDL
|
|
|
|
if (libdir == NULL) {
|
|
strncpy(directory, LIBDIR, sizeof(directory)-1);
|
|
} else {
|
|
strncpy(directory, libdir, sizeof(directory)-1);
|
|
}
|
|
directory[ sizeof(directory)-1] = 0;
|
|
|
|
pdir = opendir(directory);
|
|
if (pdir == NULL) {
|
|
#ifdef DEBUG
|
|
fprintf(stderr, "Unable to open directory %s.\n",
|
|
directory);
|
|
#endif
|
|
return filename;
|
|
}
|
|
|
|
for (;;) {
|
|
dirname = mcrypt_readdir(pdir);
|
|
if (dirname != NULL) {
|
|
tmpsize = strlen(dirname);
|
|
if (tmpsize > 3) {
|
|
|
|
if (mcrypt_algorithm_module_ok
|
|
(dirname, directory) > 0) {
|
|
ptr = strrchr(dirname, '.');
|
|
if (ptr != NULL) {
|
|
*ptr = '\0';
|
|
tmpsize = strlen(dirname);
|
|
}
|
|
|
|
if (_mcrypt_search_symlist_lib
|
|
(dirname) != NULL) {
|
|
free(dirname);
|
|
continue; /* it's already in the list,
|
|
* since it's included in the lib.
|
|
*/
|
|
}
|
|
|
|
filename =
|
|
realloc(filename,
|
|
(*size +
|
|
1) * sizeof(char *));
|
|
if (filename == NULL) {
|
|
free(dirname);
|
|
goto freeall;
|
|
}
|
|
|
|
filename[*size] = strdup(dirname);
|
|
if (filename[*size] == NULL) {
|
|
free(dirname);
|
|
goto freeall;
|
|
}
|
|
(*size)++;
|
|
}
|
|
}
|
|
free(dirname);
|
|
} else break;
|
|
}
|
|
|
|
|
|
closedir(pdir);
|
|
|
|
#endif
|
|
|
|
return filename;
|
|
|
|
freeall:
|
|
for (i = 0; i < (*size); i++) {
|
|
free(filename[i]);
|
|
}
|
|
free(filename);
|
|
return NULL;
|
|
}
|
|
|
|
WIN32DLL_DEFINE char **mcrypt_list_modes(const char *libdir, int *size)
|
|
{
|
|
DIR *pdir;
|
|
char directory[512];
|
|
char *dirname;
|
|
char **filename = NULL, *ptr;
|
|
int tmpsize;
|
|
int i = 0;
|
|
|
|
*size = 0;
|
|
|
|
while (mps[i].name != 0 || mps[i].address != 0) {
|
|
if (mps[i].name != NULL && mps[i].address == NULL) {
|
|
if (mcrypt_mode_module_ok(mps[i].name, NULL) > 0) {
|
|
filename =
|
|
realloc(filename,
|
|
(*size + 1) * sizeof(char *));
|
|
if (filename == NULL) {
|
|
goto freeall;
|
|
}
|
|
filename[*size] = strdup(mps[i].name);
|
|
if (filename[*size] == NULL)
|
|
goto freeall;
|
|
(*size)++;
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
|
|
#ifdef USE_LTDL
|
|
|
|
if (libdir == NULL) {
|
|
strncpy(directory, LIBDIR, sizeof(directory)-1);
|
|
} else {
|
|
strncpy(directory, libdir, sizeof(directory)-1);
|
|
}
|
|
directory[ sizeof(directory)-1] = 0;
|
|
|
|
pdir = opendir(directory);
|
|
if (pdir == NULL) {
|
|
#ifdef DEBUG
|
|
fprintf(stderr, "Unable to open directory %s.\n",
|
|
directory);
|
|
#endif
|
|
return filename;
|
|
}
|
|
|
|
for (;;) {
|
|
|
|
dirname = mcrypt_readdir(pdir);
|
|
if (dirname != NULL) {
|
|
tmpsize = strlen(dirname);
|
|
if (tmpsize > 3) {
|
|
if (mcrypt_mode_module_ok
|
|
(dirname, directory) > 0) {
|
|
|
|
ptr = strrchr(dirname, '.');
|
|
if (ptr != NULL) {
|
|
*ptr = '\0';
|
|
tmpsize = strlen(dirname);
|
|
}
|
|
if (_mcrypt_search_symlist_lib
|
|
(dirname) != NULL) {
|
|
free(dirname);
|
|
continue; /* it's already in the list,
|
|
* since it's included in the lib.
|
|
*/
|
|
}
|
|
filename =
|
|
realloc(filename,
|
|
(*size +
|
|
1) * sizeof(char *));
|
|
if (filename == NULL) {
|
|
free(dirname);
|
|
goto freeall;
|
|
}
|
|
|
|
filename[*size] = strdup(dirname);
|
|
if (filename[*size] == NULL) {
|
|
free(dirname);
|
|
goto freeall;
|
|
}
|
|
(*size)++;
|
|
}
|
|
}
|
|
free(dirname);
|
|
} else {
|
|
break;
|
|
}
|
|
|
|
}
|
|
|
|
closedir(pdir);
|
|
#endif
|
|
|
|
return filename;
|
|
|
|
freeall:
|
|
for (i = 0; i < (*size); i++) {
|
|
free(filename[i]);
|
|
}
|
|
free(filename);
|
|
return NULL;
|
|
}
|
|
|
|
WIN32DLL_DEFINE void mcrypt_free_p(char **p, int size)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < size; i++) {
|
|
free(p[i]);
|
|
}
|
|
free(p);
|
|
}
|
|
|
|
WIN32DLL_DEFINE
|
|
int mcrypt_algorithm_module_ok(const char *file, const char *directory)
|
|
{
|
|
word32 ret = 1;
|
|
mcrypt_dlhandle _handle;
|
|
void *rr;
|
|
int (*_version) (void);
|
|
|
|
if (file == NULL && directory == NULL) {
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
if (lt_dlinit() != 0) {
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
rr = mcrypt_dlopen(&_handle, directory, NULL, file);
|
|
|
|
if (!rr) {
|
|
lt_dlexit();
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
|
|
_version = mcrypt_dlsym(_handle, "_mcrypt_algorithm_version");
|
|
|
|
if (_version == NULL) {
|
|
mcrypt_dlclose(_handle);
|
|
lt_dlexit();
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
ret = _version();
|
|
|
|
mcrypt_dlclose(_handle);
|
|
|
|
lt_dlexit();
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
WIN32DLL_DEFINE
|
|
int mcrypt_mode_module_ok(const char *file, const char *directory)
|
|
{
|
|
word32 ret;
|
|
mcrypt_dlhandle _handle;
|
|
void *rr;
|
|
int (*_version) (void);
|
|
|
|
if (file == NULL && directory == NULL) {
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
if (lt_dlinit() != 0) {
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
rr = mcrypt_dlopen(&_handle, directory, NULL, file);
|
|
if (!rr) {
|
|
lt_dlexit();
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
|
|
_version = mcrypt_dlsym(_handle, "_mcrypt_mode_version");
|
|
|
|
if (_version == NULL) {
|
|
mcrypt_dlclose(_handle);
|
|
lt_dlexit();
|
|
return MCRYPT_UNKNOWN_ERROR;
|
|
}
|
|
|
|
ret = _version();
|
|
|
|
mcrypt_dlclose(_handle);
|
|
lt_dlexit();
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
/* Taken from libgcrypt */
|
|
|
|
static const char *parse_version_number(const char *s, int *number)
|
|
{
|
|
int val = 0;
|
|
|
|
if (*s == '0' && isdigit(s[1]))
|
|
return NULL; /* leading zeros are not allowed */
|
|
for (; isdigit(*s); s++) {
|
|
val *= 10;
|
|
val += *s - '0';
|
|
}
|
|
*number = val;
|
|
return val < 0 ? NULL : s;
|
|
}
|
|
|
|
|
|
static const char *parse_version_string(const char *s, int *major,
|
|
int *minor, int *micro)
|
|
{
|
|
s = parse_version_number(s, major);
|
|
if (!s || *s != '.')
|
|
return NULL;
|
|
s++;
|
|
s = parse_version_number(s, minor);
|
|
if (!s || *s != '.')
|
|
return NULL;
|
|
s++;
|
|
s = parse_version_number(s, micro);
|
|
if (!s)
|
|
return NULL;
|
|
return s; /* patchlevel */
|
|
}
|
|
|
|
/****************
|
|
* Check that the the version of the library is at minimum the requested one
|
|
* and return the version string; return NULL if the condition is not
|
|
* satisfied. If a NULL is passed to this function, no check is done,
|
|
* but the version string is simply returned.
|
|
*/
|
|
const char *mcrypt_check_version(const char *req_version)
|
|
{
|
|
const char *ver = VERSION;
|
|
int my_major, my_minor, my_micro;
|
|
int rq_major, rq_minor, rq_micro;
|
|
const char *my_plvl, *rq_plvl;
|
|
|
|
if (!req_version)
|
|
return ver;
|
|
|
|
my_plvl =
|
|
parse_version_string(ver, &my_major, &my_minor, &my_micro);
|
|
if (!my_plvl)
|
|
return NULL; /* very strange our own version is bogus */
|
|
rq_plvl = parse_version_string(req_version, &rq_major, &rq_minor,
|
|
&rq_micro);
|
|
if (!rq_plvl)
|
|
return NULL; /* req version string is invalid */
|
|
|
|
if (my_major > rq_major
|
|
|| (my_major == rq_major && my_minor > rq_minor)
|
|
|| (my_major == rq_major && my_minor == rq_minor
|
|
&& my_micro > rq_micro)
|
|
|| (my_major == rq_major && my_minor == rq_minor
|
|
&& my_micro == rq_micro
|
|
&& strcmp(my_plvl, rq_plvl) >= 0)) {
|
|
return ver;
|
|
}
|
|
return NULL;
|
|
}
|