Use Digest::SHA.