urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity
4b4739f2f9
shrub/pkg/arvo/tests/sys/zuse/crypto/aes.hoon
lukechampine 4b4739f2f9 test: add AES-CMAC vectors
2020-02-03 16:47:23 -05:00

357 lines
10 KiB
Plaintext
Raw Blame History

:: tests for the aes block cipher
::
/+ *test
=, aes:crypto
::
|%
::
:: ECB mode. Test vectors from Appendix C of FIPS-197:
:: https://csrc.nist.gov/publications/fips/fips197/fips-197.pdf
::
+$ vector-ecb [key=@ux in=@ux out=@ux]
::
++ do-test-vectors-ecb
|* [ecbx=_ecba ves=(list vector-ecb)]
^- tang
|^ %+ weld
%+ category "encrypting"
(zing (turn ves enc))
%+ category "decrypting"
(zing (turn ves dec))
::
++ enc
|= vector-ecb
%+ expect-eq
!> out
!> `@ux`(~(en ecbx key) in)
::
++ dec
|= vector-ecb
%+ expect-eq
!> in
!> `@ux`(~(de ecbx key) out)
--
::
++ test-aes-ecba
%+ do-test-vectors-ecb ecba
:~
:+ 0x0
0x0
0x66e9.4bd4.ef8a.2c3b.884c.fa59.ca34.2b2e
::
:+ 0x0
0x1
0x58e2.fcce.fa7e.3061.367f.1d57.a4e7.455a
::
:+ 0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f
0x11.2233.4455.6677.8899.aabb.ccdd.eeff
0x69c4.e0d8.6a7b.0430.d8cd.b780.70b4.c55a
==
::
++ test-aes-ecbb
%+ do-test-vectors-ecb ecbb
:~
:+ 0x0
0x0
0xaae0.6992.acbf.52a3.e8f4.a96e.c930.0bd7
::
:+ 0x0
0x1
0xcd33.b28a.c773.f74b.a00e.d1f3.1257.2435
::
:+ 0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f.
1011.1213.1415.1617
0x11.2233.4455.6677.8899.aabb.ccdd.eeff
0xdda9.7ca4.864c.dfe0.6eaf.70a0.ec0d.7191
==
::
++ test-aes-ecbc
%+ do-test-vectors-ecb ecbc
:~
:+ 0x0
0x0
0xdc95.c078.a240.8989.ad48.a214.9284.2087
::
:+ 0x0
0x1
0x530f.8afb.c745.36b9.a963.b4f1.c4cb.738b
::
:+ 0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f.
1011.1213.1415.1617.1819.1a1b.1c1d.1e1f
0x11.2233.4455.6677.8899.aabb.ccdd.eeff
0x8ea2.b7ca.5167.45bf.eafc.4990.4b49.6089
==
::
:: CBC mode. Test vectors from Appendix F of NIST SP 800-38A:
:: https://nvlpubs.nist.gov/nistpubs/Legacy/SP/nistspecialpublication800-38a.pdf
::
+$ vector-cbc [key=@ux iv=@ux in=@ux out=@ux]
::
++ do-test-vectors-cbc
|* [cbcx=_cbca ves=(list vector-cbc)]
^- tang
|^ %+ weld
%+ category "encrypting"
(zing (turn ves enc))
%+ category "decrypting"
(zing (turn ves dec))
::
++ enc
|= vector-cbc
%+ expect-eq
!> out
!> `@ux`(~(en cbcx key iv) in)
::
++ dec
|= vector-cbc
%+ expect-eq
!> in
!> `@ux`(~(de cbcx key iv) out)
--
::
++ test-aes-cbca
%+ do-test-vectors-cbc cbca
:~
:^ 0x0
0x1
0x2
0xf795.aaab.494b.5923.f7fd.89ff.948b.c1e0
::
:^ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x7649.abac.8119.b246.cee9.8e9b.12e9.197d.
5086.cb9b.5072.19ee.95db.113a.9176.78b2.
73be.d6b8.e3c1.743b.7116.e69e.2222.9516.
3ff1.caa1.681f.ac09.120e.ca30.7586.e1a7
==
++ test-aes-cbcb
%+ do-test-vectors-cbc cbcb
:~
:^ 0x0
0x1
0x2
0x2a34.93e6.6235.ee67.deec.cd2f.3b39.3bd8
::
:^ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x4f02.1db2.43bc.633d.7178.183a.9fa0.71e8.
b4d9.ada9.ad7d.edf4.e5e7.3876.3f69.145a.
571b.2420.12fb.7ae0.7fa9.baac.3df1.02e0.
08b0.e279.8859.8881.d920.a9e6.4f56.15cd
==
++ test-aes-cbcc
%+ do-test-vectors-cbc cbcc
:~
:^ 0x0
0x1
0x2
0x7260.03ca.37a6.2a74.d1a2.f58e.7506.358e
::
:^ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0xf58c.4c04.d6e5.f1ba.779e.abfb.5f7b.fbd6.
9cfc.4e96.7edb.808d.679f.777b.c670.2c7d.
39f2.3369.a9d9.bacf.a530.e263.0423.1461.
b2eb.05e2.c39b.e9fc.da6c.1907.8c6a.9d1b
==
::
:: CTR mode. Test vectors from Appendix F of NIST SP 800-38A:
:: https://nvlpubs.nist.gov/nistpubs/Legacy/SP/nistspecialpublication800-38a.pdf
::
+$ vector-ctr [key=@ux iv=@ux in=@ux out=@ux]
::
++ do-test-vectors-ctr
|* [ctrx=_ctra ves=(list vector-ctr)]
^- tang
|^ %+ weld
%+ category "encrypting"
(zing (turn ves enc))
%+ category "decrypting"
(zing (turn ves dec))
::
++ enc
|= vector-ctr
%+ expect-eq
!> out
!> `@ux`(~(en ctrx key 7 (met 3 out) iv) in)
::
++ dec
|= vector-ctr
%+ expect-eq
!> in
!> `@ux`(~(de ctrx key 7 (met 3 out) iv) out)
--
::
++ test-aes-ctra
%+ do-test-vectors-ctr ctra
:~
:^ 0x0
0x1
0x2
0x58e2.fcce.fa7e.3061.367f.1d57.a4e7.4558
::
:^ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0xf0f1.f2f3.f4f5.f6f7.f8f9.fafb.fcfd.feff
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x874d.6191.b620.e326.1bef.6864.990d.b6ce.
9806.f66b.7970.fdff.8617.187b.b9ff.fdff.
5ae4.df3e.dbd5.d35e.5b4f.0902.0db0.3eab.
1e03.1dda.2fbe.03d1.7921.70a0.f300.9cee
==
++ test-aes-ctrb
%+ do-test-vectors-ctr ctrb
:~
:^ 0x0
0x1
0x2
0xcd33.b28a.c773.f74b.a00e.d1f3.1257.2437
::
:^ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0xf0f1.f2f3.f4f5.f6f7.f8f9.fafb.fcfd.feff
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x1abc.9324.1752.1ca2.4f2b.0459.fe7e.6e0b.
0903.39ec.0aa6.faef.d5cc.c2c6.f4ce.8e94.
1e36.b26b.d1eb.c670.d1bd.1d66.5620.abf7.
4f78.a7f6.d298.0958.5a97.daec.58c6.b050
==
++ test-aes-ctrc
%+ do-test-vectors-ctr ctrc
:~
:^ 0x0
0x1
0x2
0x530f.8afb.c745.36b9.a963.b4f1.c4cb.7389
::
:^ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0xf0f1.f2f3.f4f5.f6f7.f8f9.fafb.fcfd.feff
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x601e.c313.7757.89a5.b7a7.f504.bbf3.d228.
f443.e3ca.4d62.b59a.ca84.e990.caca.f5c5.
2b09.30da.a23d.e94c.e870.17ba.2d84.988d.
dfc9.c58d.b67a.ada6.13c2.dd08.4579.41a6
==
::
:: AES-CMAC. Test vectors from Section D of NIST SP 800-38B:
:: https://nvlpubs.nist.gov/nistpubs/Legacy/SP/nistspecialpublication800-38b.pdf
::
+$ vector-mac [key=@ux in=@ux out=@ux]
::
++ do-test-vectors-mac
|* [macx=_maca ves=(list vector-mac)]
^- tang
|^ (zing (turn ves case))
::
++ case
|= vector-mac
%+ expect-eq
!> out
!> `@ux`(macx key ~ in)
--
::
++ test-aes-maca
%+ do-test-vectors-mac maca
:~
:+ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0x0
0xbb1d.6929.e959.3728.7fa3.7d12.9b75.6746
::
:+ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a
0x70a.16b4.6b4d.4144.f79b.dd9d.d04a.287c
::
:+ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411
0xdfa6.6747.de9a.e630.30ca.3261.1497.c827
::
:+ 0x2b7e.1516.28ae.d2a6.abf7.1588.09cf.4f3c
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0x51f0.bebf.7e3b.9d92.fc49.7417.7936.3cfe
==
++ test-aes-macb
%+ do-test-vectors-mac macb
:~
:+ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0x0
0xd17d.df46.adaa.cde5.31ca.c483.de7a.9367
::
:+ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a
0x9e99.a7bf.31e7.1090.0662.f65e.617c.5184
::
:+ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411
0x8a1d.e5be.2eb3.1aad.089a.82e6.ee90.8b0e
::
:+ 0x8e73.b0f7.da0e.6452.c810.f32b.8090.79e5.
62f8.ead2.522c.6b7b
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0xa1d5.df0e.ed79.0f79.4d77.5896.59f3.9a11
==
++ test-aes-macc
%+ do-test-vectors-mac macc
:~
:+ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0x0
0x289.62f6.1b7b.f89e.fc6b.551f.4667.d983
::
:+ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a
0x28a7.023f.452e.8f82.bd4b.f28d.8c37.c35c
::
:+ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411
0xaaf3.d8f1.de56.40c2.32f5.b169.b9c9.11e6
::
:+ 0x603d.eb10.15ca.71be.2b73.aef0.857d.7781.
1f35.2c07.3b61.08d7.2d98.10a3.0914.dff4
0x6bc1.bee2.2e40.9f96.e93d.7e11.7393.172a.
ae2d.8a57.1e03.ac9c.9eb7.6fac.45af.8e51.
30c8.1c46.a35c.e411.e5fb.c119.1a0a.52ef.
f69f.2445.df4f.9b17.ad2b.417b.e66c.3710
0xe199.2190.549f.6ed5.696a.2c05.6c31.5410
==
--
Reference in New Issue View Git Blame Copy Permalink