9
struct rsa_public_key pub;
10
struct rsa_private_key priv;
12
struct nettle_buffer buffer;
14
rsa_public_key_init(&pub);
15
rsa_private_key_init(&priv);
18
"085c3408989acae4faec3cbbad91c90d34c1d259cd74121a"
19
"36f38b0b51424a9b2be514a04377113a6cdafe79dd7d5f2e"
20
"cc8b5e9661189b86a7b22239907c25", 16);
21
mpz_set_str(pub.e, "36ad4b1d", 16);
23
ASSERT(rsa_public_key_prepare(&pub));
26
"06ee6d4ff3c239e408150daf8117abfa36a40ad4455d9059"
27
"a86d52f33a2de07418a0a699594588c64810248c9412d554"
28
"f74af947c73c32007e87c92f0937ed", 16);
31
"03259879b24315e9cf14254824c7935d807cdb6990f414a0"
32
"f65e6065130a611f", 16);
35
"02a81ba73bad45fc73b36deffce52d1b73e0747f4d8a8264"
36
"8cecd310448ea63b", 16);
39
"026cbdad5dd0046e093f060ecd5b4ac918e098b0278bb752"
40
"b7cadd6a8944f0b9", 16);
43
"0148751e622d6d58e3bb094afd6edacf7370351d068e2ce9"
44
"f565c5528c4a7473", 16);
47
"f8a458ea73a018dc6fa56863e3bc6de405f364f77dee6f09"
48
"62679ea1a8282e", 16);
50
ASSERT(rsa_private_key_prepare(&priv));
52
nettle_buffer_init(&buffer);
53
ASSERT(rsa_keypair_to_sexp(&buffer, "rsa", &pub, &priv));
58
print_hex(buffer.size, buffer.contents);
61
ASSERT(MEMEQH(buffer.size, buffer.contents,
62
"2831313a707269766174652d6b657928"
63
"333a72736128313a6e36333a085c3408"
64
"989acae4faec3cbbad91c90d34c1d259"
65
"cd74121a36f38b0b51424a9b2be514a0"
66
"4377113a6cdafe79dd7d5f2ecc8b5e96"
67
"61189b86a7b22239907c252928313a65"
68
"343a36ad4b1d2928313a6436333a06ee"
69
"6d4ff3c239e408150daf8117abfa36a4"
70
"0ad4455d9059a86d52f33a2de07418a0"
71
"a699594588c64810248c9412d554f74a"
72
"f947c73c32007e87c92f0937ed292831"
73
"3a7033323a03259879b24315e9cf1425"
74
"4824c7935d807cdb6990f414a0f65e60"
75
"65130a611f2928313a7133323a02a81b"
76
"a73bad45fc73b36deffce52d1b73e074"
77
"7f4d8a82648cecd310448ea63b292831"
78
"3a6133323a026cbdad5dd0046e093f06"
79
"0ecd5b4ac918e098b0278bb752b7cadd"
80
"6a8944f0b92928313a6233323a014875"
81
"1e622d6d58e3bb094afd6edacf737035"
82
"1d068e2ce9f565c5528c4a7473292831"
83
"3a6333323a00f8a458ea73a018dc6fa5"
84
"6863e3bc6de405f364f77dee6f096267"
87
nettle_buffer_clear(&buffer);
88
ASSERT(rsa_keypair_to_sexp(&buffer, NULL, &pub, NULL));
93
print_hex(buffer.size, buffer.contents);
95
ASSERT(MEMEQH(buffer.size, buffer.contents,
96
"2831303a7075626c69632d6b65792833"
97
"3a72736128313a6e36333a085c340898"
98
"9acae4faec3cbbad91c90d34c1d259cd"
99
"74121a36f38b0b51424a9b2be514a043"
100
"77113a6cdafe79dd7d5f2ecc8b5e9661"
101
"189b86a7b22239907c252928313a6534"
102
"3a36ad4b1d292929"));
104
rsa_public_key_clear(&pub);
105
rsa_private_key_clear(&priv);
109
#else /* !WITH_PUBLIC_KEY */
111
#endif /* !WITH_PUBLIC_KEY */