Prelude Crypto.Hash.SHA256 T E B Data.Char Numeric> Prelude.map Data.Char.toUpper $ Prelude.concat $ Prelude.map (flip showHex "") $ B.unpack $ hash $ E.encodeUtf8 "我是谁"
"63621BE272D0F8266518E62BC739D97793C03B8B70A077345CE291441DE441"
我不是讲sha256的,我是来吐槽的
Prelude Crypto.Hash.SHA256 T E B Data.Char Numeric> Prelude.map Data.Char.toUpper $ Prelude.concat $ Prelude.map (flip showHex "") $ B.unpack $ hash $ E.encodeUtf8 "我是谁"
"63621BE272D0F8266518E62BC739D97793C03B8B70A077345CE291441DE441"
SHA256加密加密字符串要走这么长的链路,如上代码步骤为:
1 以utf8格式编码为ByteString
2 SHA256加密
3 ByteString不能直接作为数字,要unpack成[Word8] 即一个字节大小的数字
4 好在Word8 是Integral的instance,不然我还得想法转换
5 每个word8转为16进制的字符串
6 List concat为字符串
7 转换为大写
走这么长的链路,,,,,
5分钟后追加
链路长容易出问题,上面的代码就发现有bug,在转换16进制那一步遇到0a这样的数据出来的只有a,前面会少一个0,最后得出的长度会小于64。so,还得写quickcheck去验证靠谱。
下面是修正后的
Prelude.map Data.Char.toUpper $ Prelude.concat $ Prelude.map ((x->if Prelude.length x == 1 then '0':x else x).(flip showHex "")) $ B.unpack $ hash $ E.encodeUtf8 "12"
Prelude.map Data.Char.toUpper $ Prelude.concat $ Prelude.map ((x->if Prelude.length x == 1 then '0':x else x).(flip showHex "")) $ B.unpack $ hash $ E.encodeUtf8 "12"
2分钟后追加
# 运行之前需要在repl中设置
Prelude Crypto.Hash.SHA256 T E B Data.Char Numeric> :set -XOverloadedStrings