/*      $OpenBSD: gmac_test.c,v 1.7 2021/12/14 06:27:48 deraadt Exp $  */

/*
 * Copyright (c) 2010 Mike Belopuhov <mikeb@openbsd.org>
 * Copyright (c) 2005 Markus Friedl <markus@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <sys/types.h>
#include <crypto/aes.h>
#include <crypto/gmac.h>
#include <err.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>

#define MINIMUM(a, b)       (((a) < (b)) ? (a) : (b))

int debug = 0;

enum { TST_KEY, TST_IV, TST_AAD, TST_CIPHER, TST_TAG, TST_NUM };

struct {
        char    *data[TST_NUM];
} tests[] = {
        /* Test vectors from gcm-spec.pdf (initial proposal to NIST) */

        /* 128 bit key */

        /* Test Case 1 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                NULL,
                /* tag */
                "58 e2 fc ce fa 7e 30 61 36 7f 1d 57 a4 e7 45 5a"
        },
        /* Test Case 2 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "03 88 da ce 60 b6 a3 92 f3 28 c2 b9 71 b2 fe 78",
                /* tag */
                "ab 6e 47 d4 2c ec 13 bd f5 3a 67 b2 12 57 bd df"
        },
        /* Test Case 3 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                NULL,
                /* ciphertext */
                "42 83 1e c2 21 77 74 24 4b 72 21 b7 84 d0 d4 9c "
                "e3 aa 21 2f 2c 02 a4 e0 35 c1 7e 23 29 ac a1 2e "
                "21 d5 14 b2 54 66 93 1c 7d 8f 6a 5a ac 84 aa 05 "
                "1b a3 0b 39 6a 0a ac 97 3d 58 e0 91 47 3f 59 85",
                /* tag */
                "4d 5c 2a f3 27 cd 64 a6 2c f3 5a bd 2b a6 fa b4"
        },
        /* Test Case 4 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                "fe ed fa ce de ad be ef fe ed fa ce de ad be ef "
                "ab ad da d2",
                /* ciphertext */
                "42 83 1e c2 21 77 74 24 4b 72 21 b7 84 d0 d4 9c "
                "e3 aa 21 2f 2c 02 a4 e0 35 c1 7e 23 29 ac a1 2e "
                "21 d5 14 b2 54 66 93 1c 7d 8f 6a 5a ac 84 aa 05 "
                "1b a3 0b 39 6a 0a ac 97 3d 58 e0 91",
                /* tag */
                "5b c9 4f bc 32 21 a5 db 94 fa e9 5a e7 12 1a 47"
        },

        /* 192 bit key */

        /* Test Case 7 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                NULL,
                /* tag */
                "cd 33 b2 8a c7 73 f7 4b a0 0e d1 f3 12 57 24 35"
        },
        /* Test Case 8 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "98 e7 24 7c 07 f0 fe 41 1c 26 7e 43 84 b0 f6 00",
                /* tag */
                "2f f5 8d 80 03 39 27 ab 8e f4 d4 58 75 14 f0 fb"
        },
        /* Test Case 9 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "fe ff e9 92 86 65 73 1c "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                NULL,
                /* ciphertext */
                "39 80 ca 0b 3c 00 e8 41 eb 06 fa c4 87 2a 27 57 "
                "85 9e 1c ea a6 ef d9 84 62 85 93 b4 0c a1 e1 9c "
                "7d 77 3d 00 c1 44 c5 25 ac 61 9d 18 c8 4a 3f 47 "
                "18 e2 44 8b 2f e3 24 d9 cc da 27 10 ac ad e2 56",
                /* tag */
                "99 24 a7 c8 58 73 36 bf b1 18 02 4d b8 67 4a 14"
        },
        /* Test Case 10 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "fe ff e9 92 86 65 73 1c "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                "fe ed fa ce de ad be ef fe ed fa ce de ad be ef "
                "ab ad da d2",
                /* ciphertext */
                "39 80 ca 0b 3c 00 e8 41 eb 06 fa c4 87 2a 27 57 "
                "85 9e 1c ea a6 ef d9 84 62 85 93 b4 0c a1 e1 9c "
                "7d 77 3d 00 c1 44 c5 25 ac 61 9d 18 c8 4a 3f 47 "
                "18 e2 44 8b 2f e3 24 d9 cc da 27 10",
                /* tag */
                "25 19 49 8e 80 f1 47 8f 37 ba 55 bd 6d 27 61 8c"
        },

        /* 256 bit key */

        /* Test Case 13 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                NULL,
                /* tag */
                "53 0f 8a fb c7 45 36 b9 a9 63 b4 f1 c4 cb 73 8b"
        },
        /* Test Case 14 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "ce a7 40 3d 4d 60 6b 6e 07 4e c5 d3 ba f3 9d 18",
                /* tag */
                "d0 d1 c8 a7 99 99 6b f0 26 5b 98 b5 d4 8a b9 19"
        },
        /* Test Case 15 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                NULL,
                /* ciphertext */
                "52 2d c1 f0 99 56 7d 07 f4 7f 37 a3 2a 84 42 7d "
                "64 3a 8c dc bf e5 c0 c9 75 98 a2 bd 25 55 d1 aa "
                "8c b0 8e 48 59 0d bb 3d a7 b0 8b 10 56 82 88 38 "
                "c5 f6 1e 63 93 ba 7a 0a bc c9 f6 62 89 80 15 ad",
                /* tag */
                "b0 94 da c5 d9 34 71 bd ec 1a 50 22 70 e3 cc 6c"
        },
        /* Test Case 16 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                "fe ed fa ce de ad be ef fe ed fa ce de ad be ef "
                "ab ad da d2",
                /* ciphertext */
                "52 2d c1 f0 99 56 7d 07 f4 7f 37 a3 2a 84 42 7d "
                "64 3a 8c dc bf e5 c0 c9 75 98 a2 bd 25 55 d1 aa "
                "8c b0 8e 48 59 0d bb 3d a7 b0 8b 10 56 82 88 38 "
                "c5 f6 1e 63 93 ba 7a 0a bc c9 f6 62",
                /* tag */
                "76 fc 6e ce 0f 4e 17 68 cd df 88 53 bb 2d 55 1b"
        },

        /* Test vectors from draft-mcgrew-gcm-test-01.txt */

        /* Page 6 */
        {
                /* key + salt */
                "4c 80 cd ef bb 5d 10 da 90 6a c7 3c 36 13 a6 34 "
                "2e 44 3b 68",
                /* iv */
                "49 56 ed 7e 3b 24 4c fe",
                /* aad */
                "00 00 43 21 87 65 43 21 00 00 00 00",
                /* ciphertext */
                "fe cf 53 7e 72 9d 5b 07 dc 30 df 52 8d d2 2b 76 "
                "8d 1b 98 73 66 96 a6 fd 34 85 09 fa 13 ce ac 34 "
                "cf a2 43 6f 14 a3 f3 cf 65 92 5b f1 f4 a1 3c 5d "
                "15 b2 1e 18 84 f5 ff 62 47 ae ab b7 86 b9 3b ce "
                "61 bc 17 d7 68 fd 97 32",
                /* tag */
                "45 90 18 14 8f 6c be 72 2f d0 47 96 56 2d fd b4"
        },
        /* Page 7 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                "00 00 a5 f8 00 00 00 0a",
                /* ciphertext */
                "de b2 2c d9 b0 7c 72 c1 6e 3a 65 be eb 8d f3 04 "
                "a5 a5 89 7d 33 ae 53 0f 1b a7 6d 5d 11 4d 2a 5c "
                "3d e8 18 27 c1 0e 9a 4f 51 33 0d 0e ec 41 66 42 "
                "cf bb 85 a5 b4 7e 48 a4 ec 3b 9b a9 5d 91 8b d1",
                /* tag */
                "83 b7 0d 3a a8 bc 6e e4 c3 09 e9 d8 5a 41 ad 4a"
        },
        /* Page 8 */
        {
                /* key + salt */
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "11 22 33 44",
                /* iv */
                "01 02 03 04 05 06 07 08",
                /* aad */
                "4a 2c bf e3 00 00 00 02",
                /* ciphertext */
                "ff 42 5c 9b 72 45 99 df 7a 3b cd 51 01 94 e0 0d "
                "6a 78 10 7f 1b 0b 1c bf 06 ef ae 9d 65 a5 d7 63 "
                "74 8a 63 79 85 77 1d 34 7f 05 45 65 9f 14 e9 9d "
                "ef 84 2d 8e",
                /* tag */
                "b3 35 f4 ee cf db f8 31 82 4b 4c 49 15 95 6c 96"
        },
        /* Page 9 */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                "00 00 00 00 00 00 00 01",
                /* ciphertext */
                "46 88 da f2 f9 73 a3 92 73 29 09 c3 31 d5 6d 60 "
                "f6 94 ab aa 41 4b 5e 7f f5 fd cd ff f5 e9 a2 84 "
                "45 64 76 49 27 19 ff b6 4d e7 d9 dc a1 e1 d8 94 "
                "bc 3b d5 78 73 ed 4d 18 1d 19 d4 d5 c8 c1 8a f3",
                /* tag */
                "f8 21 d4 96 ee b0 96 e9 8a d2 b6 9e 47 99 c7 1d"
        },
        /* Page 10 */
        {
                /* key + salt */
                "3d e0 98 74 b3 88 e6 49 19 88 d0 c3 60 7e ae 1f "
                "57 69 0e 43",
                /* iv */
                "4e 28 00 00 a2 fc a1 a3",
                /* aad */
                "42 f6 7e 3f 10 10 10 10 10 10 10 10",
                /* ciphertext */
                "fb a2 ca a4 85 3c f9 f0 f2 2c b1 0d 86 dd 83 b0 "
                "fe c7 56 91 cf 1a 04 b0 0d 11 38 ec 9c 35 79 17 "
                "65 ac bd 87 01 ad 79 84 5b f9 fe 3f ba 48 7b c9 "
                "17 55 e6 66 2b 4c 8d 0d 1f 5e 22 73 95 30 32 0a",
                /* tag */
                "e0 d7 31 cc 97 8e ca fa ea e8 8f 00 e8 0d 6e 48"
        },
        /* Page 11 */
        {
                /* key + salt */
                "3d e0 98 74 b3 88 e6 49 19 88 d0 c3 60 7e ae 1f "
                "57 69 0e 43",
                /* iv */
                "4e 28 00 00 a2 fc a1 a3",
                /* aad */
                "42 f6 7e 3f 10 10 10 10 10 10 10 10",
                /* ciphertext */
                "fb a2 ca 84 5e 5d f9 f0 f2 2c 3e 6e 86 dd 83 1e "
                "1f c6 57 92 cd 1a f9 13 0e 13 79 ed",
                /* tag */
                "36 9f 07 1f 35 e0 34 be 95 f1 12 e4 e7 d0 5d 35"
        },
        /* Page 11 */
        {
                /* key + salt */
                "fe ff e9 92 86 65 73 1c 6d 6a 8f 94 67 30 83 08 "
                "fe ff e9 92 86 65 73 1c "
                "ca fe ba be",
                /* iv */
                "fa ce db ad de ca f8 88",
                /* aad */
                "00 00 a5 f8 00 00 00 0a",
                /* ciphertext */
                "a5 b1 f8 06 60 29 ae a4 0e 59 8b 81 22 de 02 42 "
                "09 38 b3 ab 33 f8 28 e6 87 b8 85 8b 5b fb db d0 "
                "31 5b 27 45 21 44 cc 77",
                /* tag */
                "95 45 7b 96 52 03 7f 53 18 02 7b 5b 4c d7 a6 36"
        },
        /* Page 12 */
        {
                /* key + salt */
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "de ca f8 88",
                /* iv */
                "ca fe de ba ce fa ce 74",
                /* aad */
                "00 00 01 00 00 00 00 00 00 00 00 01",
                /* ciphertext */
                "18 a6 fd 42 f7 2c bf 4a b2 a2 ea 90 1f 73 d8 14 "
                "e3 e7 f2 43 d9 54 12 e1 c3 49 c1 d2 fb ec 16 8f "
                "91 90 fe eb af 2c b0 19 84 e6 58 63 96 5d 74 72 "
                "b7 9d a3 45 e0 e7 80 19 1f 0d 2f 0e 0f 49 6c 22 "
                "6f 21 27 b2 7d b3 57 24 e7 84 5d 68",
                /* tag */
                "65 1f 57 e6 5f 35 4f 75 ff 17 01 57 69 62 34 36"
        },
        /* Page 13 */
        {
                /* key + salt */
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "73 61 6c 74",
                /* iv */
                "61 6e 64 01 69 76 65 63",
                /* aad */
                "17 40 5e 67 15 6f 31 26 dd 0d b9 9b",
                /* ciphertext */
                "f2 d6 9e cd bd 5a 0d 5b 8d 5e f3 8b ad 4d a5 8d "
                "1f 27 8f de 98 ef 67 54 9d 52 4a 30 18 d9 a5 7f "
                "f4 d3 a3 1c e6 73 11 9e",
                /* tag */
                "45 16 26 c2 41 57 71 e3 b7 ee bc a6 14 c8 9b 35"
        },
        /* Page 14 */
        {
                /* key + salt */
                "3d e0 98 74 b3 88 e6 49 19 88 d0 c3 60 7e ae 1f "
                "57 69 0e 43",
                /* iv */
                "4e 28 00 00 a2 fc a1 a3",
                /* aad */
                "42 f6 7e 3f 10 10 10 10 10 10 10 10",
                /* ciphertext */
                "fb a2 ca d1 2f c1 f9 f0 0d 3c eb f3 05 41 0d b8 "
                "3d 77 84 b6 07 32 3d 22 0f 24 b0 a9 7d 54 18 28 "
                "00 ca db 0f 68 d9 9e f0 e0 c0 c8 9a e9 be a8 88 "
                "4e 52 d6 5b c1 af d0 74 0f 74 24 44 74 7b 5b 39 "
                "ab 53 31 63 aa d4 55 0e e5 16 09 75",
                /* tag */
                "cd b6 08 c5 76 91 89 60 97 63 b8 e1 8c aa 81 e2"
        },
        /* Page 15 */
        {
                /* key + salt */
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "73 61 6c 74",
                /* iv */
                "61 6e 64 01 69 76 65 63",
                /* aad */
                "17 40 5e 67 15 6f 31 26 dd 0d b9 9b",
                /* ciphertext */
                "d4 b7 ed 86 a1 77 7f 2e a1 3d 69 73 d3 24 c6 9e "
                "7b 43 f8 26 fb 56 83 12 26 50 8b eb d2 dc eb 18 "
                "d0 a6 df 10 e5 48 7d f0 74 11 3e 14 c6 41 02 4e "
                "3e 67 73 d9 1a 62 ee 42 9b 04 3a 10 e3 ef e6 b0 "
                "12 a4 93 63 41 23 64 f8",
                /* tag */
                "c0 ca c5 87 f2 49 e5 6b 11 e2 4f 30 e4 4c cc 76"
        },
        /* Page 16 */
        {
                /* key + salt */
                "7d 77 3d 00 c1 44 c5 25 ac 61 9d 18 c8 4a 3f 47 "
                "d9 66 42 67",
                /* iv */
                "43 45 7e 91 82 44 3b c6",
                /* aad */
                "33 54 67 ae ff ff ff ff",
                /* ciphertext */
                "43 7f 86 6b",
                /* tag */
                "cb 3f 69 9f e9 b0 82 2b ac 96 1c 45 04 be f2 70"
        },
        /* Page 16 */
        {
                /* key + salt */
                "ab bc cd de f0 01 12 23 34 45 56 67 78 89 9a ab "
                "de ca f8 88",
                /* iv */
                "ca fe de ba ce fa ce 74",
                /* aad */
                "00 00 01 00 00 00 00 00 00 00 00 01",
                /* ciphertext */
                "29 c9 fc 69 a1 97 d0 38 cc dd 14 e2 dd fc aa 05 "
                "43 33 21 64",
                /* tag */
                "41 25 03 52 43 03 ed 3c 6c 5f 28 38 43 af 8c 3e"
        },
        /* Page 17 */
        {
                /* key + salt */
                "6c 65 67 61 6c 69 7a 65 6d 61 72 69 6a 75 61 6e "
                "61 61 6e 64 64 6f 69 74 62 65 66 6f 72 65 69 61 "
                "74 75 72 6e",
                /* iv */
                "33 30 21 69 67 65 74 6d",
                /* aad */
                "79 6b 69 63 ff ff ff ff ff ff ff ff",
                /* ciphertext */
                "f9 7a b2 aa 35 6d 8e dc e1 76 44 ac 8c 78 e2 5d "
                "d2 4d ed bb 29 eb f1 b6 4a 27 4b 39 b4 9c 3a 86 "
                "4c d3 d7 8c a4 ae 68 a3 2b 42 45 8f b5 7d be 82 "
                "1d cc 63 b9",
                /* tag */
                "d0 93 7b a2 94 5f 66 93 68 66 1a 32 9f b4 c0 53"
        },
        /* Page 18 */
        {
                /* key + salt */
                "4c 80 cd ef bb 5d 10 da 90 6a c7 3c 36 13 a6 34 "
                "22 43 3c 64",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                "00 00 43 21 00 00 00 07 00 00 00 00 00 00 00 00 "
                "45 00 00 30 da 3a 00 00 80 01 df 3b c0 a8 00 05 "
                "c0 a8 00 01 08 00 c6 cd 02 00 07 00 61 62 63 64 "
                "65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 "
                "01 02 02 01",
                /* ciphertext */
                NULL,
                /* tag */
                "f2 a9 a8 36 e1 55 10 6a a8 dc d6 18 e4 09 9a aa"
        },
        /* Page 19 */
        {
                /* key + salt */
                "3d e0 98 74 b3 88 e6 49 19 88 d0 c3 60 7e ae 1f "
                "57 69 0e 43",
                /* iv */
                "4e 28 00 00 a2 fc a1 a3",
                /* aad */
                "3f 7e f6 42 10 10 10 10 10 10 10 10",
                /* ciphertext */
                "fb a2 ca a8 c6 c5 f9 f0 f2 2c a5 4a 06 12 10 ad "
                "3f 6e 57 91 cf 1a ca 21 0d 11 7c ec 9c 35 79 17 "
                "65 ac bd 87 01 ad 79 84 5b f9 fe 3f ba 48 7b c9 "
                "63 21 93 06",
                /* tag */
                "84 ee ca db 56 91 25 46 e7 a9 5c 97 40 d7 cb 05"
        },
        /* Page 20 */
        {
                /* key + salt */
                "4c 80 cd ef bb 5d 10 da 90 6a c7 3c 36 13 a6 34 "
                "22 43 3c 64",
                /* iv */
                "48 55 ec 7d 3a 23 4b fd",
                /* aad */
                "00 00 43 21 87 65 43 21 00 00 00 07",
                /* ciphertext */
                "74 75 2e 8a eb 5d 87 3c d7 c0 f4 ac c3 6c 4b ff "
                "84 b7 d7 b9 8f 0c a8 b6 ac da 68 94 bc 61 90 69",
                /* tag */
                "ef 9c bc 28 fe 1b 56 a7 c4 e0 d5 8c 86 cd 2b c0"
        },

        /* local add-ons, primarily streaming ghash tests */

        /* 128 bytes aad */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                "d9 31 32 25 f8 84 06 e5 a5 59 09 c5 af f5 26 9a "
                "86 a7 a9 53 15 34 f7 da 2e 4c 30 3d 8a 31 8a 72 "
                "1c 3c 0c 95 95 68 09 53 2f cf 0e 24 49 a6 b5 25 "
                "b1 6a ed f5 aa 0d e6 57 ba 63 7b 39 1a af d2 55 "
                "52 2d c1 f0 99 56 7d 07 f4 7f 37 a3 2a 84 42 7d "
                "64 3a 8c dc bf e5 c0 c9 75 98 a2 bd 25 55 d1 aa "
                "8c b0 8e 48 59 0d bb 3d a7 b0 8b 10 56 82 88 38 "
                "c5 f6 1e 63 93 ba 7a 0a bc c9 f6 62 89 80 15 ad",
                /* ciphertext */
                NULL,
                /* tag */
                "5f ea 79 3a 2d 6f 97 4d 37 e6 8e 0c b8 ff 94 92"
        },
        /* 48 bytes plaintext */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "03 88 da ce 60 b6 a3 92 f3 28 c2 b9 71 b2 fe 78 "
                "f7 95 aa ab 49 4b 59 23 f7 fd 89 ff 94 8b c1 e0 "
                "20 02 11 21 4e 73 94 da 20 89 b6 ac d0 93 ab e0",
                /* tag */
                "9d d0 a3 76 b0 8e 40 eb 00 c3 5f 29 f9 ea 61 a4"
        },
        /* 80 bytes plaintext */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "03 88 da ce 60 b6 a3 92 f3 28 c2 b9 71 b2 fe 78 "
                "f7 95 aa ab 49 4b 59 23 f7 fd 89 ff 94 8b c1 e0 "
                "20 02 11 21 4e 73 94 da 20 89 b6 ac d0 93 ab e0 "
                "c9 4d a2 19 11 8e 29 7d 7b 7e bc bc c9 c3 88 f2 "
                "8a de 7d 85 a8 ee 35 61 6f 71 24 a9 d5 27 02 91",
                /* tag */
                "98 88 5a 3a 22 bd 47 42 fe 7b 72 17 21 93 b1 63"
        },
        /* 128 bytes plaintext */
        {
                /* key + salt */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "00 00 00 00",
                /* iv */
                "00 00 00 00 00 00 00 00",
                /* aad */
                NULL,
                /* ciphertext */
                "03 88 da ce 60 b6 a3 92 f3 28 c2 b9 71 b2 fe 78 "
                "f7 95 aa ab 49 4b 59 23 f7 fd 89 ff 94 8b c1 e0 "
                "20 02 11 21 4e 73 94 da 20 89 b6 ac d0 93 ab e0 "
                "c9 4d a2 19 11 8e 29 7d 7b 7e bc bc c9 c3 88 f2 "
                "8a de 7d 85 a8 ee 35 61 6f 71 24 a9 d5 27 02 91 "
                "95 b8 4d 1b 96 c6 90 ff 2f 2d e3 0b f2 ec 89 e0 "
                "02 53 78 6e 12 65 04 f0 da b9 0c 48 a3 03 21 de "
                "33 45 e6 b0 46 1e 7c 9e 6c 6b 7a fe dd e8 3f 40",
                /* tag */
                "ca c4 5f 60 e3 1e fd 3b 5a 43 b9 8a 22 ce 1a a1"
        },
        /* 80 bytes plaintext, submitted by Intel */
        {
                /* key + salt */
                "84 3f fc f5 d2 b7 26 94 d1 9e d0 1d 01 24 94 12 "
                "db cc a3 2e",
                /* iv */
                "bf 9b 80 46 17 c3 aa 9e",
                /* aad */
                "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "
                "10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f",
                /* ciphertext */
                "62 68 c6 fa 2a 80 b2 d1 37 46 7f 09 2f 65 7a c0 "
                "4d 89 be 2b ea a6 23 d6 1b 5a 86 8c 8f 03 ff 95 "
                "d3 dc ee 23 ad 2f 1a b3 a6 c8 0e af 4b 14 0e b0 "
                "5d e3 45 7f 0f bc 11 1a 6b 43 d0 76 3a a4 22 a3 "
                "01 3c f1 dc 37 fe 41 7d 1f bf c4 49 b7 5d 4c c5",
                /* tag */
                "3b 62 9c cf bc 11 19 b7 31 9e 1d ce 2c d6 fd 6d"
        }
};

