DANE: smtp transport option dane_require_tls_ciphers
[exim.git] / test / src / ed25519_privkey_pem_to_pubkey_raw_b64.c
1
2 #include <sys/types.h>
3 #include <sys/stat.h>
4 #include <fcntl.h>
5
6 #include <stdarg.h>
7 #include <stddef.h>
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <string.h>
11 #include <unistd.h>
12
13 /* Unix includes */
14
15 typedef unsigned char uschar;
16
17 #define CS   (char *)
18 #define US   (unsigned char *)
19
20 #define FALSE         0
21 #define TRUE          1
22
23
24
25 #ifdef HAVE_GNUTLS
26
27
28 #include <gnutls/gnutls.h>
29 #include <gnutls/abstract.h>
30 #include <gnutls/x509.h>
31
32 #if GNUTLS_VERSION_NUMBER >= 0x030600
33 # define SIGN_HAVE_ED25519
34 #endif
35
36
37
38 static uschar *enc64table =
39   US"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
40
41 uschar *
42 b64encode(uschar *clear, int len)
43 {
44 uschar *code = malloc(4*((len+2)/3) + 2);
45 uschar *p = code;
46
47 while (len-- >0)
48   {
49   int x, y;
50
51   x = *clear++;
52   *p++ = enc64table[(x >> 2) & 63];
53
54   if (len-- <= 0)
55     {
56     *p++ = enc64table[(x << 4) & 63];
57     *p++ = '=';
58     *p++ = '=';
59     break;
60     }
61
62   y = *clear++;
63   *p++ = enc64table[((x << 4) | ((y >> 4) & 15)) & 63];
64
65   if (len-- <= 0)
66     {
67     *p++ = enc64table[(y << 2) & 63];
68     *p++ = '=';
69     break;
70     }
71
72   x = *clear++;
73   *p++ = enc64table[((y << 2) | ((x >> 6) & 3)) & 63];
74
75   *p++ = enc64table[x & 63];
76   }
77
78 *p = 0;
79
80 return code;
81 }
82
83 /*************************************************
84 *                 Main Program                   *
85 *************************************************/
86
87
88 int
89 main(int argc, char **argv)
90 {
91 uschar * pemfile = argv[1];
92 int fd;
93 uschar buf[1024];
94 int len, rc;
95 gnutls_privkey_t privkey;
96 gnutls_datum_t k;
97 gnutls_pubkey_t pubkey;
98 uschar * b64;
99
100 #ifdef SIGN_HAVE_ED25519
101 if ((fd = open(CS pemfile, O_RDONLY)) < 0)
102   exit(1);
103
104 if ((len = read(fd, buf, sizeof(buf)-1)) < 0)
105   exit(2);
106
107 k.data = buf;
108 k.size = len;
109
110 if (  (rc = gnutls_privkey_init(&privkey))
111    || (rc = gnutls_privkey_import_x509_raw(privkey, &k, GNUTLS_X509_FMT_PEM, NULL, GNUTLS_PKCS_PLAIN))
112    || (rc = gnutls_pubkey_init(&pubkey))
113    || (rc = gnutls_pubkey_import_privkey(pubkey, privkey, GNUTLS_KEY_DIGITAL_SIGNATURE, 0))
114    || (rc = gnutls_pubkey_export_ecc_raw2(pubkey, NULL, &k, NULL, GNUTLS_EXPORT_FLAG_NO_LZ))
115    )
116   fprintf(stderr, "%s\n", gnutls_strerror(rc));
117
118 b64 = b64encode(k.data, k.size);
119
120 printf("%s\n", b64);
121 exit(0);
122
123 #else
124 fprintf(stderr, "No support for ed25519 signing in GnuTLS (version %s)\n", gnutls_check_version(NULL));
125 exit(3);
126 #endif
127 }
128
129 #endif
130
131 #ifdef HAVE_OPENSSL
132 int
133 main(int argc, char **argv)
134 {
135 fprintf(stderr, "No support for ed25519 signing in OpenSSL\n");
136 exit(3);
137 }
138
139 #endif