sub myhex_md5 {
	my $string = shift;
	my @chars = split(//, $string);
	return md5_hex(join("\0", @chars) . "\0");
}