my $data= pack('cccccccc',49,0,50,0,51,0,52,0);
print sha1_hex($data);
print sha1_base64($data);