-
Notifications
You must be signed in to change notification settings - Fork 28
/
secretbox.clj
193 lines (152 loc) · 6.82 KB
/
secretbox.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
(ns caesium.magicnonce.secretbox
"\"Magic\" nonce schemes for secretbox.
There are two kinds of schemes in this namespace:
* schemes that take a nonce, but do something with it to make the
resulting system safer or easier to use,
* schemes that produce the nonce for you automatically.
See individual function docstrings for details, but the most
interesting function in this namespace is [[secretbox-nmr]]. If you
just want a random nonce and do not care about nonce-misuse
resistance, use [[secretbox-rnd]]. The other functions are fairly
limited use."
(:require [caesium.crypto.generichash :as g]
[caesium.crypto.secretbox :as s]
[caesium.randombytes :as r]
[caesium.byte-bufs :as bb])
(:import (java.nio ByteBuffer)))
(def keybytes s/keybytes)
(defn ^:private split-pfx
[^ByteBuffer out]
(let [n (-> out (.duplicate) (.limit s/noncebytes))
c (-> out (.duplicate) (.position s/noncebytes))]
[n c]))
(defn secretbox-pfx-to-buf!
"Like [[secretbox-pfx]], but you manage the output buffer. See that fn for
details.
All buffers must be `java.nio.ByteBuffer`.
Buffer `c` must be of length of `m` + [[s/noncebytes]] + [[s/macbytes]]."
[c m n k]
(let [[n' c'] (split-pfx c)]
(s/secretbox-easy-to-buf! c' m n k)
(.put ^ByteBuffer n' ^ByteBuffer n)))
(defn secretbox-pfx
"secretbox, with the given nonce embedded in the ciphertext as a prefix.
This takes an explicit nonce, and is therefore only useful for protocols
where you need an explicit nonce (you don't have something like a record
counter) but you can not afford to use a randomized nonce or nonce-misuse
resistant scheme. That is a rare set of circumstances. Therefore, this
function is mainly used internally by other, easier to use schemes in this
namespace: check out [[secretbox-nmr]] instead.
The resulting layout will be 24 bytes of nonce, followed by the secretbox
ciphertext (which itself consists of the encryption of the plaintext,
followed by a 16 byte MAC).
To decrypt, use [[decrypt]] or [[open]], depending on which argument order
you prefer."
[m n k]
(let [out (bb/alloc (+ s/noncebytes (bb/buflen m) s/macbytes))]
(secretbox-pfx-to-buf!
out
(bb/->indirect-byte-buf m)
(bb/->indirect-byte-buf n)
(bb/->indirect-byte-buf k))
(bb/->bytes out)))
(defn ^:private random-nonce!
"Creates a random nonce suitable for use in secretbox.
This function is not pure: it will request a different random nonce from
the CSPRNG every time."
[]
(r/randombytes s/noncebytes))
(defn secretbox-rnd
"secretbox, with randomized prefix nonce.
This is useful if you don't have an obvious nonce in your protocol
you can use. However, it does rely on having cryptographically
strong randomness available during encryption. It is *not*
nonce-misuse resistant. Unless you can't afford the minor
performance penalty for a nonce-misuse resistant scheme, consider
using [[secretbox-nmr]].
To decrypt, use [[decrypt]] or [[open]], depending on which argument
order you prefer."
[msg key]
(secretbox-pfx msg (random-nonce!) key))
(def ^:private synthetic-personal
"The BLAKE2b personal used for synthetic nonce generation.
This says sodium, not caesium, in a vain hope that this ciphersuite gets
picked up by other libsodium bindings."
(.getBytes "sodium autononce"))
(defn ^:private synthetic-nonce
"Creates a synthetic nonce from the given plaintext.
This function is pure in the sense that it is deterministic and has
no visible side effects: the same plaintext will always generate the
same byte array. However, note that the returned nonce will be a
mutable byte array."
[plaintext key]
(g/blake2b plaintext {:size s/noncebytes
:key key
:personal synthetic-personal}))
(defn secretbox-det
"secretbox, with deterministic nonce.
This means the encryption operation requires no new randomness; it
is a fully deterministic cryptosystem. This means identical
plaintexts will map to identical ciphertexts. That has to be
acceptable for your protocol!
Because the nonce is determined from the plaintext, adding any
non-determinism to your message will make the nonce not repeat and
hence hide repeated messages from the attacker. A high-resolution
timestamp will do that effectively in most cases.
This scheme does not change the requirements for the key: the key
must still be a cryptographically random byte array of appropriate
size ([[caesium.crypto.secretbox/keybytes]]).
Unless you know for sure that repeat messages are OK or that your
messages will not repeat or you can't rely on encryption-time
randomness, consider [[secrebox-nmr]].
To decrypt, use [[decrypt]] or [[open]], depending on which argument
order you prefer."
[msg key]
(secretbox-pfx msg (synthetic-nonce msg key) key))
(defn ^:private xor!
"Populates `out` with the XOR of matching elements in `a`, `b`.
All three arrays should be of identical length. Returns `out`."
[^bytes out ^bytes a ^bytes b]
(dotimes [i (bb/buflen a)]
(aset-byte out i (bit-xor (aget a i) (aget b i))))
out)
(defn ^:private xor-inplace!
"XORs elements of array `a` in-place with the matching elem from `b`."
[^bytes a ^bytes b]
(xor! a a b))
(defn secretbox-nmr
"Encrypt a message like secretbox, but nonce-misuse resistant.
This still optionally takes a nonce, but that nonce will be combined
with a synthetic nonce. This means that if the nonce incidentally
repeats, an attacker will only be able to tell that a message
repeated, instead of the usual plaintext disclosure that happens.
If no nonce argument is specified, a random nonce is automatically
selected for you, and the NMR scheme is applied on top of that."
([msg nonce key]
(secretbox-pfx msg (xor-inplace! (synthetic-nonce msg key) nonce) key))
([msg key]
(secretbox-nmr msg (random-nonce!) key)))
(defn open-to-buf!
"Decrypts any secretbox message with a prefix nonce into the given buffer.
This splits the given ciphertext buffer into the nonce and the
resulting ciphertext and then defers to [[s/secretbox-open-easy-to-buf!]].
All arguments must be `java.nio.ByteBuffer`.
Analogous to [[caesium.crypto.secretbox/secretbox-open-easy-to-buf!]]."
[m c k]
(let [[n' c'] (split-pfx c)]
(s/secretbox-open-easy-to-buf! m c' n' k)))
(defn open
"Decrypts any secretbox message with a prefix nonce.
Analogous to [[caesium.crypto.secretbox/secretbox-open-easy]]."
[c k]
(let [m (bb/alloc (- (bb/buflen c) s/noncebytes s/macbytes))]
(open-to-buf! m (bb/->indirect-byte-buf c) (bb/->indirect-byte-buf k))
(bb/->bytes m)))
(defn decrypt-to-buf!
"Like [[open-to-buf!]], but with different argument order."
[m k c]
(open-to-buf! m c k))
(defn decrypt
"Like [[open]], but with different argument order."
[k c]
(open c k))