2 * S-nail - a mail user agent derived from Berkeley Mail.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 Steffen "Daode" Nurpmeso.
9 * Gunnar Ritter. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by Gunnar Ritter
22 * and his contributors.
23 * 4. Neither the name of Gunnar Ritter nor the names of his contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY GUNNAR RITTER AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL GUNNAR RITTER OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
43 typedef int avoid_empty_file_compiler_warning
;
50 ssl_set_vrfy_level(const char *uhp
)
55 ssl_vrfy_level
= VRFY_ASK
;
56 vrvar
= ac_alloc(strlen(uhp
) + 12);
57 strcpy(vrvar
, "ssl-verify-");
58 strcpy(&vrvar
[11], uhp
);
59 if ((cp
= value(vrvar
)) == NULL
)
60 cp
= value("ssl-verify");
63 if (strcmp(cp
, "strict") == 0)
64 ssl_vrfy_level
= VRFY_STRICT
;
65 else if (strcmp(cp
, "ask") == 0)
66 ssl_vrfy_level
= VRFY_ASK
;
67 else if (strcmp(cp
, "warn") == 0)
68 ssl_vrfy_level
= VRFY_WARN
;
69 else if (strcmp(cp
, "ignore") == 0)
70 ssl_vrfy_level
= VRFY_IGNORE
;
72 fprintf(stderr
, tr(265,
73 "invalid value of ssl-verify: %s\n"), cp
);
82 switch (ssl_vrfy_level
) {
91 fprintf(stderr
, catgets(catd
, CATSET
, 264,
93 if (readline(stdin
, &line
, &linesize
) > 0 &&
110 ssl_method_string(const char *uhp
)
114 mtvar
= ac_alloc(strlen(uhp
) + 12);
115 strcpy(mtvar
, "ssl-method-");
116 strcpy(&mtvar
[11], uhp
);
117 if ((cp
= value(mtvar
)) == NULL
)
118 cp
= value("ssl-method");
124 smime_split(FILE *ip
, FILE **hp
, FILE **bp
, long xcount
, int keep
)
127 char *savedfields
= NULL
;
128 size_t bufsize
, buflen
, count
, savedsize
= 0;
131 if ((*hp
= Ftemp(&hn
, "Rh", "w+", 0600, 1)) == NULL
||
132 (*bp
= Ftemp(&bn
, "Rb", "w+", 0600, 1)) == NULL
) {
140 buf
= smalloc(bufsize
= LINESIZE
);
141 savedfields
= smalloc(savedsize
= 1);
147 while (fgetline(&buf
, &bufsize
, &count
, &buflen
, ip
, 0) != NULL
&&
149 if (ascncasecmp(buf
, "content-", 8) == 0) {
151 fputs("X-Encoded-", *hp
);
154 savedfields
= srealloc(savedfields
, savedsize
);
155 strcat(savedfields
, buf
);
157 fwrite(buf
, sizeof *buf
, buflen
, *hp
);
162 fgetline(&buf
, &bufsize
, &count
, &buflen
,
167 fwrite(buf
, sizeof *buf
, buflen
, *hp
);
171 fputs(savedfields
, *bp
);
173 while (fgetline(&buf
, &bufsize
, &count
, &buflen
, ip
, 0) != NULL
)
174 fwrite(buf
, sizeof *buf
, buflen
, *bp
);
182 smime_sign_assemble(FILE *hp
, FILE *bp
, FILE *sp
)
188 if ((op
= Ftemp(&cp
, "Rs", "w+", 0600, 1)) == NULL
) {
194 boundary
= makeboundary();
195 while ((c
= getc(hp
)) != EOF
) {
196 if (c
== '\n' && lastc
== '\n')
201 fprintf(op
, "Content-Type: multipart/signed;\n"
202 " protocol=\"application/x-pkcs7-signature\"; micalg=sha1;\n"
203 " boundary=\"%s\"\n\n", boundary
);
204 fprintf(op
, "This is an S/MIME signed message.\n\n--%s\n",
206 while ((c
= getc(bp
)) != EOF
)
208 fprintf(op
, "\n--%s\n", boundary
);
209 fputs("Content-Type: application/x-pkcs7-signature; "
210 "name=\"smime.p7s\"\n"
211 "Content-Transfer-Encoding: base64\n"
212 "Content-Disposition: attachment; filename=\"smime.p7s\"\n\n",
214 while ((c
= getc(sp
)) != EOF
) {
216 while ((c
= getc(sp
)) != EOF
&& c
!= '\n');
221 fprintf(op
, "\n--%s--\n", boundary
);
227 perror("signed output data");
236 smime_encrypt_assemble(FILE *hp
, FILE *yp
)
242 if ((op
= Ftemp(&cp
, "Rs", "w+", 0600, 1)) == NULL
) {
248 while ((c
= getc(hp
)) != EOF
) {
249 if (c
== '\n' && lastc
== '\n')
254 fprintf(op
, "Content-Type: application/x-pkcs7-mime; "
255 "name=\"smime.p7m\"\n"
256 "Content-Transfer-Encoding: base64\n"
257 "Content-Disposition: attachment; "
258 "filename=\"smime.p7m\"\n\n");
259 while ((c
= getc(yp
)) != EOF
) {
261 while ((c
= getc(yp
)) != EOF
&& c
!= '\n');
270 perror("encrypted output data");
279 smime_decrypt_assemble(struct message
*m
, FILE *hp
, FILE *bp
)
281 int binary
= 0, lastnl
= 0;
282 char *buf
= NULL
, *cp
;
283 size_t bufsize
= 0, buflen
, count
;
284 long lines
= 0, octets
= 0;
288 x
= salloc(sizeof *x
);
291 fseek(mb
.mb_otf
, 0L, SEEK_END
);
292 offset
= ftell(mb
.mb_otf
);
294 while (fgetline(&buf
, &bufsize
, &count
, &buflen
, hp
, 0) != NULL
) {
297 if ((cp
= thisfield(buf
, "content-transfer-encoding")) != NULL
)
298 if (ascncasecmp(cp
, "binary", 7) == 0)
300 fwrite(buf
, sizeof *buf
, buflen
, mb
.mb_otf
);
304 octets
+= mkdate(mb
.mb_otf
, "X-Decoding-Date");
307 while (fgetline(&buf
, &bufsize
, &count
, &buflen
, bp
, 0) != NULL
) {
309 if (!binary
&& buf
[buflen
-1] == '\n' && buf
[buflen
-2] == '\r')
310 buf
[--buflen
-1] = '\n';
311 fwrite(buf
, sizeof *buf
, buflen
, mb
.mb_otf
);
315 else if (buf
[buflen
-1] == '\n')
320 while (!binary
&& lastnl
< 2) {
321 putc('\n', mb
.mb_otf
);
330 if (ferror(mb
.mb_otf
)) {
331 perror("decrypted output data");
334 x
->m_size
= x
->m_xsize
= octets
;
335 x
->m_lines
= x
->m_xlines
= lines
;
336 x
->m_block
= mailx_blockof(offset
);
337 x
->m_offset
= mailx_offsetof(offset
);
346 char *file
= NULL
, *str
= v
;
350 msgvec
= salloc((msgCount
+ 2) * sizeof *msgvec
);
351 if ((file
= laststring(str
, &f
, 1)) == NULL
) {
352 fprintf(stderr
, "No file to save certificate given.\n");
356 *msgvec
= first(0, MMNORM
);
361 "No messages to get certificates from.\n");
365 } else if (getmsglist(str
, msgvec
, 0) < 0)
370 fprintf(stderr
, "No applicable messages.\n");
373 if ((fp
= Fopen(file
, "a")) == NULL
) {
377 for (ip
= msgvec
; *ip
&& ip
-msgvec
< msgCount
; ip
++)
378 if (smime_certsave(&message
[*ip
-1], *ip
, fp
) != OKAY
)
382 printf("Certificate(s) saved.\n");
386 rfc2595_hostname_match(const char *host
, const char *pattern
)
388 if (pattern
[0] == '*' && pattern
[1] == '.') {
390 while (*host
&& *host
!= '.')
393 return asccasecmp(host
, pattern
) == 0 ? OKAY
: STOP
;