字符串从Crypto.PubKey.Ed25519的PublicKey中提取

Posted 2021-03-31

这是我的代码，正在尝试GHCI

import Crypto.PubKey.Ed25519
import Crypto.Error
import Data.ByteString.Char8

str :: String;str = "hellohellohellohelloǰello%$*/.õƲ"

getSecretKey seedString = throwCryptoError (secretKey (pack seedString))

getPublicKey secretKey = toPublic secretKey

sk = getSecretKey str

pk = getPublicKey sk

---

这里pk的价值是PublicKey "134M130F142CAN190v,228190232v171243]5CAN 211151DC1]188 206233k190237218>"

我想提取字符串部分"134M130F142CAN190v,228190232v171243]5CAN 211151DC1]188 206233k190237218>"，我该怎么办？

答案

(Data.ByteArray.convert  pk)::ByteString 

这从"134M130F142CAN190v,228190232v171243]5CAN 211151DC1]188 206233k190237218>"中提取ByteString（PublicKey "134M130F142CAN190v,228190232v171243]5CAN 211151DC1]188 206233k190237218>"）