xref: /openbmc/qemu/block/crypto.c (revision 784155cd)
1 /*
2  * QEMU block full disk encryption
3  *
4  * Copyright (c) 2015-2016 Red Hat, Inc.
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, see <http://www.gnu.org/licenses/>.
18  *
19  */
20 
21 #include "qemu/osdep.h"
22 
23 #include "block/block_int.h"
24 #include "block/qdict.h"
25 #include "sysemu/block-backend.h"
26 #include "crypto/block.h"
27 #include "qapi/opts-visitor.h"
28 #include "qapi/qapi-visit-crypto.h"
29 #include "qapi/qobject-input-visitor.h"
30 #include "qapi/error.h"
31 #include "qemu/module.h"
32 #include "qemu/option.h"
33 #include "qemu/cutils.h"
34 #include "qemu/memalign.h"
35 #include "crypto.h"
36 
37 typedef struct BlockCrypto BlockCrypto;
38 
39 struct BlockCrypto {
40     QCryptoBlock *block;
41     bool updating_keys;
42 };
43 
44 
45 static int block_crypto_probe_generic(QCryptoBlockFormat format,
46                                       const uint8_t *buf,
47                                       int buf_size,
48                                       const char *filename)
49 {
50     if (qcrypto_block_has_format(format, buf, buf_size)) {
51         return 100;
52     } else {
53         return 0;
54     }
55 }
56 
57 
58 static int block_crypto_read_func(QCryptoBlock *block,
59                                   size_t offset,
60                                   uint8_t *buf,
61                                   size_t buflen,
62                                   void *opaque,
63                                   Error **errp)
64 {
65     BlockDriverState *bs = opaque;
66     ssize_t ret;
67 
68     ret = bdrv_pread(bs->file, offset, buflen, buf, 0);
69     if (ret < 0) {
70         error_setg_errno(errp, -ret, "Could not read encryption header");
71         return ret;
72     }
73     return 0;
74 }
75 
76 static int block_crypto_write_func(QCryptoBlock *block,
77                                    size_t offset,
78                                    const uint8_t *buf,
79                                    size_t buflen,
80                                    void *opaque,
81                                    Error **errp)
82 {
83     BlockDriverState *bs = opaque;
84     ssize_t ret;
85 
86     ret = bdrv_pwrite(bs->file, offset, buflen, buf, 0);
87     if (ret < 0) {
88         error_setg_errno(errp, -ret, "Could not write encryption header");
89         return ret;
90     }
91     return 0;
92 }
93 
94 
95 struct BlockCryptoCreateData {
96     BlockBackend *blk;
97     uint64_t size;
98     PreallocMode prealloc;
99 };
100 
101 
102 static int coroutine_fn GRAPH_UNLOCKED
103 block_crypto_create_write_func(QCryptoBlock *block, size_t offset,
104                                const uint8_t *buf, size_t buflen, void *opaque,
105                                Error **errp)
106 {
107     struct BlockCryptoCreateData *data = opaque;
108     ssize_t ret;
109 
110     ret = blk_pwrite(data->blk, offset, buflen, buf, 0);
111     if (ret < 0) {
112         error_setg_errno(errp, -ret, "Could not write encryption header");
113         return ret;
114     }
115     return 0;
116 }
117 
118 static int coroutine_fn GRAPH_UNLOCKED
119 block_crypto_create_init_func(QCryptoBlock *block, size_t headerlen,
120                               void *opaque, Error **errp)
121 {
122     struct BlockCryptoCreateData *data = opaque;
123     Error *local_error = NULL;
124     int ret;
125 
126     if (data->size > INT64_MAX || headerlen > INT64_MAX - data->size) {
127         ret = -EFBIG;
128         goto error;
129     }
130 
131     /* User provided size should reflect amount of space made
132      * available to the guest, so we must take account of that
133      * which will be used by the crypto header
134      */
135     ret = blk_truncate(data->blk, data->size + headerlen, false,
136                        data->prealloc, 0, &local_error);
137 
138     if (ret >= 0) {
139         return 0;
140     }
141 
142 error:
143     if (ret == -EFBIG) {
144         /* Replace the error message with a better one */
145         error_free(local_error);
146         error_setg(errp, "The requested file size is too large");
147     } else {
148         error_propagate(errp, local_error);
149     }
150 
151     return ret;
152 }
153 
154 
155 static QemuOptsList block_crypto_runtime_opts_luks = {
156     .name = "crypto",
157     .head = QTAILQ_HEAD_INITIALIZER(block_crypto_runtime_opts_luks.head),
158     .desc = {
159         BLOCK_CRYPTO_OPT_DEF_LUKS_KEY_SECRET(""),
160         { /* end of list */ }
161     },
162 };
163 
164 
165 static QemuOptsList block_crypto_create_opts_luks = {
166     .name = "crypto",
167     .head = QTAILQ_HEAD_INITIALIZER(block_crypto_create_opts_luks.head),
168     .desc = {
169         {
170             .name = BLOCK_OPT_SIZE,
171             .type = QEMU_OPT_SIZE,
172             .help = "Virtual disk size"
173         },
174         BLOCK_CRYPTO_OPT_DEF_LUKS_KEY_SECRET(""),
175         BLOCK_CRYPTO_OPT_DEF_LUKS_CIPHER_ALG(""),
176         BLOCK_CRYPTO_OPT_DEF_LUKS_CIPHER_MODE(""),
177         BLOCK_CRYPTO_OPT_DEF_LUKS_IVGEN_ALG(""),
178         BLOCK_CRYPTO_OPT_DEF_LUKS_IVGEN_HASH_ALG(""),
179         BLOCK_CRYPTO_OPT_DEF_LUKS_HASH_ALG(""),
180         BLOCK_CRYPTO_OPT_DEF_LUKS_ITER_TIME(""),
181         { /* end of list */ }
182     },
183 };
184 
185 
186 static QemuOptsList block_crypto_amend_opts_luks = {
187     .name = "crypto",
188     .head = QTAILQ_HEAD_INITIALIZER(block_crypto_create_opts_luks.head),
189     .desc = {
190         BLOCK_CRYPTO_OPT_DEF_LUKS_STATE(""),
191         BLOCK_CRYPTO_OPT_DEF_LUKS_KEYSLOT(""),
192         BLOCK_CRYPTO_OPT_DEF_LUKS_OLD_SECRET(""),
193         BLOCK_CRYPTO_OPT_DEF_LUKS_NEW_SECRET(""),
194         BLOCK_CRYPTO_OPT_DEF_LUKS_ITER_TIME(""),
195         { /* end of list */ }
196     },
197 };
198 
199 QCryptoBlockOpenOptions *
200 block_crypto_open_opts_init(QDict *opts, Error **errp)
201 {
202     Visitor *v;
203     QCryptoBlockOpenOptions *ret;
204 
205     v = qobject_input_visitor_new_flat_confused(opts, errp);
206     if (!v) {
207         return NULL;
208     }
209 
210     visit_type_QCryptoBlockOpenOptions(v, NULL, &ret, errp);
211 
212     visit_free(v);
213     return ret;
214 }
215 
216 
217 QCryptoBlockCreateOptions *
218 block_crypto_create_opts_init(QDict *opts, Error **errp)
219 {
220     Visitor *v;
221     QCryptoBlockCreateOptions *ret;
222 
223     v = qobject_input_visitor_new_flat_confused(opts, errp);
224     if (!v) {
225         return NULL;
226     }
227 
228     visit_type_QCryptoBlockCreateOptions(v, NULL, &ret, errp);
229 
230     visit_free(v);
231     return ret;
232 }
233 
234 QCryptoBlockAmendOptions *
235 block_crypto_amend_opts_init(QDict *opts, Error **errp)
236 {
237     Visitor *v;
238     QCryptoBlockAmendOptions *ret;
239 
240     v = qobject_input_visitor_new_flat_confused(opts, errp);
241     if (!v) {
242         return NULL;
243     }
244 
245     visit_type_QCryptoBlockAmendOptions(v, NULL, &ret, errp);
246 
247     visit_free(v);
248     return ret;
249 }
250 
251 
252 static int block_crypto_open_generic(QCryptoBlockFormat format,
253                                      QemuOptsList *opts_spec,
254                                      BlockDriverState *bs,
255                                      QDict *options,
256                                      int flags,
257                                      Error **errp)
258 {
259     BlockCrypto *crypto = bs->opaque;
260     QemuOpts *opts = NULL;
261     int ret;
262     QCryptoBlockOpenOptions *open_opts = NULL;
263     unsigned int cflags = 0;
264     QDict *cryptoopts = NULL;
265 
266     ret = bdrv_open_file_child(NULL, options, "file", bs, errp);
267     if (ret < 0) {
268         return ret;
269     }
270 
271     bs->supported_write_flags = BDRV_REQ_FUA &
272         bs->file->bs->supported_write_flags;
273 
274     opts = qemu_opts_create(opts_spec, NULL, 0, &error_abort);
275     if (!qemu_opts_absorb_qdict(opts, options, errp)) {
276         ret = -EINVAL;
277         goto cleanup;
278     }
279 
280     cryptoopts = qemu_opts_to_qdict(opts, NULL);
281     qdict_put_str(cryptoopts, "format", QCryptoBlockFormat_str(format));
282 
283     open_opts = block_crypto_open_opts_init(cryptoopts, errp);
284     if (!open_opts) {
285         ret = -EINVAL;
286         goto cleanup;
287     }
288 
289     if (flags & BDRV_O_NO_IO) {
290         cflags |= QCRYPTO_BLOCK_OPEN_NO_IO;
291     }
292     crypto->block = qcrypto_block_open(open_opts, NULL,
293                                        block_crypto_read_func,
294                                        bs,
295                                        cflags,
296                                        1,
297                                        errp);
298 
299     if (!crypto->block) {
300         ret = -EIO;
301         goto cleanup;
302     }
303 
304     bs->encrypted = true;
305 
306     ret = 0;
307  cleanup:
308     qobject_unref(cryptoopts);
309     qapi_free_QCryptoBlockOpenOptions(open_opts);
310     return ret;
311 }
312 
313 
314 static int coroutine_fn GRAPH_UNLOCKED
315 block_crypto_co_create_generic(BlockDriverState *bs, int64_t size,
316                                QCryptoBlockCreateOptions *opts,
317                                PreallocMode prealloc, Error **errp)
318 {
319     int ret;
320     BlockBackend *blk;
321     QCryptoBlock *crypto = NULL;
322     struct BlockCryptoCreateData data;
323 
324     blk = blk_co_new_with_bs(bs, BLK_PERM_WRITE | BLK_PERM_RESIZE, BLK_PERM_ALL,
325                              errp);
326     if (!blk) {
327         ret = -EPERM;
328         goto cleanup;
329     }
330 
331     if (prealloc == PREALLOC_MODE_METADATA) {
332         prealloc = PREALLOC_MODE_OFF;
333     }
334 
335     data = (struct BlockCryptoCreateData) {
336         .blk = blk,
337         .size = size,
338         .prealloc = prealloc,
339     };
340 
341     crypto = qcrypto_block_create(opts, NULL,
342                                   block_crypto_create_init_func,
343                                   block_crypto_create_write_func,
344                                   &data,
345                                   errp);
346 
347     if (!crypto) {
348         ret = -EIO;
349         goto cleanup;
350     }
351 
352     ret = 0;
353  cleanup:
354     qcrypto_block_free(crypto);
355     blk_co_unref(blk);
356     return ret;
357 }
358 
359 static int coroutine_fn GRAPH_RDLOCK
360 block_crypto_co_truncate(BlockDriverState *bs, int64_t offset, bool exact,
361                          PreallocMode prealloc, BdrvRequestFlags flags,
362                          Error **errp)
363 {
364     BlockCrypto *crypto = bs->opaque;
365     uint64_t payload_offset =
366         qcrypto_block_get_payload_offset(crypto->block);
367 
368     if (payload_offset > INT64_MAX - offset) {
369         error_setg(errp, "The requested file size is too large");
370         return -EFBIG;
371     }
372 
373     offset += payload_offset;
374 
375     return bdrv_co_truncate(bs->file, offset, exact, prealloc, 0, errp);
376 }
377 
378 static void block_crypto_close(BlockDriverState *bs)
379 {
380     BlockCrypto *crypto = bs->opaque;
381     qcrypto_block_free(crypto->block);
382 }
383 
384 static int block_crypto_reopen_prepare(BDRVReopenState *state,
385                                        BlockReopenQueue *queue, Error **errp)
386 {
387     /* nothing needs checking */
388     return 0;
389 }
390 
391 /*
392  * 1 MB bounce buffer gives good performance / memory tradeoff
393  * when using cache=none|directsync.
394  */
395 #define BLOCK_CRYPTO_MAX_IO_SIZE (1024 * 1024)
396 
397 static int coroutine_fn GRAPH_RDLOCK
398 block_crypto_co_preadv(BlockDriverState *bs, int64_t offset, int64_t bytes,
399                        QEMUIOVector *qiov, BdrvRequestFlags flags)
400 {
401     BlockCrypto *crypto = bs->opaque;
402     uint64_t cur_bytes; /* number of bytes in current iteration */
403     uint64_t bytes_done = 0;
404     uint8_t *cipher_data = NULL;
405     QEMUIOVector hd_qiov;
406     int ret = 0;
407     uint64_t sector_size = qcrypto_block_get_sector_size(crypto->block);
408     uint64_t payload_offset = qcrypto_block_get_payload_offset(crypto->block);
409 
410     assert(payload_offset < INT64_MAX);
411     assert(QEMU_IS_ALIGNED(offset, sector_size));
412     assert(QEMU_IS_ALIGNED(bytes, sector_size));
413 
414     qemu_iovec_init(&hd_qiov, qiov->niov);
415 
416     /* Bounce buffer because we don't wish to expose cipher text
417      * in qiov which points to guest memory.
418      */
419     cipher_data =
420         qemu_try_blockalign(bs->file->bs, MIN(BLOCK_CRYPTO_MAX_IO_SIZE,
421                                               qiov->size));
422     if (cipher_data == NULL) {
423         ret = -ENOMEM;
424         goto cleanup;
425     }
426 
427     while (bytes) {
428         cur_bytes = MIN(bytes, BLOCK_CRYPTO_MAX_IO_SIZE);
429 
430         qemu_iovec_reset(&hd_qiov);
431         qemu_iovec_add(&hd_qiov, cipher_data, cur_bytes);
432 
433         ret = bdrv_co_preadv(bs->file, payload_offset + offset + bytes_done,
434                              cur_bytes, &hd_qiov, 0);
435         if (ret < 0) {
436             goto cleanup;
437         }
438 
439         if (qcrypto_block_decrypt(crypto->block, offset + bytes_done,
440                                   cipher_data, cur_bytes, NULL) < 0) {
441             ret = -EIO;
442             goto cleanup;
443         }
444 
445         qemu_iovec_from_buf(qiov, bytes_done, cipher_data, cur_bytes);
446 
447         bytes -= cur_bytes;
448         bytes_done += cur_bytes;
449     }
450 
451  cleanup:
452     qemu_iovec_destroy(&hd_qiov);
453     qemu_vfree(cipher_data);
454 
455     return ret;
456 }
457 
458 
459 static int coroutine_fn GRAPH_RDLOCK
460 block_crypto_co_pwritev(BlockDriverState *bs, int64_t offset, int64_t bytes,
461                         QEMUIOVector *qiov, BdrvRequestFlags flags)
462 {
463     BlockCrypto *crypto = bs->opaque;
464     uint64_t cur_bytes; /* number of bytes in current iteration */
465     uint64_t bytes_done = 0;
466     uint8_t *cipher_data = NULL;
467     QEMUIOVector hd_qiov;
468     int ret = 0;
469     uint64_t sector_size = qcrypto_block_get_sector_size(crypto->block);
470     uint64_t payload_offset = qcrypto_block_get_payload_offset(crypto->block);
471 
472     flags &= ~BDRV_REQ_REGISTERED_BUF;
473 
474     assert(payload_offset < INT64_MAX);
475     assert(QEMU_IS_ALIGNED(offset, sector_size));
476     assert(QEMU_IS_ALIGNED(bytes, sector_size));
477 
478     qemu_iovec_init(&hd_qiov, qiov->niov);
479 
480     /* Bounce buffer because we're not permitted to touch
481      * contents of qiov - it points to guest memory.
482      */
483     cipher_data =
484         qemu_try_blockalign(bs->file->bs, MIN(BLOCK_CRYPTO_MAX_IO_SIZE,
485                                               qiov->size));
486     if (cipher_data == NULL) {
487         ret = -ENOMEM;
488         goto cleanup;
489     }
490 
491     while (bytes) {
492         cur_bytes = MIN(bytes, BLOCK_CRYPTO_MAX_IO_SIZE);
493 
494         qemu_iovec_to_buf(qiov, bytes_done, cipher_data, cur_bytes);
495 
496         if (qcrypto_block_encrypt(crypto->block, offset + bytes_done,
497                                   cipher_data, cur_bytes, NULL) < 0) {
498             ret = -EIO;
499             goto cleanup;
500         }
501 
502         qemu_iovec_reset(&hd_qiov);
503         qemu_iovec_add(&hd_qiov, cipher_data, cur_bytes);
504 
505         ret = bdrv_co_pwritev(bs->file, payload_offset + offset + bytes_done,
506                               cur_bytes, &hd_qiov, flags);
507         if (ret < 0) {
508             goto cleanup;
509         }
510 
511         bytes -= cur_bytes;
512         bytes_done += cur_bytes;
513     }
514 
515  cleanup:
516     qemu_iovec_destroy(&hd_qiov);
517     qemu_vfree(cipher_data);
518 
519     return ret;
520 }
521 
522 static void block_crypto_refresh_limits(BlockDriverState *bs, Error **errp)
523 {
524     BlockCrypto *crypto = bs->opaque;
525     uint64_t sector_size = qcrypto_block_get_sector_size(crypto->block);
526     bs->bl.request_alignment = sector_size; /* No sub-sector I/O */
527 }
528 
529 
530 static int64_t coroutine_fn GRAPH_RDLOCK
531 block_crypto_co_getlength(BlockDriverState *bs)
532 {
533     BlockCrypto *crypto = bs->opaque;
534     int64_t len = bdrv_co_getlength(bs->file->bs);
535 
536     uint64_t offset = qcrypto_block_get_payload_offset(crypto->block);
537     assert(offset < INT64_MAX);
538 
539     if (offset > len) {
540         return -EIO;
541     }
542 
543     len -= offset;
544 
545     return len;
546 }
547 
548 
549 static BlockMeasureInfo *block_crypto_measure(QemuOpts *opts,
550                                               BlockDriverState *in_bs,
551                                               Error **errp)
552 {
553     g_autoptr(QCryptoBlockCreateOptions) create_opts = NULL;
554     Error *local_err = NULL;
555     BlockMeasureInfo *info;
556     uint64_t size;
557     size_t luks_payload_size;
558     QDict *cryptoopts;
559 
560     /*
561      * Preallocation mode doesn't affect size requirements but we must consume
562      * the option.
563      */
564     g_free(qemu_opt_get_del(opts, BLOCK_OPT_PREALLOC));
565 
566     size = qemu_opt_get_size_del(opts, BLOCK_OPT_SIZE, 0);
567 
568     if (in_bs) {
569         int64_t ssize = bdrv_getlength(in_bs);
570 
571         if (ssize < 0) {
572             error_setg_errno(&local_err, -ssize,
573                              "Unable to get image virtual_size");
574             goto err;
575         }
576 
577         size = ssize;
578     }
579 
580     cryptoopts = qemu_opts_to_qdict_filtered(opts, NULL,
581             &block_crypto_create_opts_luks, true);
582     qdict_put_str(cryptoopts, "format", "luks");
583     create_opts = block_crypto_create_opts_init(cryptoopts, &local_err);
584     qobject_unref(cryptoopts);
585     if (!create_opts) {
586         goto err;
587     }
588 
589     if (!qcrypto_block_calculate_payload_offset(create_opts, NULL,
590                                                 &luks_payload_size,
591                                                 &local_err)) {
592         goto err;
593     }
594 
595     /*
596      * Unallocated blocks are still encrypted so allocation status makes no
597      * difference to the file size.
598      */
599     info = g_new0(BlockMeasureInfo, 1);
600     info->fully_allocated = luks_payload_size + size;
601     info->required = luks_payload_size + size;
602     return info;
603 
604 err:
605     error_propagate(errp, local_err);
606     return NULL;
607 }
608 
609 
610 static int block_crypto_probe_luks(const uint8_t *buf,
611                                    int buf_size,
612                                    const char *filename) {
613     return block_crypto_probe_generic(Q_CRYPTO_BLOCK_FORMAT_LUKS,
614                                       buf, buf_size, filename);
615 }
616 
617 static int block_crypto_open_luks(BlockDriverState *bs,
618                                   QDict *options,
619                                   int flags,
620                                   Error **errp)
621 {
622     return block_crypto_open_generic(Q_CRYPTO_BLOCK_FORMAT_LUKS,
623                                      &block_crypto_runtime_opts_luks,
624                                      bs, options, flags, errp);
625 }
626 
627 static int coroutine_fn GRAPH_UNLOCKED
628 block_crypto_co_create_luks(BlockdevCreateOptions *create_options, Error **errp)
629 {
630     BlockdevCreateOptionsLUKS *luks_opts;
631     BlockDriverState *bs = NULL;
632     QCryptoBlockCreateOptions create_opts;
633     PreallocMode preallocation = PREALLOC_MODE_OFF;
634     int ret;
635 
636     assert(create_options->driver == BLOCKDEV_DRIVER_LUKS);
637     luks_opts = &create_options->u.luks;
638 
639     bs = bdrv_co_open_blockdev_ref(luks_opts->file, errp);
640     if (bs == NULL) {
641         return -EIO;
642     }
643 
644     create_opts = (QCryptoBlockCreateOptions) {
645         .format = Q_CRYPTO_BLOCK_FORMAT_LUKS,
646         .u.luks = *qapi_BlockdevCreateOptionsLUKS_base(luks_opts),
647     };
648 
649     if (luks_opts->has_preallocation) {
650         preallocation = luks_opts->preallocation;
651     }
652 
653     ret = block_crypto_co_create_generic(bs, luks_opts->size, &create_opts,
654                                          preallocation, errp);
655     if (ret < 0) {
656         goto fail;
657     }
658 
659     ret = 0;
660 fail:
661     bdrv_co_unref(bs);
662     return ret;
663 }
664 
665 static int coroutine_fn GRAPH_UNLOCKED
666 block_crypto_co_create_opts_luks(BlockDriver *drv, const char *filename,
667                                  QemuOpts *opts, Error **errp)
668 {
669     QCryptoBlockCreateOptions *create_opts = NULL;
670     BlockDriverState *bs = NULL;
671     QDict *cryptoopts;
672     PreallocMode prealloc;
673     char *buf = NULL;
674     int64_t size;
675     int ret;
676     Error *local_err = NULL;
677 
678     /* Parse options */
679     size = qemu_opt_get_size_del(opts, BLOCK_OPT_SIZE, 0);
680 
681     buf = qemu_opt_get_del(opts, BLOCK_OPT_PREALLOC);
682     prealloc = qapi_enum_parse(&PreallocMode_lookup, buf,
683                                PREALLOC_MODE_OFF, &local_err);
684     g_free(buf);
685     if (local_err) {
686         error_propagate(errp, local_err);
687         return -EINVAL;
688     }
689 
690     cryptoopts = qemu_opts_to_qdict_filtered(opts, NULL,
691                                              &block_crypto_create_opts_luks,
692                                              true);
693 
694     qdict_put_str(cryptoopts, "format", "luks");
695     create_opts = block_crypto_create_opts_init(cryptoopts, errp);
696     if (!create_opts) {
697         ret = -EINVAL;
698         goto fail;
699     }
700 
701     /* Create protocol layer */
702     ret = bdrv_co_create_file(filename, opts, errp);
703     if (ret < 0) {
704         goto fail;
705     }
706 
707     bs = bdrv_co_open(filename, NULL, NULL,
708                       BDRV_O_RDWR | BDRV_O_RESIZE | BDRV_O_PROTOCOL, errp);
709     if (!bs) {
710         ret = -EINVAL;
711         goto fail;
712     }
713 
714     /* Create format layer */
715     ret = block_crypto_co_create_generic(bs, size, create_opts, prealloc, errp);
716     if (ret < 0) {
717         goto fail;
718     }
719 
720     ret = 0;
721 fail:
722     /*
723      * If an error occurred, delete 'filename'. Even if the file existed
724      * beforehand, it has been truncated and corrupted in the process.
725      */
726     if (ret) {
727         bdrv_graph_co_rdlock();
728         bdrv_co_delete_file_noerr(bs);
729         bdrv_graph_co_rdunlock();
730     }
731 
732     bdrv_co_unref(bs);
733     qapi_free_QCryptoBlockCreateOptions(create_opts);
734     qobject_unref(cryptoopts);
735     return ret;
736 }
737 
738 static int coroutine_fn GRAPH_RDLOCK
739 block_crypto_co_get_info_luks(BlockDriverState *bs, BlockDriverInfo *bdi)
740 {
741     BlockDriverInfo subbdi;
742     int ret;
743 
744     ret = bdrv_co_get_info(bs->file->bs, &subbdi);
745     if (ret != 0) {
746         return ret;
747     }
748 
749     bdi->cluster_size = subbdi.cluster_size;
750 
751     return 0;
752 }
753 
754 static ImageInfoSpecific *
755 block_crypto_get_specific_info_luks(BlockDriverState *bs, Error **errp)
756 {
757     BlockCrypto *crypto = bs->opaque;
758     ImageInfoSpecific *spec_info;
759     QCryptoBlockInfo *info;
760 
761     info = qcrypto_block_get_info(crypto->block, errp);
762     if (!info) {
763         return NULL;
764     }
765     assert(info->format == Q_CRYPTO_BLOCK_FORMAT_LUKS);
766 
767     spec_info = g_new(ImageInfoSpecific, 1);
768     spec_info->type = IMAGE_INFO_SPECIFIC_KIND_LUKS;
769     spec_info->u.luks.data = g_new(QCryptoBlockInfoLUKS, 1);
770     *spec_info->u.luks.data = info->u.luks;
771 
772     /* Blank out pointers we've just stolen to avoid double free */
773     memset(&info->u.luks, 0, sizeof(info->u.luks));
774 
775     qapi_free_QCryptoBlockInfo(info);
776 
777     return spec_info;
778 }
779 
780 static int GRAPH_RDLOCK
781 block_crypto_amend_prepare(BlockDriverState *bs, Error **errp)
782 {
783     BlockCrypto *crypto = bs->opaque;
784     int ret;
785 
786     /* apply for exclusive read/write permissions to the underlying file */
787     crypto->updating_keys = true;
788     ret = bdrv_child_refresh_perms(bs, bs->file, errp);
789     if (ret < 0) {
790         /* Well, in this case we will not be updating any keys */
791         crypto->updating_keys = false;
792     }
793     return ret;
794 }
795 
796 static void GRAPH_RDLOCK
797 block_crypto_amend_cleanup(BlockDriverState *bs)
798 {
799     BlockCrypto *crypto = bs->opaque;
800     Error *errp = NULL;
801 
802     /* release exclusive read/write permissions to the underlying file */
803     crypto->updating_keys = false;
804     bdrv_child_refresh_perms(bs, bs->file, &errp);
805 
806     if (errp) {
807         error_report_err(errp);
808     }
809 }
810 
811 static int
812 block_crypto_amend_options_generic_luks(BlockDriverState *bs,
813                                         QCryptoBlockAmendOptions *amend_options,
814                                         bool force,
815                                         Error **errp)
816 {
817     BlockCrypto *crypto = bs->opaque;
818 
819     assert(crypto);
820     assert(crypto->block);
821 
822     return qcrypto_block_amend_options(crypto->block,
823                                        block_crypto_read_func,
824                                        block_crypto_write_func,
825                                        bs,
826                                        amend_options,
827                                        force,
828                                        errp);
829 }
830 
831 static int
832 block_crypto_amend_options_luks(BlockDriverState *bs,
833                                 QemuOpts *opts,
834                                 BlockDriverAmendStatusCB *status_cb,
835                                 void *cb_opaque,
836                                 bool force,
837                                 Error **errp)
838 {
839     BlockCrypto *crypto = bs->opaque;
840     QDict *cryptoopts = NULL;
841     QCryptoBlockAmendOptions *amend_options = NULL;
842     int ret = -EINVAL;
843 
844     assume_graph_lock(); /* FIXME */
845 
846     assert(crypto);
847     assert(crypto->block);
848 
849     cryptoopts = qemu_opts_to_qdict(opts, NULL);
850     qdict_put_str(cryptoopts, "format", "luks");
851     amend_options = block_crypto_amend_opts_init(cryptoopts, errp);
852     qobject_unref(cryptoopts);
853     if (!amend_options) {
854         goto cleanup;
855     }
856 
857     ret = block_crypto_amend_prepare(bs, errp);
858     if (ret) {
859         goto perm_cleanup;
860     }
861     ret = block_crypto_amend_options_generic_luks(bs, amend_options,
862                                                   force, errp);
863 
864 perm_cleanup:
865     block_crypto_amend_cleanup(bs);
866 cleanup:
867     qapi_free_QCryptoBlockAmendOptions(amend_options);
868     return ret;
869 }
870 
871 static int
872 coroutine_fn block_crypto_co_amend_luks(BlockDriverState *bs,
873                                         BlockdevAmendOptions *opts,
874                                         bool force,
875                                         Error **errp)
876 {
877     QCryptoBlockAmendOptions amend_opts;
878 
879     amend_opts = (QCryptoBlockAmendOptions) {
880         .format = Q_CRYPTO_BLOCK_FORMAT_LUKS,
881         .u.luks = *qapi_BlockdevAmendOptionsLUKS_base(&opts->u.luks),
882     };
883     return block_crypto_amend_options_generic_luks(bs, &amend_opts,
884                                                    force, errp);
885 }
886 
887 static void
888 block_crypto_child_perms(BlockDriverState *bs, BdrvChild *c,
889                          const BdrvChildRole role,
890                          BlockReopenQueue *reopen_queue,
891                          uint64_t perm, uint64_t shared,
892                          uint64_t *nperm, uint64_t *nshared)
893 {
894 
895     BlockCrypto *crypto = bs->opaque;
896 
897     bdrv_default_perms(bs, c, role, reopen_queue, perm, shared, nperm, nshared);
898 
899     /*
900      * For backward compatibility, manually share the write
901      * and resize permission
902      */
903     *nshared |= shared & (BLK_PERM_WRITE | BLK_PERM_RESIZE);
904     /*
905      * Since we are not fully a format driver, don't always request
906      * the read/resize permission but only when explicitly
907      * requested
908      */
909     *nperm &= ~(BLK_PERM_WRITE | BLK_PERM_RESIZE);
910     *nperm |= perm & (BLK_PERM_WRITE | BLK_PERM_RESIZE);
911 
912     /*
913      * This driver doesn't modify LUKS metadata except
914      * when updating the encryption slots.
915      * Thus unlike a proper format driver we don't ask for
916      * shared write/read permission. However we need it
917      * when we are updating the keys, to ensure that only we
918      * have access to the device.
919      *
920      * Encryption update will set the crypto->updating_keys
921      * during that period and refresh permissions
922      *
923      */
924     if (crypto->updating_keys) {
925         /* need exclusive write access for header update */
926         *nperm |= BLK_PERM_WRITE;
927         /* unshare read and write permission */
928         *nshared &= ~(BLK_PERM_CONSISTENT_READ | BLK_PERM_WRITE);
929     }
930 }
931 
932 
933 static const char *const block_crypto_strong_runtime_opts[] = {
934     BLOCK_CRYPTO_OPT_LUKS_KEY_SECRET,
935 
936     NULL
937 };
938 
939 static BlockDriver bdrv_crypto_luks = {
940     .format_name        = "luks",
941     .instance_size      = sizeof(BlockCrypto),
942     .bdrv_probe         = block_crypto_probe_luks,
943     .bdrv_open          = block_crypto_open_luks,
944     .bdrv_close         = block_crypto_close,
945     .bdrv_child_perm    = block_crypto_child_perms,
946     .bdrv_co_create     = block_crypto_co_create_luks,
947     .bdrv_co_create_opts = block_crypto_co_create_opts_luks,
948     .bdrv_co_truncate   = block_crypto_co_truncate,
949     .create_opts        = &block_crypto_create_opts_luks,
950     .amend_opts         = &block_crypto_amend_opts_luks,
951 
952     .bdrv_reopen_prepare = block_crypto_reopen_prepare,
953     .bdrv_refresh_limits = block_crypto_refresh_limits,
954     .bdrv_co_preadv     = block_crypto_co_preadv,
955     .bdrv_co_pwritev    = block_crypto_co_pwritev,
956     .bdrv_co_getlength  = block_crypto_co_getlength,
957     .bdrv_measure       = block_crypto_measure,
958     .bdrv_co_get_info   = block_crypto_co_get_info_luks,
959     .bdrv_get_specific_info = block_crypto_get_specific_info_luks,
960     .bdrv_amend_options = block_crypto_amend_options_luks,
961     .bdrv_co_amend      = block_crypto_co_amend_luks,
962     .bdrv_amend_pre_run = block_crypto_amend_prepare,
963     .bdrv_amend_clean   = block_crypto_amend_cleanup,
964 
965     .is_format          = true,
966 
967     .strong_runtime_opts = block_crypto_strong_runtime_opts,
968 };
969 
970 static void block_crypto_init(void)
971 {
972     bdrv_register(&bdrv_crypto_luks);
973 }
974 
975 block_init(block_crypto_init);
976