diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-11-14 16:45:14 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-11-14 16:45:14 -0500 |
| commit | b42c0d847a785487f3222b0d5360746d25d3209c (patch) | |
| tree | 11ef85e3e4577eb047227f9938761bdac94a1309 /Data/OpenPGP/Util/Ed25519.hs | |
| parent | 76bf7e08bccbb1a3a689068016b8a9c29d1e060e (diff) | |
Cv25519 encryption.
Diffstat (limited to 'Data/OpenPGP/Util/Ed25519.hs')
| -rw-r--r-- | Data/OpenPGP/Util/Ed25519.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Data/OpenPGP/Util/Ed25519.hs b/Data/OpenPGP/Util/Ed25519.hs index 7504e7e..67eeba3 100644 --- a/Data/OpenPGP/Util/Ed25519.hs +++ b/Data/OpenPGP/Util/Ed25519.hs | |||
| @@ -43,8 +43,8 @@ ed25519Key k = | |||
| 43 | x = keyParam 'x' k | 43 | x = keyParam 'x' k |
| 44 | ybs = zeroExtend 32 $ integerToLE y | 44 | ybs = zeroExtend 32 $ integerToLE y |
| 45 | lb = BS.last ybs | 45 | lb = BS.last ybs |
| 46 | in if x < 0 then BS.take 31 ybs `BS.snoc` (lb .|. 1) | 46 | in if x < 0 then BS.take 31 ybs `BS.snoc` (lb .|. 0x80) |
| 47 | else BS.take 31 ybs `BS.snoc` (lb .&. 0xFE) | 47 | else BS.take 31 ybs `BS.snoc` (lb .&. 0x7F) |
| 48 | in case Ed25519.publicKey n of | 48 | in case Ed25519.publicKey n of |
| 49 | CryptoPassed ed25519 -> Just ed25519 | 49 | CryptoPassed ed25519 -> Just ed25519 |
| 50 | CryptoFailed _ -> Nothing | 50 | CryptoFailed _ -> Nothing |