static void
dogmac(const unsigned char *key, size_t klen,
    const unsigned char *iv, size_t ivlen,
    const unsigned char *aad, size_t aadlen,
    const unsigned char *in, unsigned char *out, size_t len)
{
        AES_GMAC_CTX ctx;
        uint8_t blk[GMAC_BLOCK_LEN];
        uint32_t *p;
        int i;

        AES_GMAC_Init(&ctx);

        AES_GMAC_Setkey(&ctx, key, klen);

        AES_GMAC_Reinit(&ctx, iv, ivlen);

        for (i = 0; i < aadlen; i += GMAC_BLOCK_LEN) {
                memset(blk, 0, GMAC_BLOCK_LEN);
                memcpy(blk, aad + i, MINIMUM(aadlen - i, GMAC_BLOCK_LEN));
                AES_GMAC_Update(&ctx, blk, GMAC_BLOCK_LEN);
        }

        for (i = 0; i < len; i += GMAC_BLOCK_LEN) {
                int dlen = MINIMUM(len - i, GMAC_BLOCK_LEN);
                AES_GMAC_Update(&ctx, in + i, dlen);
        }

        bzero(blk, sizeof blk);
        p = (uint32_t *)blk + 1;
        *p = htobe32(aadlen * 8);
        p = (uint32_t *)blk + 3;
        *p = htobe32(len * 8);
        AES_GMAC_Update(&ctx, blk, 16);

        AES_GMAC_Final(out, &ctx);
}

