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
|
local regress = require "regress";
local openssl = require "openssl";
local cipher = require "openssl.cipher"
-- Test AES-256-GCM
local key = "abcdefghijklmnopabcdefghijklmnop"
local iv = "123456123456"
local message = "My secret message"
function test_aead(params)
local c = cipher.new(params.cipher):encrypt(key, iv)
local encrypted = c:update(message)
regress.check(encrypted)
regress.check(c:final(), "fail final encrypt")
local tag = assert(c:getTag(params.tag_length))
regress.check(tag and #tag == params.tag_length)
-- Now for the decryption
local d = cipher.new(params.cipher):decrypt(key, iv)
d:setTag(tag);
local decrypted = d:update(encrypted)
regress.check(decrypted == message, "decrypted message doesn't match")
regress.check(d:final(), "fail final decrypt")
end
test_aead {
cipher = "aes-256-gcm";
tag_length = 16;
}
test_aead {
cipher = "aes-256-ccm";
tag_length = 12;
}
|
