testsuite/rsa-sign-tr-test.c

   1 #include "testutils.h"
   2 #include "knuth-lfib.h"
   3
   4 #define MSG1 "None so blind as those who will not see"
   5 #define MSG2 "Fortune knocks once at every man's door"
   6
   7 static void
   8 test_rsa_sign_tr(struct rsa_public_key *pub,
   9              struct rsa_private_key *key,
  10              unsigned di_length,
  11              const uint8_t *di,
  12              mpz_t expected)
  13 {
  14   mpz_t signature;
  15   struct knuth_lfib_ctx lfib;
  16
  17   knuth_lfib_init(&lfib, 1111);
  18
  19   mpz_init(signature);
  20   mpz_set_ui (signature, 17);
  21   /* Try bad private key */
  22   mpz_add_ui(key->p, key->p, 2);
  23
  24   ASSERT(!rsa_pkcs1_sign_tr(pub, key,
  25                     &lfib, (nettle_random_func *) knuth_lfib_random,
  26                     di_length, di, signature));
  27
  28   mpz_sub_ui(key->p, key->p, 2);
  29
  30   ASSERT(!mpz_cmp_ui(signature, 17));
  31
  32   /* Try the good private key */
  33   ASSERT(rsa_pkcs1_sign_tr(pub, key,
  34                     &lfib, (nettle_random_func *) knuth_lfib_random,
  35                     di_length, di, signature));
  36
  37   if (verbose)
  38     {
  39       fprintf(stderr, "rsa-pkcs1-tr signature: ");
  40       mpz_out_str(stderr, 16, signature);
  41       fprintf(stderr, "\nrsa-pkcs1-tr expected: ");
  42       mpz_out_str(stderr, 16, expected);
  43       fprintf(stderr, "\n");
  44     }
  45
  46   ASSERT (mpz_cmp(signature, expected) == 0);
  47
  48   /* Try bad data */
  49   ASSERT (!rsa_pkcs1_verify(pub, 16, (void*)"The magick words", signature));
  50
  51   /* Try correct data */
  52   ASSERT (rsa_pkcs1_verify(pub, di_length, di, signature));
  53
  54   /* Try bad signature */
  55   mpz_combit(signature, 17);
  56   ASSERT (!rsa_pkcs1_verify(pub, di_length, di, signature));
  57
  58   mpz_clear(signature);
  59 }
  60
  61
  62 void
  63 test_main(void)
  64 {
  65   struct rsa_public_key pub;
  66   struct rsa_private_key key;
  67
  68   mpz_t expected;
  69
  70   mpz_init(expected);
  71
  72   rsa_private_key_init(&key);
  73   rsa_public_key_init(&pub);
  74
  75   test_rsa_set_key_1(&pub, &key);
  76
  77   /* Test signatures */
  78   mpz_set_str(expected,
  79               "23bd361a622bc35450a30ae332d8dad050c6bad5cae0b61c5bee29"
  80               "db876d7fe098472fc7933f2cc1121c0fc8a414c71a98189c66077b"
  81               "fe3d58d08dc242bbcfdf2c905b91de0e479a8b4b159a45fe1789db"
  82               "abdaf88aa704e7558f24f5a0be382619758061cde89e9c730ac6db"
  83               "ef005bfad5a936633e3dfccc37b2214e2",
  84               16);
  85
  86   test_rsa_sign_tr(&pub, &key, LDATA(MSG1), expected);
  87
  88   mpz_set_str(expected,
  89               "15bd817f53501f8eb6693283004546ba14f19dd4da742b1e30a7b2"
  90               "1db309cd3f36f821f565d31c1ed2df8b6648dd8bdb218f841f5506"
  91               "a437825999aaf3ef77dff9a1fc7631ce0e99f851f4166ae67caed9"
  92               "820a764e44274a898ddd72f4c7115ba49d332f4fa929ee6dce4d61"
  93               "39fef8d8d25d4c9ff857689846e5cac26d", 16);
  94
  95   test_rsa_sign_tr(&pub, &key, LDATA(MSG2), expected);
  96
  97   /* 777-bit key, generated by
  98    *
  99    *   lsh-keygen -a rsa -l 777 -f advanced-hex
 100    *
 101    * Interesting because the size of n doesn't equal the sum of the
 102    * sizes of p and q.
 103    *
 104    * (private-key (rsa-pkcs1
 105    *        (n #013b04440e3eef25 d51c738d508a7fa8 b3445180c342af0f
 106    *            4cb5a789047300e2 cfc5c5450974cfc2 448aeaaa7f43c374
 107    *            c9a3b038b181f2d1 0f1a2327fd2c087b a49bf1086969fd2c
 108    *            d1df3fd69f81fa4b 162cc8bbb363fc95 b7b24b9c53d0c67e
 109    *            f52b#)
 110    *        (e #3f1a012d#)
 111    *        (d #f9bae89dacca6cca c21e0412b4df8355 6fe7c5322bbae8ad
 112    *            3f11494fd12bc076 d4a7da3050fe109d 2074db09cc6a93b4
 113    *            745479522558379e a0ddfa74f86c9e9e a22c3b0e93d51447
 114    *            0feb38105dd35395 63b91ee32776f40c 67b2a175690f7abb
 115    *            25#)
 116    *        (p #0b73c990eeda0a2a 2c26416052c85560 0c5c0f5ce86a8326
 117    *            166acea91786237a 7ff884e66dbfdd3a ab9d9801414c1506
 118    *            8b#)
 119    *        (q #1b81c19a62802a41 9c99283331b0badb 08eb0c25ffce0fbf
 120    *            50017850036f32f3 2132a845b91a5236 61f7b451d587383f
 121    *            e1#)
 122    *        (a #0a912fc93a6cca6b 3521725a3065b3be 3c9745e29c93303d
 123    *            7d29316c6cafa4a2 89945f964fcdea59 1f9d248b0b6734be
 124    *            c9#)
 125    *        (b #1658eca933251813 1eb19c77aba13d73 e0b8f4ce986d7615
 126    *            764c6b0b03c18146 46b7f332c43e05c5 351e09006979ca5b
 127    *            05#)
 128    *        (c #0114720dace7b27f 2bf2850c1804869f 79a0aad0ec02e6b4
 129    *            05e1831619db2f10 bb9b6a8fd5c95df2 eb78f303ea0c0cc8
 130    *            06#)))
 131    */
 132
 133   mpz_set_str(pub.n,
 134               "013b04440e3eef25" "d51c738d508a7fa8" "b3445180c342af0f"
 135               "4cb5a789047300e2" "cfc5c5450974cfc2" "448aeaaa7f43c374"
 136               "c9a3b038b181f2d1" "0f1a2327fd2c087b" "a49bf1086969fd2c"
 137               "d1df3fd69f81fa4b" "162cc8bbb363fc95" "b7b24b9c53d0c67e"
 138               "f52b", 16);
 139
 140   mpz_set_str(pub.e, "3f1a012d", 16);
 141
 142   ASSERT (rsa_public_key_prepare(&pub));
 143
 144   mpz_set_str(key.p,
 145               "0b73c990eeda0a2a" "2c26416052c85560" "0c5c0f5ce86a8326"
 146               "166acea91786237a" "7ff884e66dbfdd3a" "ab9d9801414c1506"
 147               "8b", 16);
 148
 149   mpz_set_str(key.q,
 150               "1b81c19a62802a41" "9c99283331b0badb" "08eb0c25ffce0fbf"
 151               "50017850036f32f3" "2132a845b91a5236" "61f7b451d587383f"
 152               "e1", 16);
 153
 154   mpz_set_str(key.a,
 155               "0a912fc93a6cca6b" "3521725a3065b3be" "3c9745e29c93303d"
 156               "7d29316c6cafa4a2" "89945f964fcdea59" "1f9d248b0b6734be"
 157               "c9", 16);
 158
 159   mpz_set_str(key.b,
 160               "1658eca933251813" "1eb19c77aba13d73" "e0b8f4ce986d7615"
 161               "764c6b0b03c18146" "46b7f332c43e05c5" "351e09006979ca5b"
 162               "05", 16);
 163
 164   mpz_set_str(key.c,
 165               "0114720dace7b27f" "2bf2850c1804869f" "79a0aad0ec02e6b4"
 166               "05e1831619db2f10" "bb9b6a8fd5c95df2" "eb78f303ea0c0cc8"
 167               "06", 16);
 168
 169   ASSERT (rsa_private_key_prepare(&key));
 170   ASSERT (pub.size == key.size);
 171
 172   /* Test signatures */
 173   mpz_set_str(expected,
 174               "5493d4d774d03f54de2e9bef6818b74a8e22bbe9628b6dec3f178d"
 175               "cc0090dab933a0f24bc9ac8aec949558868ea4f8e29d0248e70717"
 176               "6c113e8fbd9f1428c45a120378e32febffd4e9aca8102081bb5b90"
 177               "0f2914395a220823b700dbd7bd32646e", 16);
 178
 179   test_rsa_sign_tr(&pub, &key, LDATA(MSG1), expected);
 180
 181   /* Test sha1 signature */
 182   mpz_set_str(expected,
 183               "126bbd3d9e8649187069d8b6f0f43bd234a53249f765f616647049"
 184               "ca49b2c4cc8049440d5a9f1d10fcdf162b40afd9b761bcd30e2c60"
 185               "133b2c6f0504fe447038422b835d35448acb0881e894144e4ccaea"
 186               "59ce8dd16d3540fcbb84ebd1c5fb37510", 16);
 187
 188   test_rsa_sign_tr(&pub, &key, LDATA(MSG2), expected);
 189
 190   rsa_private_key_clear(&key);
 191   rsa_public_key_clear(&pub);
 192   mpz_clear(expected);
 193 }