功能不做解释，纯粹测试而已

#!/usr/bin/perl
#######################
#BY 路杨
#######################
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";

my $key =  # hex("60d74cca37170860688e2f15daa5d17e");#
 &doit("ffe");
print $key;


sub doit
{
my $md5 = shift;
my $len = length($md5)-1;
my $bit ='';
# my (@bits,$bit,$i);

for my $i(0...$len)
{ my $bittmp = sprintf('%4b',hex(substr($md5,$i,1))).'['.$i.']'; $bit =$bittmp.$bit;}
return $bit;
}