mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
304 lines
9.2 KiB
Plaintext
304 lines
9.2 KiB
Plaintext
:: tests for the keccak hashing algorithms
|
|
::
|
|
:: answers for keccak from the keccak team:
|
|
:: https://keccak.team/archives.html
|
|
:: (we swp the inputs because ++keccak wants to work with @t's, which are in
|
|
:: reverse byte order)
|
|
::
|
|
:: since all other hashing algorithms are implemented as keccak, their only
|
|
:: difference a single padding byte, we can safely test just one input.
|
|
:: answers for those pulled from the nist website:
|
|
:: https://csrc.nist.gov/projects/cryptographic-standards-and-guidelines/example-values
|
|
::
|
|
:: answer for rawshake-256 was found here:
|
|
:: https://github.com/maandree/libkeccak/blob/master/test.c
|
|
:: for rawshake-128, the implementation was assumed to be correct at the time
|
|
:: these tests were written.
|
|
::
|
|
::
|
|
/+ *test
|
|
=, keccak:crypto
|
|
::
|
|
:: per bytelength, an example input.
|
|
=/ keccak-inputs=(map @ud @)
|
|
=- (~(run by -) (cury swp 3))
|
|
%- ~(gas by *(map @ud @))
|
|
^- (list (pair @ud @))
|
|
:~
|
|
:- 0
|
|
0x0
|
|
::
|
|
:- 1
|
|
0xcc
|
|
::
|
|
:- 4
|
|
0xc1ec.fdfc
|
|
::
|
|
:- 8
|
|
0x4a4f.2024.8451.2526
|
|
::
|
|
:- 64
|
|
0xe926.ae8b.0af6.e531.76db.ffcc.2a6b.88c6.
|
|
bd76.5f93.9d3d.178a.9bde.9ef3.aa13.1c61.
|
|
e31c.1e42.cdfa.f4b4.dcde.579a.37e1.50ef.
|
|
bef5.555b.4c1c.b404.39d8.35a7.24e2.fae7
|
|
::
|
|
:- 128
|
|
0x2b6d.b7ce.d866.5ebe.9deb.0802.9521.8426.
|
|
bdaa.7c6d.a9ad.d208.8932.cdff.baa1.c141.
|
|
29bc.cdd7.0f36.9efb.1492.8585.8d2b.1d15.
|
|
5d14.de2f.db68.0a8b.0272.8405.5182.a0ca.
|
|
e275.234c.c9c9.2863.c1b4.ab66.f304.cf06.
|
|
21cd.5456.5f5b.ff46.1d3b.461b.d40d.f281.
|
|
98e3.7325.01b4.860e.add5.03d2.6d6e.6933.
|
|
8f4e.0456.e9e9.baf3.d827.ae68.5fb1.d817
|
|
::
|
|
:- 255
|
|
0x3a.3a81.9c48.efde.2ad9.14fb.f00e.18ab.
|
|
6bc4.f145.13ab.27d0.c178.a188.b614.31e7.
|
|
f562.3cb6.6b23.3467.75d3.86b5.0e98.2c49.
|
|
3adb.bfc5.4b9a.3cd3.8338.2336.a1a0.b215.
|
|
0a15.358f.336d.03ae.18f6.66c7.573d.55c4.
|
|
fd18.1c29.e6cc.fde6.3ea3.5f0a.df58.85cf.
|
|
c0a3.d84a.2b2e.4dd2.4496.db78.9e66.3170.
|
|
cef7.4798.aa1b.bcd4.574e.a0bb.a404.89d7.
|
|
64b2.f83a.adc6.6b14.8b4a.0cd9.5246.c127.
|
|
d587.1c4f.1141.8690.a5dd.f012.46a0.c80a.
|
|
43c7.0088.b618.3639.dcfd.a412.5bd1.13a8.
|
|
f49e.e23e.d306.faac.576c.3fb0.c1e2.5667.
|
|
1d81.7fc2.534a.52f5.b439.f72e.424d.e376.
|
|
f4c5.65cc.a823.07dd.9ef7.6da5.b7c4.eb7e.
|
|
0851.72e3.2880.7c02.d011.ffbf.3378.5378.
|
|
d79d.c266.f6a5.be6b.b0e4.a92e.ceeb.aeb1
|
|
==
|
|
::
|
|
|%
|
|
::
|
|
:: check a list of bytelength-answer pairs to see if
|
|
:: they match the output given by {hash} for the
|
|
:: corresponding example input from {keccak-inputs}.
|
|
++ verify-known-answers
|
|
|= $: hash=$-(octs @)
|
|
name=tape
|
|
answers=(list (pair @ud @))
|
|
==
|
|
^- tang
|
|
?~ answers ~
|
|
%+ weld $(answers t.answers)
|
|
=+ `[bytes=@ud answer=@]`i.answers
|
|
%+ category name
|
|
%+ expect-eq
|
|
!> answer
|
|
!> (hash bytes (~(got by keccak-inputs) bytes))
|
|
::
|
|
:: keccak
|
|
::
|
|
++ test-keccak-224
|
|
%^ verify-known-answers keccak-224 "keccak-224"
|
|
:~ :- 0
|
|
0xf718.3750.2ba8.e108.37bd.d8d3.65ad.b855.
|
|
9189.5602.fc55.2b48.b739.0abd
|
|
::
|
|
:- 1
|
|
0xa9ca.b59e.b40a.10b2.4629.0f2d.6086.e32e.
|
|
3689.faf1.d26b.470c.899f.2802
|
|
::
|
|
:- 4
|
|
0xe405.869d.a146.4a70.5700.a3cb.ce13.1aab.
|
|
eeba.9c8d.2fe6.576b.21bc.be16
|
|
::
|
|
:- 8
|
|
0x7a5c.2cb3.f999.dd00.eff7.3999.6331.4ca6.
|
|
47dd.0e5a.e1bd.dec6.11f8.338d
|
|
::
|
|
:- 64
|
|
0xc533.dcf8.8cd1.a5df.f22b.914d.3875.bd57.
|
|
fc17.b2e1.f474.ae36.0c38.77d2
|
|
::
|
|
:- 128
|
|
0xaf3e.0cc6.e645.01f1.0fd3.9722.e852.355f.
|
|
d6d8.0d32.1906.31e2.f06c.22ad
|
|
::
|
|
:- 255
|
|
0x5af5.6987.ea9c.f11f.cd0e.ac5e.bc14.b037.
|
|
365e.9b11.23e3.1cb2.dfc7.929a
|
|
==
|
|
::
|
|
++ test-keccak-256
|
|
%^ verify-known-answers keccak-256 "keccak-256"
|
|
:~ :- 0
|
|
0xc5d2.4601.86f7.233c.927e.7db2.dcc7.03c0.
|
|
e500.b653.ca82.273b.7bfa.d804.5d85.a470
|
|
::
|
|
:- 1
|
|
0xeead.6dbf.c734.0a56.caed.c044.696a.1688.
|
|
7054.9a6a.7f6f.5696.1e84.a54b.d997.0b8a
|
|
::
|
|
:- 4
|
|
0xb149.e766.d761.2eaf.7d55.f74e.1a4f.dd63.
|
|
709a.8115.b14f.61fc.d22a.a4ab.c8b8.e122
|
|
::
|
|
:- 8
|
|
0xe620.d8f2.982b.24fe.daaa.3baa.9b46.c3f9.
|
|
ce20.4ee3.5666.6553.ecb3.5e15.c3ff.9bf9
|
|
::
|
|
:- 64
|
|
0x5742.71cd.1395.9e8d.deae.5bfb.db02.a3fd.
|
|
f54f.2bab.fd0c.beb8.9308.2a97.4957.d0c1
|
|
::
|
|
:- 128
|
|
0xd82e.257d.000d.c9fa.279a.00e2.961e.3286.
|
|
d2fe.1c02.ef59.833a.b8a6.a710.1bc2.5054
|
|
::
|
|
:- 255
|
|
0x348f.b774.adc9.70a1.6b11.0566.9442.625e.
|
|
6ada.a825.7a89.effd.b5a8.02f1.61b8.62ea
|
|
==
|
|
::
|
|
++ test-keccak-384
|
|
%^ verify-known-answers keccak-384 "keccak-384"
|
|
:~ :- 0
|
|
0x2c23.146a.63a2.9acf.99e7.3b88.f8c2.4eaa.
|
|
7dc6.0aa7.7178.0ccc.006a.fbfa.8fe2.479b.
|
|
2dd2.b213.6233.7441.ac12.b515.9119.57ff
|
|
::
|
|
:- 1
|
|
0x1b84.e62a.46e5.a201.8617.54af.5dc9.5c4a.
|
|
1a69.caf4.a796.ae40.5680.161e.2957.2641.
|
|
f5fa.1e86.41d7.9583.36ee.7b11.c58f.73e9
|
|
::
|
|
:- 4
|
|
0xf185.0b2a.bb24.f3fd.683c.7015.8278.9d9e.
|
|
92b6.a45f.9c34.5f9d.ae7f.7997.c8c9.10e8.
|
|
8003.e592.e592.81cf.92c9.2d6b.51a1.afd1
|
|
::
|
|
:- 8
|
|
0x638e.6575.8a29.7cb0.9ded.1ac5.b9e8.f779.
|
|
8020.00ab.791f.67f3.3c60.be36.4437.93ad.
|
|
cc8a.4a58.e986.8815.7a41.784f.02a4.bcb2
|
|
::
|
|
:- 64
|
|
0x14aa.679b.0c11.f9c3.63f5.4933.0261.b45e.
|
|
1e90.ce31.f4a1.b0ce.5cb9.eb81.bd60.79a3.
|
|
742d.8602.356c.5098.5d0d.3e54.0fdf.dcfb
|
|
::
|
|
:- 128
|
|
0x3ade.b7ee.ecf9.069f.143a.1015.1fd4.506a.
|
|
eef3.a0ef.94ca.65d4.448a.cf1e.892b.8ebb.
|
|
0887.6318.04dd.64e1.53ad.41fa.e012.7a85
|
|
::
|
|
:- 255
|
|
0x6bff.1c84.05a3.fe59.4e36.0e3b.ccea.1ebc.
|
|
d509.310d.c79b.9e45.c263.783d.7a5d.d662.
|
|
c678.9b18.bd56.7dbd.da15.54f5.bee6.a860
|
|
==
|
|
::
|
|
++ test-keccak-512
|
|
%^ verify-known-answers keccak-512 "keccak-512"
|
|
:~ :- 0
|
|
0xeab.42de.4c3c.eb92.35fc.91ac.ffe7.46b2.
|
|
9c29.a8c3.66b7.c60e.4e67.c466.f36a.4304.
|
|
c00f.a9ca.f9d8.7976.ba46.9bcb.e067.13b4.
|
|
35f0.91ef.2769.fb16.0cda.b33d.3670.680e
|
|
::
|
|
:- 1
|
|
0x8630.c13c.bd06.6ea7.4bbe.7fe4.68fe.c1de.
|
|
e10e.dc12.54fb.4c1b.7c5f.d69b.646e.4416.
|
|
0b8c.e01d.05a0.908c.a790.dfb0.80f4.b513.
|
|
bc3b.6225.ece7.a810.3714.41a5.ac66.6eb9
|
|
::
|
|
:- 4
|
|
0x952d.4c0a.6f0e.f5ce.438c.52e3.edd3.45ea.
|
|
00f9.1cf5.da80.97c1.168a.1606.9e95.8fc0.
|
|
5bad.90a0.c5fb.4dd9.ec28.e84b.226b.94a8.
|
|
47d6.bb89.2356.92ef.4c97.12f0.c703.0fae
|
|
::
|
|
:- 8
|
|
0xf326.c7c1.26dd.c277.9227.60fe.ef77.c9ba.
|
|
b6fb.5d34.30f6.5259.3703.d7c5.e301.35cd.
|
|
0b05.7525.7509.a624.1843.30d6.ab1f.508a.
|
|
6663.91b5.d469.0426.b4e0.5301.891d.f897
|
|
::
|
|
:- 64
|
|
0xc0a4.d8dc.a967.772d.bf6e.5508.c913.e7be.
|
|
ba1b.749a.2b1a.c963.d067.6e6f.1dcd.4eba.
|
|
a3f9.09ef.87dd.8498.82dc.8253.347a.5f65.
|
|
20b5.b9f5.1097.3f44.3976.455f.923c.fcb9
|
|
::
|
|
:- 128
|
|
0xaebb.a57c.8ed5.af6e.c93f.4aa4.5772.ff51.
|
|
67b7.ea88.dfa7.1364.f37d.8fc5.fdb7.dc3b.
|
|
2c83.31a0.8023.f21d.110b.7d82.1e2d.c7e8.
|
|
6082.6235.e7e6.2919.12ac.5213.8474.7354
|
|
::
|
|
:- 255
|
|
0x8195.0e70.96d3.1d4f.22e3.db71.cac7.25bf.
|
|
59e8.1af5.4c7c.a9e6.aeee.71c0.10fc.5467.
|
|
4663.12a0.1aa5.c137.cfb1.4064.6941.5567.
|
|
96f6.12c9.3512.6873.7c7e.9a2b.9631.d1fa
|
|
==
|
|
::
|
|
:: sha3
|
|
::
|
|
++ test-sha3-224
|
|
%+ expect-eq
|
|
!> 0x6b4e.0342.3667.dbb7.3b6e.1545.4f0e.b1ab.
|
|
d459.7f9a.1b07.8e3f.5b5a.6bc7
|
|
!> (sha3-224 0 `@`0)
|
|
::
|
|
++ test-sha3-256
|
|
%+ expect-eq
|
|
!> 0xa7ff.c6f8.bf1e.d766.51c1.4756.a061.d662.
|
|
f580.ff4d.e43b.49fa.82d8.0a4b.80f8.434a
|
|
!> (sha3-256 0 `@`0)
|
|
::
|
|
++ test-sha3-384
|
|
%+ expect-eq
|
|
!> 0xc63.a75b.845e.4f7d.0110.7d85.2e4c.2485.
|
|
c51a.50aa.aa94.fc61.995e.71bb.ee98.3a2a.
|
|
c371.3831.264a.db47.fb6b.d1e0.58d5.f004
|
|
!> (sha3-384 0 `@`0)
|
|
::
|
|
++ test-sha3-512
|
|
%+ expect-eq
|
|
!> 0xa69f.73cc.a23a.9ac5.c8b5.67dc.185a.756e.
|
|
97c9.8216.4fe2.5859.e0d1.dcc1.475c.80a6.
|
|
15b2.123a.f1f5.f94c.11e3.e940.2c3a.c558.
|
|
f500.199d.95b6.d3e3.0175.8586.281d.cd26
|
|
!> (sha3-512 0 `@`0)
|
|
::
|
|
:: shake
|
|
::
|
|
++ test-shake-128
|
|
%+ expect-eq
|
|
!> 0x7f9c.2ba4.e88f.827d.6160.4550.7605.853e.
|
|
d73b.8093.f6ef.bc88.eb1a.6eac.fa66.ef26.
|
|
3cb1.eea9.8800.4b93.103c.fb0a.eefd.2a68.
|
|
6e01.fa4a.58e8.a363.9ca8.a1e3.f9ae.57e2
|
|
!> (shake-128 512 0 `@`0)
|
|
::
|
|
++ test-shake-256
|
|
%+ expect-eq
|
|
!> 0x46b9.dd2b.0ba8.8d13.233b.3feb.743e.eb24.
|
|
3fcd.52ea.62b8.1b82.b50c.2764.6ed5.762f.
|
|
d75d.c4dd.d8c0.f200.cb05.019d.67b5.92f6.
|
|
fc82.1c49.479a.b486.4029.2eac.b3b7.c4be
|
|
!> (shake-256 512 0 `@`0)
|
|
::
|
|
++ test-rawshake-128
|
|
%+ expect-eq
|
|
!> 0xfa01.9a3b.1763.0df6.0148.53b5.4707.73f1.
|
|
3c3a.b704.4782.11d7.a658.6751.5dea.1cc7.
|
|
926b.2147.e396.076b.22cb.7263.3af5.0647.
|
|
c7f2.3d0d.8f00.1d6d.8daf.0f6f.2e92.fc0e
|
|
!> (rawshake-128 512 0 `@`0)
|
|
::
|
|
++ test-rawshake-256
|
|
%+ expect-eq
|
|
!> 0x3a11.08d4.a90a.31b8.5a10.bdce.77f4.bfbd.
|
|
cc5b.1d70.dd40.5686.f8bb.de83.4aa1.a410.
|
|
db8c.9e1c.166c.3e23.9cd7.6a55.f6a6.92aa.
|
|
2d17.49f2.ec79.cd0b.a3b1.7bb6.5995.9b6e
|
|
!> (rawshake-256 512 0 `@`0)
|
|
--
|