1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis */
2 /* SPDX-License-Identifier: Unlicense */
3
4 /* The implementation is based on:
5 * Public Domain poly1305 from Andrew Moon
6 * https://github.com/floodyberry/poly1305-donna
7 */
8
9 #include "tomcrypt_private.h"
10
11 #ifdef LTC_POLY1305
12
poly1305_test(void)13 int poly1305_test(void)
14 {
15 #ifndef LTC_TEST
16 return CRYPT_NOP;
17 #else
18 /* https://tools.ietf.org/html/rfc7539#section-2.5.2 */
19 unsigned char k[] = { 0x85, 0xd6, 0xbe, 0x78, 0x57, 0x55, 0x6d, 0x33, 0x7f, 0x44, 0x52, 0xfe, 0x42, 0xd5, 0x06, 0xa8, 0x01, 0x03, 0x80, 0x8a, 0xfb, 0x0d, 0xb2, 0xfd, 0x4a, 0xbf, 0xf6, 0xaf, 0x41, 0x49, 0xf5, 0x1b };
20 unsigned char tag[] = { 0xA8, 0x06, 0x1D, 0xC1, 0x30, 0x51, 0x36, 0xC6, 0xC2, 0x2B, 0x8B, 0xAF, 0x0C, 0x01, 0x27, 0xA9 };
21 char m[] = "Cryptographic Forum Research Group";
22 unsigned long len = 16, mlen = XSTRLEN(m);
23 unsigned char out[1000];
24 poly1305_state st;
25 int err;
26
27 /* process piece by piece */
28 if ((err = poly1305_init(&st, k, 32)) != CRYPT_OK) return err;
29 if ((err = poly1305_process(&st, (unsigned char*)m, 5)) != CRYPT_OK) return err;
30 if ((err = poly1305_process(&st, (unsigned char*)m + 5, 4)) != CRYPT_OK) return err;
31 if ((err = poly1305_process(&st, (unsigned char*)m + 9, 3)) != CRYPT_OK) return err;
32 if ((err = poly1305_process(&st, (unsigned char*)m + 12, 2)) != CRYPT_OK) return err;
33 if ((err = poly1305_process(&st, (unsigned char*)m + 14, 1)) != CRYPT_OK) return err;
34 if ((err = poly1305_process(&st, (unsigned char*)m + 15, mlen - 15)) != CRYPT_OK) return err;
35 if ((err = poly1305_done(&st, out, &len)) != CRYPT_OK) return err;
36 if (compare_testvector(out, len, tag, sizeof(tag), "POLY1305-TV1", 1) != 0) return CRYPT_FAIL_TESTVECTOR;
37 /* process in one go */
38 if ((err = poly1305_init(&st, k, 32)) != CRYPT_OK) return err;
39 if ((err = poly1305_process(&st, (unsigned char*)m, mlen)) != CRYPT_OK) return err;
40 if ((err = poly1305_done(&st, out, &len)) != CRYPT_OK) return err;
41 if (compare_testvector(out, len, tag, sizeof(tag), "POLY1305-TV2", 1) != 0) return CRYPT_FAIL_TESTVECTOR;
42 return CRYPT_OK;
43 #endif
44 }
45
46 #endif
47