test: add scrypt vectors

This commit is contained in:
lukechampine 2020-02-14 22:11:14 -05:00
parent 58cdceafd6
commit 0688c31d8a

View File

@ -0,0 +1,70 @@
:: tests for the scrypt key derivation algorithm
::
/+ *test
=, scr:crypto
::
|%
::
:: Test vectors from Section 12 of RFC 7914:
:: https://tools.ietf.org/html/rfc7914.html#section-12
::
+$ vector [pw=@ux salt=@ux n=@ud r=@ud p=@ud out=@ux]
::
++ test-vectors
^- tang
|^ (zing (turn vectors case))
::
++ case
|= vector
%+ expect-eq
!> (swp 3 out)
!> `@ux`(hsh pw salt n r p 64)
::
++ vectors
:: TODO: until scrypt has been jetted, we can only test the
:: first vector; the others do not finish in a reasonable
:: amount of time.
%+ scag 1 ^- (list vector)
:~
:*
0x0
0x0
16 1 1
0x77d6.5762.3865.7b20.3b19.ca42.c18a.0497.
f16b.4844.e307.4ae8.dfdf.fa3f.ede2.1442.
fcd0.069d.ed09.48f8.326a.753a.0fc8.1f17.
e8d3.e0fb.2e0d.3628.cf35.e20c.38d1.8906
==
::
:*
0x7061.7373.776f.7264
0x4e61.436c
1.024 8 16
0xfdba.be1c.9d34.7200.7856.e719.0d01.e9fe.
7c6a.d7cb.c823.7830.e773.7663.4b37.3162.
2eaf.30d9.2e22.a388.6ff1.0927.9d98.30da.
c727.afb9.4a83.ee6d.8360.cbdf.a2cc.0640
==
::
:*
0x70.6c65.6173.656c.6574.6d65.696e
0x536f.6469.756d.4368.6c6f.7269.6465
16.384 8 1
0x7023.bdcb.3afd.7348.461c.06cd.81fd.38eb.
fda8.fbba.904f.8e3e.a9b5.43f6.545d.a1f2.
d543.2955.613f.0fcf.62d4.9705.242a.9af9.
e61e.85dc.0d65.1e40.dfcf.017b.4557.5887
==
::
:*
0x70.6c65.6173.656c.6574.6d65.696e
0x536f.6469.756d.4368.6c6f.7269.6465
1.048.576 8 1
0x2101.cb9b.6a51.1aae.addb.be09.cf70.f881.
ec56.8d57.4a2f.fd4d.abe5.ee98.20ad.aa47.
8e56.fd8f.4ba5.d09f.fa1c.6d92.7c40.f4c3.
3730.4049.e8a9.52fb.cbf4.5c6f.a77a.41a4
==
==
--
--