static int
match(unsigned char *a, unsigned char *b, size_t len)
{
        int i;

        if (memcmp(a, b, len) == 0)
                return (1);

        warnx("mismatch");

        for (i = 0; i < len; i++)
                printf("%2.2x", a[i]);
        printf("\n");
        for (i = 0; i < len; i++)
                printf("%2.2x", b[i]);
        printf("\n");

        return (0);
}

static int
run(int num)
{
        int i, fail = 1, len, j, length[TST_NUM];
        u_long val;
        char *ep, *from;
        u_char *p, *data[TST_NUM], tag[GMAC_DIGEST_LEN];

        for (i = 0; i < TST_NUM; i++)
                data[i] = NULL;
        for (i = 0; i < TST_NUM; i++) {
                from = tests[num].data[i];
                if (debug)
                        printf("%s\n", from);
                if (!from) {
                        length[i] = 0;
                        data[i] = NULL;
                        continue;
                }
                len = strlen(from);
                if ((p = malloc(len)) == 0) {
                        warn("malloc");
                        goto done;
                }
                errno = 0;
                for (j = 0; j < len; j++) {
                        val = strtoul(&from[j*3], &ep, 16);
                        p[j] = (u_char)val;
                        if (*ep == '\0' || errno)
                                break;
                }
                length[i] = j+1;
                data[i] = p;
        }

        dogmac(data[TST_KEY], length[TST_KEY], data[TST_IV], length[TST_IV],
            data[TST_AAD], length[TST_AAD], data[TST_CIPHER], tag,
            length[TST_CIPHER]);

        fail = !match(data[TST_TAG], tag, GMAC_DIGEST_LEN);
        printf("%s test vector %d\n", fail ? "FAILED" : "OK", num);

 done:
        for (i = 0; i < TST_NUM; i++)
                free(data[i]);
        return (fail);
}

int
main(void)
{
        int i, fail = 0;

        for (i = 0; i < (sizeof(tests) / sizeof(tests[0])); i++)
                fail += run(i);

        return (fail > 0 ? 1 : 0);
}

void
explicit_bzero(void *b, size_t len)
{
        bzero(b, len);
}