-
Notifications
You must be signed in to change notification settings - Fork 0
/
test_sha2.lua
66 lines (57 loc) · 1.23 KB
/
test_sha2.lua
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
require 'luarocks.require'
require 'sha2'
require 'lfs'
print(sha2._VERSION)
sha = {
SHA256 = sha2.sha256,
SHA384 = sha2.sha384,
SHA512 = sha2.sha512,
}
shahex = {
SHA256 = sha2.sha256hex,
SHA384 = sha2.sha384hex,
SHA512 = sha2.sha512hex,
}
local function bintohex(s)
return (s:gsub('(.)', function(c)
return string.format('%02x', string.byte(c))
end))
end
for file in lfs.dir('testvectors') do
local name, ext = file:match('^(.-)%.(.*)$')
if ext == 'dat' then
local s
do
local f = assert(io.open('testvectors/'..file, 'rb'))
s = f:read('*a')
f:close()
end
local hashes = {}
do
local f = assert(io.open('testvectors/'..name..'.info'))
do
local name, hash
for line in f:lines() do
if line:find'^SHA' then
name = line:match'^(SHA.?.?.?)'
hash = ''
elseif hash then
if #line == 0 then
hashes[name] = hash
hash = nil
elseif hash then
hash = hash .. line:match'^%s*(.-)%s*$'
end
end
end
end
f:close()
end
for k,v in pairs(hashes) do
local h = bintohex(sha[k](s))
print(file, k, #s, h == v and 'ok' or h .. ' ~= ' .. v)
local h = shahex[k](s)
print(file, k..'x', #s, h == v and 'ok' or h .. ' ~= ' .. v)
end
end
end