/* iksemel (XML parser for Jabber)
** Copyright (C) 2000-2003 Gurer Ozen
** This code is free software; you can redistribute it and/or
** modify it under the terms of GNU Lesser General Public License.
*/

#include <gcrypt.h>

#include "common.h"
#include "iksemel.h"

struct iksha_struct {
	gcry_md_hd_t c;
};

iksha *
iks_sha_new (void)
{
	iksha *sha;

	sha = iks_malloc (sizeof (iksha));
	if (!sha) return NULL;
	iks_sha_reset (sha);
	return sha;
}

void
iks_sha_reset (iksha *sha)
{
	memset (sha, 0, sizeof (iksha));
	gcry_md_open(&sha->c, GCRY_MD_SHA1, 0);
}

void
iks_sha_hash (iksha *sha, const unsigned char *data, size_t len, int finish)
{
	if (data && len != 0)
		gcry_md_write(sha->c, data, len);
	if (finish)
		gcry_md_final(sha->c);
}

void
iks_sha_print (iksha *sha, char *hash)
{
	unsigned char bin[20];
	int i;

	memcpy(bin, gcry_md_read(sha->c, 0), 20);

	for (i=0; i<20; i++)
	{
		sprintf (hash, "%02x", bin[i]);
		hash += 2;
	}
}

void
iks_sha_delete (iksha *sha)
{
	gcry_md_close(sha->c);
	iks_free (sha);
}

void
iks_sha (const char *data, char *hash)
{
	iksha *sha;

	sha = iks_sha_new ();
	iks_sha_hash (sha, (const unsigned char*)data, strlen (data), 1);
	iks_sha_print (sha, hash);
	iks_free (sha);
}