base

SDK/version_3/libs/libmcrypt-2.5.7/lib/mcrypt_extra.c

@@ -0,0 +1,439 @@
+/* 
+ * 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;
+}