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