summaryrefslogtreecommitdiff
path: root/examples/AliceBob.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/AliceBob.hs')
-rw-r--r--examples/AliceBob.hs52
1 files changed, 52 insertions, 0 deletions
diff --git a/examples/AliceBob.hs b/examples/AliceBob.hs
new file mode 100644
index 00000000..a7ec26f1
--- /dev/null
+++ b/examples/AliceBob.hs
@@ -0,0 +1,52 @@
1module AliceBob
2 ( module AliceBob
3 , SecretKey
4 , PublicKey
5 , CryptoFailable(..)
6 , secretKey
7 , toPublic
8 ) where
9
10import Crypto.PubKey.Curve25519 (SecretKey,PublicKey,secretKey,publicKey,toPublic)
11import Crypto.Error
12import Data.Word
13import Data.ByteString as B
14import qualified Data.ByteArray as BA
15
16
17alicesk_bytes :: [Word8]
18alicesk_bytes =
19 [0x77,0x07,0x6d,0x0a,0x73,0x18,0xa5,0x7d
20 ,0x3c,0x16,0xc1,0x72,0x51,0xb2,0x66,0x45
21 ,0xdf,0x4c,0x2f,0x87,0xeb,0xc0,0x99,0x2a
22 ,0xb1,0x77,0xfb,0xa5,0x1d,0xb9,0x2c,0x2a
23 ]
24
25alicesk :: SecretKey
26CryptoPassed alicesk = secretKey $ B.pack alicesk_bytes
27
28alicepk_bytes :: [Word8]
29alicepk_bytes =
30 [ 0x85,0x20,0xf0,0x09,0x89,0x30,0xa7,0x54
31 , 0x74,0x8b,0x7d,0xdc,0xb4,0x3e,0xf7,0x5a
32 , 0x0d,0xbf,0x3a,0x0d,0x26,0x38,0x1a,0xf4
33 , 0xeb,0xa4,0xa9,0x8e,0xaa,0x9b,0x4e,0x6a
34 ]
35
36alicepk :: PublicKey
37alicepk = toPublic alicesk
38
39bobsk_bytes :: [Word8]
40bobsk_bytes =
41 [0x5d,0xab,0x08,0x7e,0x62,0x4a,0x8a,0x4b
42 ,0x79,0xe1,0x7f,0x8b,0x83,0x80,0x0e,0xe6
43 ,0x6f,0x3b,0xb1,0x29,0x26,0x18,0xb6,0xfd
44 ,0x1c,0x2f,0x8b,0x27,0xff,0x88,0xe0,0xeb
45 ]
46
47bobsk :: SecretKey
48CryptoPassed bobsk = secretKey $ B.pack bobsk_bytes
49
50bobpk :: PublicKey
51bobpk = toPublic bobsk
52