#include "md5.h"
#include "sha1.h"
-/* List of all hash functions in SILC. You can dynamically add new hash
- functions into the list. At the initialization of SILC this list is
- filled with the configured hash functions. */
-struct SilcHashListStruct {
- SilcHashObject *hash;
- struct SilcHashListStruct *next;
-};
-
/* List of dynamically registered hash functions. */
-struct SilcHashListStruct *silc_hash_list = NULL;
+SilcDList silc_hash_list = NULL;
-/* Statically declared list of hash functions. */
-SilcHashObject silc_hash_builtin_list[] =
+/* Default hash functions for silc_hash_register_default(). */
+SilcHashObject silc_default_hash[] =
{
- { "md5", 16, 64, silc_md5_init, silc_md5_update, silc_md5_final,
- silc_md5_transform, silc_md5_context_len },
{ "sha1", 20, 64, silc_sha1_init, silc_sha1_update, silc_sha1_final,
silc_sha1_transform, silc_sha1_context_len },
+ { "md5", 16, 64, silc_md5_init, silc_md5_update, silc_md5_final,
+ silc_md5_transform, silc_md5_context_len },
{ NULL, 0, 0, NULL, NULL, NULL, NULL, NULL }
};
-/* Registers a ned hash function into the SILC. This function is used at
+/* Registers a new hash function into the SILC. This function is used at
the initialization of the SILC. */
-int silc_hash_register(SilcHashObject *hash)
+bool silc_hash_register(SilcHashObject *hash)
{
- struct SilcHashListStruct *new, *h;
+ SilcHashObject *new;
- SILC_LOG_DEBUG(("Registering new hash function"));
+ SILC_LOG_DEBUG(("Registering new hash function `%s'", hash->name));
new = silc_calloc(1, sizeof(*new));
- new->hash = silc_calloc(1, sizeof(*new->hash));
-
- /* Set the pointers */
- new->hash->name = silc_calloc(1, strlen(hash->name));
- memcpy(new->hash->name, hash->name, strlen(hash->name));
- new->hash->hash_len = hash->hash_len;
- new->hash->block_len = hash->block_len;
- new->hash->init = hash->init;
- new->hash->update = hash->update;
- new->hash->final = hash->final;
- new->hash->context_len = hash->context_len;
- new->next = NULL;
-
- /* Add the new hash function to the list */
- if (!silc_hash_list) {
- silc_hash_list = new;
- return TRUE;
- }
-
- h = silc_hash_list;
- while (h) {
- if (!h->next) {
- h->next = new;
- break;
- }
- h = h->next;
- }
+ new->name = strdup(hash->name);
+ new->hash_len = hash->hash_len;
+ new->block_len = hash->block_len;
+ new->init = hash->init;
+ new->update = hash->update;
+ new->final = hash->final;
+ new->transform = hash->transform;
+ new->context_len = hash->context_len;
+
+ /* Add to list */
+ if (silc_hash_list == NULL)
+ silc_hash_list = silc_dlist_init();
+ silc_dlist_add(silc_hash_list, new);
return TRUE;
}
/* Unregister a hash function from the SILC. */
-int silc_hash_unregister(SilcHashObject *hash)
+bool silc_hash_unregister(SilcHashObject *hash)
{
- struct SilcHashListStruct *h, *tmp;
+ SilcHashObject *entry;
SILC_LOG_DEBUG(("Unregistering hash function"));
- h = silc_hash_list;
-
- /* Unregister all hash functions */
- if (hash == SILC_ALL_HASH_FUNCTIONS) {
- /* Unregister all ciphers */
- while (h) {
- tmp = h->next;
- silc_free(h->hash->name);
- silc_free(h);
- h = tmp;
- }
-
- return TRUE;
- }
+ if (!silc_hash_list)
+ return FALSE;
- /* Unregister the hash function */
- if (h->hash == hash) {
- tmp = h->next;
- silc_free(h->hash->name);
- silc_free(h);
- silc_hash_list = tmp;
+ silc_dlist_start(silc_hash_list);
+ while ((entry = silc_dlist_get(silc_hash_list)) != SILC_LIST_END) {
+ if (hash == SILC_ALL_HASH_FUNCTIONS || entry == hash) {
+ silc_dlist_del(silc_hash_list, entry);
- return TRUE;
- }
+ if (silc_dlist_count(silc_hash_list) == 0) {
+ silc_dlist_uninit(silc_hash_list);
+ silc_hash_list = NULL;
+ }
- while (h) {
- if (h->next->hash == hash) {
- tmp = h->next->next;
- silc_free(h->hash->name);
- silc_free(h);
- h->next = tmp;
return TRUE;
}
-
- h = h->next;
}
return FALSE;
}
+/* Function that registers all the default hash funcs (all builtin ones).
+ The application may use this to register the default hash funcs if
+ specific hash funcs in any specific order is not wanted. */
+
+bool silc_hash_register_default(void)
+{
+ int i;
+
+ for (i = 0; silc_default_hash[i].name; i++)
+ silc_hash_register(&(silc_default_hash[i]));
+
+ return TRUE;
+}
+
/* Allocates a new SilcHash object. New object is returned into new_hash
argument. */
-int silc_hash_alloc(const unsigned char *name, SilcHash *new_hash)
+bool silc_hash_alloc(const unsigned char *name, SilcHash *new_hash)
{
- struct SilcHashListStruct *h;
- int i;
+ SilcHashObject *entry;
SILC_LOG_DEBUG(("Allocating new hash object"));
- /* Allocate the new object */
- *new_hash = silc_calloc(1, sizeof(**new_hash));
-
if (silc_hash_list) {
- h = silc_hash_list;
- while (h) {
- if (!strcmp(h->hash->name, name))
- break;
- h = h->next;
+ silc_dlist_start(silc_hash_list);
+ while ((entry = silc_dlist_get(silc_hash_list)) != SILC_LIST_END) {
+ if (!strcmp(entry->name, name)) {
+ *new_hash = silc_calloc(1, sizeof(**new_hash));
+ (*new_hash)->hash = entry;
+ (*new_hash)->context = silc_calloc(1, entry->context_len());
+ (*new_hash)->make_hash = silc_hash_make;
+ return TRUE;
+ }
}
-
- if (!h || !h->hash->context_len)
- goto check_builtin;
-
- /* Set the pointers */
- (*new_hash)->hash = h->hash;
- (*new_hash)->context = silc_calloc(1, h->hash->context_len());
- (*new_hash)->make_hash = silc_hash_make;
-
- return TRUE;
}
- check_builtin:
- for (i = 0; silc_hash_builtin_list[i].name; i++)
- if (!strcmp(silc_hash_builtin_list[i].name, name))
- break;
-
- if (silc_hash_builtin_list[i].name == NULL) {
- silc_free(*new_hash);
- *new_hash = NULL;
- return FALSE;
- }
-
- /* Set the pointers */
- (*new_hash)->hash = &silc_hash_builtin_list[i];
- (*new_hash)->context = silc_calloc(1, (*new_hash)->hash->context_len());
- (*new_hash)->make_hash = silc_hash_make;
-
- return TRUE;
+ return FALSE;
}
/* Free's the SilcHash object */
}
}
+/* Returns the length of the hash digest. */
+
+uint32 silc_hash_len(SilcHash hash)
+{
+ return hash->hash->hash_len;
+}
+
/* Returns TRUE if hash algorithm `name' is supported. */
-int silc_hash_is_supported(const unsigned char *name)
+bool silc_hash_is_supported(const unsigned char *name)
{
- struct SilcHashListStruct *h;
- int i;
-
- if (silc_hash_list) {
- h = silc_hash_list;
+ SilcHashObject *entry;
- while (h) {
- if (!strcmp(h->hash->name, name))
+ if (silc_hash_list) {
+ silc_dlist_start(silc_hash_list);
+ while ((entry = silc_dlist_get(silc_hash_list)) != SILC_LIST_END) {
+ if (!strcmp(entry->name, name))
return TRUE;
- h = h->next;
}
}
- for (i = 0; silc_hash_builtin_list[i].name; i++)
- if (!strcmp(silc_hash_builtin_list[i].name, name))
- return TRUE;
-
return FALSE;
}
/* Returns comma separated list of supported hash functions. */
-char *silc_hash_get_supported()
+char *silc_hash_get_supported(void)
{
+ SilcHashObject *entry;
char *list = NULL;
- int i, len;
- struct SilcHashListStruct *h;
+ int len;
len = 0;
if (silc_hash_list) {
- h = silc_hash_list;
-
- while (h) {
- len += strlen(h->hash->name);
+ silc_dlist_start(silc_hash_list);
+ while ((entry = silc_dlist_get(silc_hash_list)) != SILC_LIST_END) {
+ len += strlen(entry->name);
list = silc_realloc(list, len + 1);
- memcpy(list + (len - strlen(h->hash->name)),
- h->hash->name, strlen(h->hash->name));
+ memcpy(list + (len - strlen(entry->name)),
+ entry->name, strlen(entry->name));
memcpy(list + len, ",", 1);
len++;
-
- h = h->next;
}
+ list[len - 1] = 0;
}
- for (i = 0; silc_hash_builtin_list[i].name; i++) {
- len += strlen(silc_hash_builtin_list[i].name);
- list = silc_realloc(list, len + 1);
-
- memcpy(list + (len - strlen(silc_hash_builtin_list[i].name)),
- silc_hash_builtin_list[i].name,
- strlen(silc_hash_builtin_list[i].name));
- memcpy(list + len, ",", 1);
- len++;
- }
-
- list[len - 1] = 0;
-
return list;
}
/* Creates the hash value and returns it to the return_hash argument. */
void silc_hash_make(SilcHash hash, const unsigned char *data,
- unsigned int len, unsigned char *return_hash)
+ uint32 len, unsigned char *return_hash)
{
hash->hash->init(hash->context);
hash->hash->update(hash->context, (unsigned char *)data, len);
caller. */
char *silc_hash_fingerprint(SilcHash hash, const unsigned char *data,
- unsigned int data_len)
+ uint32 data_len)
{
char fingerprint[64], *cp;
unsigned char h[32];
if ((i + 1) % 10 == 0)
snprintf(cp++, sizeof(fingerprint), " ");
}
+ i--;
+ if ((i + 1) % 2 == 0)
+ cp[-2] = 0;
+ if ((i + 1) % 10 == 0)
+ cp[-1] = 0;
return strdup(fingerprint);
}
+
+static const char vo[]= "aeiouy";
+static const char co[]= "bcdfghklmnprstvzx";
+
+/* Creates a babbleprint (Bubble Babble Encoding, developed by Antti
+ Huima (draft-huima-babble-01.txt)), by first computing real fingerprint
+ using `hash' or if NULL, then using SHA1, and then encoding the
+ fingerprint to the babbleprint. */
+
+char *silc_hash_babbleprint(SilcHash hash, const unsigned char *data,
+ uint32 data_len)
+{
+ char *babbleprint;
+ unsigned char hval[32];
+ unsigned int a, b, c, d, e, check;
+ int i, k, out_len;
+
+ if (!hash)
+ silc_hash_alloc("sha1", &hash);
+
+ /* Take fingerprint */
+ silc_hash_make(hash, data, data_len, hval);
+
+ /* Encode babbleprint */
+ out_len = (((hash->hash->hash_len + 1) / 2) + 1) * 6;
+ babbleprint = silc_calloc(out_len, sizeof(*babbleprint));
+ babbleprint[0] = co[16];
+
+ check = 1;
+ for (i = 0, k = 1; i < hash->hash->hash_len - 1; i += 2, k += 6) {
+ a = (((hval[i] >> 6) & 3) + check) % 6;
+ b = (hval[i] >> 2) & 15;
+ c = ((hval[i] & 3) + (check / 6)) % 6;
+ d = (hval[i + 1] >> 4) & 15;
+ e = hval[i + 1] & 15;
+
+ check = ((check * 5) + (hval[i] * 7) + hval[i + 1]) % 36;
+
+ babbleprint[k + 0] = vo[a];
+ babbleprint[k + 1] = co[b];
+ babbleprint[k + 2] = vo[c];
+ babbleprint[k + 3] = co[d];
+ babbleprint[k + 4] = '-';
+ babbleprint[k + 5] = co[e];
+ }
+
+ if ((hash->hash->hash_len % 2) != 0) {
+ a = (((hval[i] >> 6) & 3) + check) % 6;
+ b = (hval[i] >> 2) & 15;
+ c = ((hval[i] & 3) + (check / 6)) % 6;
+ babbleprint[k + 0] = vo[a];
+ babbleprint[k + 1] = co[b];
+ babbleprint[k + 2] = vo[c];
+ } else {
+ a = check % 6;
+ b = 16;
+ c = check / 6;
+ babbleprint[k + 0] = vo[a];
+ babbleprint[k + 1] = co[b];
+ babbleprint[k + 2] = vo[c];
+ }
+ babbleprint[k + 3] = co[16];
+
+ return babbleprint;
+}