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
|
local ssl = require"_openssl.ssl"
local pack = table.pack or function(...) return { n = select("#", ...); ... } end
ssl.interpose("setStore", function(self, store)
self:setChainStore(store)
self:setVerifyStore(store)
return true
end)
-- Allow passing a vararg of ciphers, or an array
local setCipherList; setCipherList = ssl.interpose("setCipherList", function (self, ciphers, ...)
if (...) then
local ciphers_t = pack(ciphers, ...)
ciphers = table.concat(ciphers_t, ":", 1, ciphers_t.n)
elseif type(ciphers) == "table" then
ciphers = table.concat(ciphers, ":")
end
return setCipherList(self, ciphers)
end)
-- Allow passing a vararg of ciphersuites, or an array
local setCipherSuites = ssl.interpose("setCipherSuites", nil)
if setCipherSuites then
ssl.interpose("setCipherSuites", function (self, ciphers, ...)
if (...) then
local ciphers_t = pack(ciphers, ...)
ciphers = table.concat(ciphers_t, ":", 1, ciphers_t.n)
elseif type(ciphers) == "table" then
ciphers = table.concat(ciphers, ":")
end
return setCipherSuites(self, ciphers)
end)
end
-- Allow passing a vararg of curves, or an array
local setGroups = ssl.interpose("setGroups", nil)
if setGroups then
local function varargSetGroups(self, group, ...)
if (...) then
local group_t = pack(group, ...)
group = table.concat(group_t, ":", 1, group_t.n)
elseif type(group) == "table" then
group = table.concat(group, ":")
end
return setGroups(self, group)
end
ssl.interpose("setGroups", varargSetGroups)
ssl.interpose("setCurvesList", varargSetGroups)
end
return ssl
|
