function hex_md5(strval)
{

	try
	{
	var CAPICOM_HASH_ALGORITHM_SHA1=0;
	var obj;
	obj=new ActiveXObject("CAPICOM.HashedData");
	obj.Algorithm=CAPICOM_HASH_ALGORITHM_SHA1;
	obj.Hash(strval);

	return obj.Value ;
	}
	catch(ex)
	{
		return false;
	}
}