]> pd.if.org Git - zpackage/blob - libtomcrypt/src/mac/poly1305/poly1305_test.c
commit files needed for zpm-fetchurl
[zpackage] / libtomcrypt / src / mac / poly1305 / poly1305_test.c
1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis
2  *
3  * LibTomCrypt is a library that provides various cryptographic
4  * algorithms in a highly modular and flexible manner.
5  *
6  * The library is free for all purposes without any express
7  * guarantee it works.
8  */
9
10 /* The implementation is based on:
11  * Public Domain poly1305 from Andrew Moon
12  * https://github.com/floodyberry/poly1305-donna
13  */
14
15 #include "tomcrypt.h"
16
17 #ifdef LTC_POLY1305
18
19 int poly1305_test(void)
20 {
21 #ifndef LTC_TEST
22    return CRYPT_NOP;
23 #else
24    /* https://tools.ietf.org/html/rfc7539#section-2.5.2 */
25    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 };
26    unsigned char tag[] = { 0xA8, 0x06, 0x1D, 0xC1, 0x30, 0x51, 0x36, 0xC6, 0xC2, 0x2B, 0x8B, 0xAF, 0x0C, 0x01, 0x27, 0xA9 };
27    char m[] = "Cryptographic Forum Research Group";
28    unsigned long len = 16, mlen = strlen(m);
29    unsigned char out[1000];
30    poly1305_state st;
31    int err;
32
33    /* process piece by piece */
34    if ((err = poly1305_init(&st, k, 32)) != CRYPT_OK)                                return err;
35    if ((err = poly1305_process(&st, (unsigned char*)m,      5)) != CRYPT_OK)         return err;
36    if ((err = poly1305_process(&st, (unsigned char*)m + 5,  4)) != CRYPT_OK)         return err;
37    if ((err = poly1305_process(&st, (unsigned char*)m + 9,  3)) != CRYPT_OK)         return err;
38    if ((err = poly1305_process(&st, (unsigned char*)m + 12, 2)) != CRYPT_OK)         return err;
39    if ((err = poly1305_process(&st, (unsigned char*)m + 14, 1)) != CRYPT_OK)         return err;
40    if ((err = poly1305_process(&st, (unsigned char*)m + 15, mlen - 15)) != CRYPT_OK) return err;
41    if ((err = poly1305_done(&st, out, &len)) != CRYPT_OK)                            return err;
42    if (compare_testvector(out, len, tag, sizeof(tag), "POLY1305-TV1", 1) != 0)       return CRYPT_FAIL_TESTVECTOR;
43    /* process in one go */
44    if ((err = poly1305_init(&st, k, 32)) != CRYPT_OK)                                return err;
45    if ((err = poly1305_process(&st, (unsigned char*)m, mlen)) != CRYPT_OK)           return err;
46    if ((err = poly1305_done(&st, out, &len)) != CRYPT_OK)                            return err;
47    if (compare_testvector(out, len, tag, sizeof(tag), "POLY1305-TV2", 1) != 0)       return CRYPT_FAIL_TESTVECTOR;
48    return CRYPT_OK;
49 #endif
50 }
51
52 #endif
53
54 /* ref:         $Format:%D$ */
55 /* git commit:  $Format:%H$ */
56 /* commit time: $Format:%ai$ */