sha256加密_字符串-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的，我是来吐槽的

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