@z = unpack("c*",$sha->digest);