[Title] Add packaging/nettle.spec to build nettle on OBS system
[external/nettle.git] / testsuite / rsa-test.c
1 #include "testutils.h"
2
3 int
4 test_main(void)
5 {
6   struct rsa_public_key pub;
7   struct rsa_private_key key;
8
9   mpz_t expected;
10   
11   mpz_init(expected);
12   
13   rsa_private_key_init(&key);
14   rsa_public_key_init(&pub);
15
16   test_rsa_set_key_1(&pub, &key);
17   
18   /* Test md5 signatures */
19   mpz_set_str(expected,
20               "53bf517009fa956e" "3daa6adc95e8663d" "3759002f488bbbad"
21               "e49f62792d85dbcc" "293f68e2b68ef89a" "c5bd42d98f845325"
22               "3e6c1b76fc337db5" "e0053f255c55faf3" "eb6cc568ad7f5013"
23               "5b269a64acb9eaa7" "b7f09d9bd90310e6" "4c58f6dbe673ada2"
24               "67c97a9d99e19f9d" "87960d9ce3f0d5ce" "84f401fe7e10fa24"
25               "28b9bffcf9", 16);
26
27   test_rsa_md5(&pub, &key, expected);
28
29   /* Test sha1 signature */
30   mpz_set_str(expected,
31               "129b405ed85db88c" "55d35344c4b52854" "496516b4d63d8211"
32               "80a0c24d6ced9047" "33065a564bbd33d0" "a5cdfd204b9c6d15"
33               "78337207c2f1662d" "c73906c7a0f2bf5c" "af92cef9121957b1"
34               "dcb111ff47b92389" "888e384d0cfd1b1e" "e5d7003a8feff3fd"
35               "dd6a71d242a79272" "25234d67ba369441" "c12ae555c697754e"
36               "a17f93fa92", 16);
37
38   test_rsa_sha1(&pub, &key, expected);
39
40   mpz_set_str(expected,
41               "13f9e43f7a401a73" "0a74985c01520d76" "bf5f2e2dff91e93b"
42               "9267d8c388d6937b" "d4bc6f1fa31618a9" "b5e3a1a875af72f5"
43               "0e805dbfebdf4348" "7d49763f0b365e78" "d2c0ea8fb3785897"
44               "782289a58f998907" "248c9cdf2c643d7e" "6ba6b55026227773"
45               "6f19caa69c4fc6d7" "7e2e5d4cd6b7a82b" "900d201ffd000448"
46               "685e5a4f3e", 16);
47
48   test_rsa_sha256(&pub, &key, expected);
49
50   mpz_set_str(expected,
51               "06327f717f43bcf3" "5994e567e8241963" "8c22e1057a7771e7"
52               "a665bb7441a39cc8" "7762f6b1a459cae3" "281462ed3f6aec48"
53               "15c2365797a02af6" "8a603adf276c46f6" "e6afb25d07c57f47"
54               "c516aff84abda629" "cc83d9364eb3616d" "7d4ddf0e9a25fac5"
55               "7d56a252b0cb7b1f" "8266b525e9b893af" "116e7845c0969a9f"
56               "603e2543f3", 16);
57
58   test_rsa_sha512(&pub, &key, expected);
59
60   /* 777-bit key, generated by
61    *
62    *   lsh-keygen -a rsa -l 777 -f advanced-hex
63    *
64    * Interesting because the size of n doesn't equal the sum of the
65    * sizes of p and q. 
66    *
67    * (private-key (rsa-pkcs1
68    *        (n #013b04440e3eef25 d51c738d508a7fa8 b3445180c342af0f
69    *            4cb5a789047300e2 cfc5c5450974cfc2 448aeaaa7f43c374
70    *            c9a3b038b181f2d1 0f1a2327fd2c087b a49bf1086969fd2c
71    *            d1df3fd69f81fa4b 162cc8bbb363fc95 b7b24b9c53d0c67e
72    *            f52b#)
73    *        (e #3f1a012d#)
74    *        (d #f9bae89dacca6cca c21e0412b4df8355 6fe7c5322bbae8ad
75    *            3f11494fd12bc076 d4a7da3050fe109d 2074db09cc6a93b4
76    *            745479522558379e a0ddfa74f86c9e9e a22c3b0e93d51447
77    *            0feb38105dd35395 63b91ee32776f40c 67b2a175690f7abb
78    *            25#)
79    *        (p #0b73c990eeda0a2a 2c26416052c85560 0c5c0f5ce86a8326
80    *            166acea91786237a 7ff884e66dbfdd3a ab9d9801414c1506
81    *            8b#)
82    *        (q #1b81c19a62802a41 9c99283331b0badb 08eb0c25ffce0fbf
83    *            50017850036f32f3 2132a845b91a5236 61f7b451d587383f
84    *            e1#)
85    *        (a #0a912fc93a6cca6b 3521725a3065b3be 3c9745e29c93303d
86    *            7d29316c6cafa4a2 89945f964fcdea59 1f9d248b0b6734be
87    *            c9#)
88    *        (b #1658eca933251813 1eb19c77aba13d73 e0b8f4ce986d7615
89    *            764c6b0b03c18146 46b7f332c43e05c5 351e09006979ca5b
90    *            05#)
91    *        (c #0114720dace7b27f 2bf2850c1804869f 79a0aad0ec02e6b4
92    *            05e1831619db2f10 bb9b6a8fd5c95df2 eb78f303ea0c0cc8
93    *            06#)))
94    */
95   
96   mpz_set_str(pub.n,
97               "013b04440e3eef25" "d51c738d508a7fa8" "b3445180c342af0f"
98               "4cb5a789047300e2" "cfc5c5450974cfc2" "448aeaaa7f43c374"
99               "c9a3b038b181f2d1" "0f1a2327fd2c087b" "a49bf1086969fd2c"
100               "d1df3fd69f81fa4b" "162cc8bbb363fc95" "b7b24b9c53d0c67e"
101               "f52b", 16);
102   
103   mpz_set_str(pub.e, "3f1a012d", 16);
104
105   if (!rsa_public_key_prepare(&pub))
106     FAIL();
107   
108   mpz_set_str(key.p,
109               "0b73c990eeda0a2a" "2c26416052c85560" "0c5c0f5ce86a8326"
110               "166acea91786237a" "7ff884e66dbfdd3a" "ab9d9801414c1506"
111               "8b", 16);
112   
113   mpz_set_str(key.q,
114               "1b81c19a62802a41" "9c99283331b0badb" "08eb0c25ffce0fbf"
115               "50017850036f32f3" "2132a845b91a5236" "61f7b451d587383f"
116               "e1", 16);
117   
118   mpz_set_str(key.a,
119               "0a912fc93a6cca6b" "3521725a3065b3be" "3c9745e29c93303d"
120               "7d29316c6cafa4a2" "89945f964fcdea59" "1f9d248b0b6734be"
121               "c9", 16);
122   
123   mpz_set_str(key.b,
124               "1658eca933251813" "1eb19c77aba13d73" "e0b8f4ce986d7615"
125               "764c6b0b03c18146" "46b7f332c43e05c5" "351e09006979ca5b"
126               "05", 16);
127   
128   mpz_set_str(key.c,
129               "0114720dace7b27f" "2bf2850c1804869f" "79a0aad0ec02e6b4"
130               "05e1831619db2f10" "bb9b6a8fd5c95df2" "eb78f303ea0c0cc8"
131               "06", 16);
132
133   if (!rsa_private_key_prepare(&key))
134     FAIL();
135
136   if (pub.size != key.size)
137     FAIL();
138
139   /* Test md5 signatures */
140   mpz_set_str(expected,
141               "011b939f6fbacf7f" "7d3217b022d07477" "e582e34d4bbddd4c"
142               "31520647417fc8a6" "18b2e196d799cedd" "d8f5c062fd796b0f"
143               "72ab46db2ac6ec74" "39d856be3f746cc4" "3e0a15429954736a"
144               "60a8b3c6ea93d2cb" "c69085c307d72517" "07d43bf97a3b51eb"
145               "9e89", 16);
146
147   test_rsa_md5(&pub, &key, expected);
148
149   /* Test sha1 signature */
150   mpz_set_str(expected,
151               "648c49e0ed045547" "08381d0bcd03b7bd" "b0f80a0e9030525d"
152               "234327a1c96b8660" "f1c01c6f15ae76d0" "4f53a53806b7e4db"
153               "1f789e6e89b538f6" "88fcbd2caa6abef0" "5432d52f3de463a4"
154               "a9e6de94f1b7bb68" "3c07edf0924fc93f" "56e1a0dba8f7491c"
155               "5c", 16);
156
157   test_rsa_sha1(&pub, &key, expected);
158
159   mpz_set_str(expected,
160               "d759bb28b4d249a2" "f8b67bdbb1ab7f50" "c88712fbcabc2956"
161               "1ec6ca3f8fdafe7a" "38433d7da287b8f7" "87857274c1640b2b"
162               "e652cd89c501d570" "3980a0af5c6bb60c" "f84feab25b099d06"
163               "e2519accb73dac43" "fb8bdad28835f3bd" "84c43678fe2ef41f"
164               "af", 16);
165
166   test_rsa_sha256(&pub, &key, expected);
167
168   mpz_set_str(expected,
169               "f761aae6273d6149" "06d8c208fb2897ca" "d798a46af4985b86"
170               "51d51e6a3e11cbe0" "84f18ba8979c0f54" "11493f7c6e770560"
171               "03db2146b4dbcaa6" "4aae2e02aab9ff7b" "1ddf77dc72145cf1"
172               "c26ebde7c708cdc1" "62e167a7ac33967b" "386a40ea4a988d17"
173               "47", 16);
174
175   test_rsa_sha512(&pub, &key, expected);
176
177   rsa_private_key_clear(&key);
178   rsa_public_key_clear(&pub);
179   mpz_clear(expected);
180
181   SUCCESS();
182 }