· 7 years ago · Feb 28, 2018, 07:00 AM
1import Crypto.PubKey.Ed25519
2import Crypto.Error
3import Data.ByteString.Char8
4
5str :: String;str = "hellohellohellohelloǰello%$*/.õƲ"
6
7getSecretKey seedString = throwCryptoError (secretKey (pack seedString))
8
9getPublicKey secretKey = toPublic secretKey
10
11sk = getSecretKey str
12
13pk = getPublicKey sk