g10: Add "key-attr" command for --card-edit.
[gnupg.git] / g10 / cipher.c
1 /* cipher.c - En-/De-ciphering filter
2  * Copyright (C) 1998-2003, 2006, 2009 Free Software Foundation, Inc.
3  * Copyright (C) 1998-2003, 2006, 2009, 2017 Werner koch
4  *
5  * This file is part of GnuPG.
6  *
7  * GnuPG is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * GnuPG is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, see <https://www.gnu.org/licenses/>.
19  * SPDX-License-Identifier: GPL-3.0+
20  */
21
22 #include <config.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <errno.h>
27
28 #include "gpg.h"
29 #include "../common/status.h"
30 #include "../common/iobuf.h"
31 #include "../common/util.h"
32 #include "filter.h"
33 #include "packet.h"
34 #include "options.h"
35 #include "main.h"
36 #include "../common/status.h"
37
38
39 #define MIN_PARTIAL_SIZE 512
40
41
42 static void
43 write_header (cipher_filter_context_t *cfx, iobuf_t a)
44 {
45   gcry_error_t err;
46   PACKET pkt;
47   PKT_encrypted ed;
48   byte temp[18];
49   unsigned int blocksize;
50   unsigned int nprefix;
51
52   blocksize = openpgp_cipher_get_algo_blklen (cfx->dek->algo);
53   if ( blocksize < 8 || blocksize > 16 )
54     log_fatal ("unsupported blocksize %u\n", blocksize);
55
56   memset (&ed, 0, sizeof ed);
57   ed.len = cfx->datalen;
58   ed.extralen = blocksize + 2;
59   ed.new_ctb = !ed.len;
60   if (cfx->dek->use_mdc)
61     {
62       ed.mdc_method = DIGEST_ALGO_SHA1;
63       gcry_md_open (&cfx->mdc_hash, DIGEST_ALGO_SHA1, 0);
64       if (DBG_HASHING)
65         gcry_md_debug (cfx->mdc_hash, "creatmdc");
66     }
67   else if (!opt.no_mdc_warn)
68     {
69       log_info ("WARNING: "
70                 "encrypting without integrity protection is dangerous\n");
71     }
72
73   write_status_printf (STATUS_BEGIN_ENCRYPTION, "%d %d",
74                        ed.mdc_method, cfx->dek->algo);
75
76   init_packet (&pkt);
77   pkt.pkttype = cfx->dek->use_mdc? PKT_ENCRYPTED_MDC : PKT_ENCRYPTED;
78   pkt.pkt.encrypted = &ed;
79   if (build_packet( a, &pkt))
80     log_bug ("build_packet(ENCR_DATA) failed\n");
81   nprefix = blocksize;
82   gcry_randomize (temp, nprefix, GCRY_STRONG_RANDOM );
83   temp[nprefix] = temp[nprefix-2];
84   temp[nprefix+1] = temp[nprefix-1];
85   print_cipher_algo_note (cfx->dek->algo);
86   err = openpgp_cipher_open (&cfx->cipher_hd,
87                              cfx->dek->algo,
88                              GCRY_CIPHER_MODE_CFB,
89                              (GCRY_CIPHER_SECURE
90                               | ((cfx->dek->use_mdc || cfx->dek->algo >= 100)?
91                                  0 : GCRY_CIPHER_ENABLE_SYNC)));
92   if (err)
93     {
94       /* We should never get an error here cause we already checked,
95        * that the algorithm is available.  */
96       BUG();
97     }
98
99   /* log_hexdump ("thekey", cfx->dek->key, cfx->dek->keylen); */
100   gcry_cipher_setkey (cfx->cipher_hd, cfx->dek->key, cfx->dek->keylen);
101   gcry_cipher_setiv (cfx->cipher_hd, NULL, 0);
102   /* log_hexdump ("prefix", temp, nprefix+2); */
103   if (cfx->mdc_hash) /* Hash the "IV". */
104     gcry_md_write (cfx->mdc_hash, temp, nprefix+2 );
105   gcry_cipher_encrypt (cfx->cipher_hd, temp, nprefix+2, NULL, 0);
106   gcry_cipher_sync (cfx->cipher_hd);
107   iobuf_write (a, temp, nprefix+2);
108
109   cfx->short_blklen_warn = (blocksize < 16);
110   cfx->short_blklen_count = nprefix+2;
111
112   cfx->wrote_header = 1;
113 }
114
115
116 /*
117  * This filter is used to en/de-cipher data with a symmetric algorithm
118  */
119 int
120 cipher_filter (void *opaque, int control, iobuf_t a, byte *buf, size_t *ret_len)
121 {
122   cipher_filter_context_t *cfx = opaque;
123   size_t size = *ret_len;
124   int rc = 0;
125
126   if (control == IOBUFCTRL_UNDERFLOW) /* decrypt */
127     {
128       rc = -1; /* not yet used */
129     }
130   else if (control == IOBUFCTRL_FLUSH) /* encrypt */
131     {
132       log_assert (a);
133       if (!cfx->wrote_header)
134         write_header (cfx, a);
135       if (cfx->mdc_hash)
136         gcry_md_write (cfx->mdc_hash, buf, size);
137       gcry_cipher_encrypt (cfx->cipher_hd, buf, size, NULL, 0);
138       if (cfx->short_blklen_warn)
139         {
140           cfx->short_blklen_count += size;
141           if (cfx->short_blklen_count > (150 * 1024 * 1024))
142             {
143               log_info ("WARNING: encrypting more than %d MiB with algorithm "
144                         "%s should be avoided\n", 150,
145                         openpgp_cipher_algo_name (cfx->dek->algo));
146               cfx->short_blklen_warn = 0; /* Don't show again.  */
147             }
148         }
149
150       rc = iobuf_write (a, buf, size);
151     }
152   else if (control == IOBUFCTRL_FREE)
153     {
154       if (cfx->mdc_hash)
155         {
156           byte *hash;
157           int hashlen = gcry_md_get_algo_dlen (gcry_md_get_algo(cfx->mdc_hash));
158           byte temp[22];
159
160           log_assert (hashlen == 20);
161           /* We must hash the prefix of the MDC packet here. */
162           temp[0] = 0xd3;
163           temp[1] = 0x14;
164           gcry_md_putc (cfx->mdc_hash, temp[0]);
165           gcry_md_putc (cfx->mdc_hash, temp[1]);
166
167           gcry_md_final (cfx->mdc_hash);
168           hash = gcry_md_read (cfx->mdc_hash, 0);
169           memcpy(temp+2, hash, 20);
170           gcry_cipher_encrypt (cfx->cipher_hd, temp, 22, NULL, 0);
171           gcry_md_close (cfx->mdc_hash); cfx->mdc_hash = NULL;
172           if (iobuf_write( a, temp, 22))
173             log_error ("writing MDC packet failed\n");
174         }
175
176       gcry_cipher_close (cfx->cipher_hd);
177     }
178   else if (control == IOBUFCTRL_DESC)
179     {
180       mem2str (buf, "cipher_filter", *ret_len);
181     }
182
183   return rc;
184 }