1937 lines
58 KiB
C
1937 lines
58 KiB
C
/*
|
|
* VAS_EBOOT -- GRand Unified Bootloader
|
|
* Copyright (C) 2003,2007,2010,2011,2019 Free Software Foundation, Inc.
|
|
*
|
|
* VAS_EBOOT is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* VAS_EBOOT is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with VAS_EBOOT. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <VasEBoot/cryptodisk.h>
|
|
#include <VasEBoot/env.h>
|
|
#include <VasEBoot/mm.h>
|
|
#include <VasEBoot/misc.h>
|
|
#include <VasEBoot/dl.h>
|
|
#include <VasEBoot/extcmd.h>
|
|
#include <VasEBoot/i18n.h>
|
|
#include <VasEBoot/fs.h>
|
|
#include <VasEBoot/file.h>
|
|
#include <VasEBoot/procfs.h>
|
|
#include <VasEBoot/partition.h>
|
|
#include <VasEBoot/key_protector.h>
|
|
#include <VasEBoot/safemath.h>
|
|
#include <VasEBoot/hwfeatures-gcry.h>
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
#include <VasEBoot/emu/hostdisk.h>
|
|
#endif
|
|
|
|
VAS_EBOOT_MOD_LICENSE ("GPLv3+");
|
|
|
|
VasEBoot_cryptodisk_dev_t VasEBoot_cryptodisk_list;
|
|
|
|
enum
|
|
{
|
|
OPTION_UUID,
|
|
OPTION_ALL,
|
|
OPTION_BOOT,
|
|
OPTION_PASSWORD,
|
|
OPTION_KEYFILE,
|
|
OPTION_KEYFILE_OFFSET,
|
|
OPTION_KEYFILE_SIZE,
|
|
OPTION_HEADER,
|
|
OPTION_PROTECTOR,
|
|
OPTION_HWACCEL
|
|
};
|
|
|
|
static const struct VasEBoot_arg_option options[] =
|
|
{
|
|
{"uuid", 'u', 0, N_("Mount by UUID."), 0, 0},
|
|
/* TRANSLATORS: It's still restricted to cryptodisks only. */
|
|
{"all", 'a', 0, N_("Mount all."), 0, 0},
|
|
{"boot", 'b', 0, N_("Mount all volumes with `boot' flag set."), 0, 0},
|
|
{"password", 'p', 0, N_("Password to open volumes."), 0, ARG_TYPE_STRING},
|
|
{"key-file", 'k', 0, N_("Key file"), 0, ARG_TYPE_STRING},
|
|
{"keyfile-offset", 'O', 0, N_("Key file offset (bytes)"), 0, ARG_TYPE_INT},
|
|
{"keyfile-size", 'S', 0, N_("Key file data size (bytes)"), 0, ARG_TYPE_INT},
|
|
{"header", 'H', 0, N_("Read header from file"), 0, ARG_TYPE_STRING},
|
|
{"protector", 'P', VAS_EBOOT_ARG_OPTION_REPEATABLE,
|
|
N_("Unlock volume(s) using key protector(s)."), 0, ARG_TYPE_STRING},
|
|
{"hw-accel", 'A', 0, N_("Enable hardware acceleration."), 0, 0},
|
|
{0, 0, 0, 0, 0, 0}
|
|
};
|
|
|
|
struct cryptodisk_read_hook_ctx
|
|
{
|
|
VasEBoot_file_t hdr_file;
|
|
VasEBoot_disk_addr_t part_start;
|
|
};
|
|
typedef struct cryptodisk_read_hook_ctx *cryptodisk_read_hook_ctx_t;
|
|
|
|
/* Our irreducible polynom is x^128+x^7+x^2+x+1. Lowest byte of it is: */
|
|
#define GF_POLYNOM 0x87
|
|
static inline int GF_PER_SECTOR (const struct VasEBoot_cryptodisk *dev)
|
|
{
|
|
return 1U << (dev->log_sector_size - VAS_EBOOT_CRYPTODISK_GF_LOG_BYTES);
|
|
}
|
|
|
|
static VasEBoot_cryptodisk_t cryptodisk_list = NULL;
|
|
static VasEBoot_uint8_t last_cryptodisk_id = 0;
|
|
|
|
static void
|
|
gf_mul_x (VasEBoot_uint8_t *g)
|
|
{
|
|
int over = 0, over2 = 0;
|
|
unsigned j;
|
|
|
|
for (j = 0; j < VAS_EBOOT_CRYPTODISK_GF_BYTES; j++)
|
|
{
|
|
over2 = !!(g[j] & 0x80);
|
|
g[j] <<= 1;
|
|
g[j] |= over;
|
|
over = over2;
|
|
}
|
|
if (over)
|
|
g[0] ^= GF_POLYNOM;
|
|
}
|
|
|
|
|
|
static void
|
|
gf_mul_x_be (VasEBoot_uint8_t *g)
|
|
{
|
|
int over = 0, over2 = 0;
|
|
int j;
|
|
|
|
for (j = (int) VAS_EBOOT_CRYPTODISK_GF_BYTES - 1; j >= 0; j--)
|
|
{
|
|
over2 = !!(g[j] & 0x80);
|
|
g[j] <<= 1;
|
|
g[j] |= over;
|
|
over = over2;
|
|
}
|
|
if (over)
|
|
g[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1] ^= GF_POLYNOM;
|
|
}
|
|
|
|
static void
|
|
gf_mul_be (VasEBoot_uint8_t *o, const VasEBoot_uint8_t *a, const VasEBoot_uint8_t *b)
|
|
{
|
|
unsigned i;
|
|
VasEBoot_uint8_t t[VAS_EBOOT_CRYPTODISK_GF_BYTES];
|
|
VasEBoot_memset (o, 0, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
VasEBoot_memcpy (t, b, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
for (i = 0; i < VAS_EBOOT_CRYPTODISK_GF_SIZE; i++)
|
|
{
|
|
if (((a[VAS_EBOOT_CRYPTODISK_GF_BYTES - i / VAS_EBOOT_CHAR_BIT - 1] >> (i % VAS_EBOOT_CHAR_BIT))) & 1)
|
|
VasEBoot_crypto_xor (o, o, t, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
gf_mul_x_be (t);
|
|
}
|
|
}
|
|
|
|
static gcry_err_code_t
|
|
VasEBoot_crypto_pcbc_decrypt (VasEBoot_crypto_cipher_handle_t cipher,
|
|
void *out, void *in, VasEBoot_size_t size,
|
|
void *iv)
|
|
{
|
|
VasEBoot_uint8_t *inptr, *outptr, *end;
|
|
VasEBoot_uint8_t ivt[VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE];
|
|
VasEBoot_size_t blocksize;
|
|
if (!cipher->cipher->decrypt)
|
|
return GPG_ERR_NOT_SUPPORTED;
|
|
blocksize = cipher->cipher->blocksize;
|
|
if (blocksize == 0 || (((blocksize - 1) & blocksize) != 0)
|
|
|| ((size & (blocksize - 1)) != 0))
|
|
return GPG_ERR_INV_ARG;
|
|
if (blocksize > VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE)
|
|
return GPG_ERR_INV_ARG;
|
|
end = (VasEBoot_uint8_t *) in + size;
|
|
for (inptr = in, outptr = out; inptr < end;
|
|
inptr += blocksize, outptr += blocksize)
|
|
{
|
|
VasEBoot_memcpy (ivt, inptr, blocksize);
|
|
cipher->cipher->decrypt (cipher->ctx, outptr, inptr);
|
|
VasEBoot_crypto_xor (outptr, outptr, iv, blocksize);
|
|
VasEBoot_crypto_xor (iv, ivt, outptr, blocksize);
|
|
}
|
|
return GPG_ERR_NO_ERROR;
|
|
}
|
|
|
|
static gcry_err_code_t
|
|
VasEBoot_crypto_pcbc_encrypt (VasEBoot_crypto_cipher_handle_t cipher,
|
|
void *out, void *in, VasEBoot_size_t size,
|
|
void *iv)
|
|
{
|
|
VasEBoot_uint8_t *inptr, *outptr, *end;
|
|
VasEBoot_uint8_t ivt[VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE];
|
|
VasEBoot_size_t blocksize;
|
|
if (!cipher->cipher->encrypt)
|
|
return GPG_ERR_NOT_SUPPORTED;
|
|
blocksize = cipher->cipher->blocksize;
|
|
if (blocksize > VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE)
|
|
return GPG_ERR_INV_ARG;
|
|
if (blocksize == 0 || (((blocksize - 1) & blocksize) != 0)
|
|
|| ((size & (blocksize - 1)) != 0))
|
|
return GPG_ERR_INV_ARG;
|
|
end = (VasEBoot_uint8_t *) in + size;
|
|
for (inptr = in, outptr = out; inptr < end;
|
|
inptr += blocksize, outptr += blocksize)
|
|
{
|
|
VasEBoot_memcpy (ivt, inptr, blocksize);
|
|
VasEBoot_crypto_xor (outptr, outptr, iv, blocksize);
|
|
cipher->cipher->encrypt (cipher->ctx, outptr, inptr);
|
|
VasEBoot_crypto_xor (iv, ivt, outptr, blocksize);
|
|
}
|
|
return GPG_ERR_NO_ERROR;
|
|
}
|
|
|
|
struct lrw_sector
|
|
{
|
|
VasEBoot_uint8_t low[VAS_EBOOT_CRYPTODISK_GF_BYTES];
|
|
VasEBoot_uint8_t high[VAS_EBOOT_CRYPTODISK_GF_BYTES];
|
|
VasEBoot_uint8_t low_byte, low_byte_c;
|
|
};
|
|
|
|
static void
|
|
generate_lrw_sector (struct lrw_sector *sec,
|
|
const struct VasEBoot_cryptodisk *dev,
|
|
const VasEBoot_uint8_t *iv)
|
|
{
|
|
VasEBoot_uint8_t idx[VAS_EBOOT_CRYPTODISK_GF_BYTES];
|
|
VasEBoot_uint16_t c;
|
|
int j;
|
|
VasEBoot_memcpy (idx, iv, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
sec->low_byte = (idx[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1]
|
|
& (GF_PER_SECTOR (dev) - 1));
|
|
sec->low_byte_c = (((GF_PER_SECTOR (dev) - 1) & ~sec->low_byte) + 1);
|
|
idx[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1] &= ~(GF_PER_SECTOR (dev) - 1);
|
|
gf_mul_be (sec->low, dev->lrw_key, idx);
|
|
if (!sec->low_byte)
|
|
return;
|
|
|
|
c = idx[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1] + GF_PER_SECTOR (dev);
|
|
if (c & 0x100)
|
|
{
|
|
for (j = VAS_EBOOT_CRYPTODISK_GF_BYTES - 2; j >= 0; j--)
|
|
{
|
|
idx[j]++;
|
|
if (idx[j] != 0)
|
|
break;
|
|
}
|
|
}
|
|
idx[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1] = c;
|
|
gf_mul_be (sec->high, dev->lrw_key, idx);
|
|
}
|
|
|
|
static void __attribute__ ((unused))
|
|
lrw_xor (const struct lrw_sector *sec,
|
|
const struct VasEBoot_cryptodisk *dev,
|
|
VasEBoot_uint8_t *b)
|
|
{
|
|
unsigned i;
|
|
|
|
for (i = 0; i < sec->low_byte_c * VAS_EBOOT_CRYPTODISK_GF_BYTES;
|
|
i += VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
VasEBoot_crypto_xor (b + i, b + i, sec->low, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
VasEBoot_crypto_xor (b, b, dev->lrw_precalc + VAS_EBOOT_CRYPTODISK_GF_BYTES * sec->low_byte,
|
|
sec->low_byte_c * VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
if (!sec->low_byte)
|
|
return;
|
|
|
|
for (i = sec->low_byte_c * VAS_EBOOT_CRYPTODISK_GF_BYTES;
|
|
i < (1U << dev->log_sector_size); i += VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
VasEBoot_crypto_xor (b + i, b + i, sec->high, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
VasEBoot_crypto_xor (b + sec->low_byte_c * VAS_EBOOT_CRYPTODISK_GF_BYTES,
|
|
b + sec->low_byte_c * VAS_EBOOT_CRYPTODISK_GF_BYTES,
|
|
dev->lrw_precalc, sec->low_byte * VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
}
|
|
|
|
static gcry_err_code_t
|
|
VasEBoot_cryptodisk_endecrypt (struct VasEBoot_cryptodisk *dev,
|
|
VasEBoot_uint8_t * data, VasEBoot_size_t len,
|
|
VasEBoot_disk_addr_t sector, VasEBoot_size_t log_sector_size,
|
|
int do_encrypt)
|
|
{
|
|
VasEBoot_size_t i;
|
|
gcry_err_code_t err;
|
|
|
|
if (dev->cipher->cipher->blocksize > VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE)
|
|
return GPG_ERR_INV_ARG;
|
|
|
|
/* The only mode without IV. */
|
|
if (dev->mode == VAS_EBOOT_CRYPTODISK_MODE_ECB && !dev->rekey)
|
|
return (do_encrypt ? VasEBoot_crypto_ecb_encrypt (dev->cipher, data, data, len)
|
|
: VasEBoot_crypto_ecb_decrypt (dev->cipher, data, data, len));
|
|
|
|
for (i = 0; i < len; i += ((VasEBoot_size_t) 1 << log_sector_size))
|
|
{
|
|
VasEBoot_size_t sz = ((dev->cipher->cipher->blocksize
|
|
+ sizeof (VasEBoot_uint32_t) - 1)
|
|
/ sizeof (VasEBoot_uint32_t));
|
|
VasEBoot_uint32_t iv[(VAS_EBOOT_CRYPTO_MAX_CIPHER_BLOCKSIZE + 3) / 4];
|
|
|
|
if (dev->rekey)
|
|
{
|
|
VasEBoot_uint64_t zone = sector >> dev->rekey_shift;
|
|
if (zone != dev->last_rekey)
|
|
{
|
|
err = dev->rekey (dev, zone);
|
|
if (err)
|
|
return err;
|
|
dev->last_rekey = zone;
|
|
}
|
|
}
|
|
|
|
VasEBoot_memset (iv, 0, sizeof (iv));
|
|
switch (dev->mode_iv)
|
|
{
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_NULL:
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BYTECOUNT64_HASH:
|
|
{
|
|
VasEBoot_uint64_t tmp;
|
|
void *ctx;
|
|
|
|
ctx = VasEBoot_zalloc (dev->iv_hash->contextsize);
|
|
if (!ctx)
|
|
return GPG_ERR_OUT_OF_MEMORY;
|
|
|
|
tmp = VasEBoot_cpu_to_le64 (sector << log_sector_size);
|
|
dev->iv_hash->init (ctx, 0);
|
|
dev->iv_hash->write (ctx, dev->iv_prefix, dev->iv_prefix_len);
|
|
dev->iv_hash->write (ctx, &tmp, sizeof (tmp));
|
|
dev->iv_hash->final (ctx);
|
|
|
|
VasEBoot_memcpy (iv, dev->iv_hash->read (ctx), sizeof (iv));
|
|
VasEBoot_free (ctx);
|
|
}
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN64:
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN:
|
|
/*
|
|
* The IV is a 32 or 64 bit value of the dm-crypt native sector
|
|
* number. If using 32 bit IV mode, zero out the most significant
|
|
* 32 bits.
|
|
*/
|
|
{
|
|
VasEBoot_uint64_t iv64;
|
|
|
|
iv64 = VasEBoot_cpu_to_le64 (sector << (log_sector_size
|
|
- VAS_EBOOT_CRYPTODISK_IV_LOG_SIZE));
|
|
VasEBoot_set_unaligned64 (iv, iv64);
|
|
if (dev->mode_iv == VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN)
|
|
iv[1] = 0;
|
|
}
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BYTECOUNT64:
|
|
/* The IV is the 64 bit byte offset of the sector. */
|
|
iv[1] = VasEBoot_cpu_to_le32 (sector >> (VAS_EBOOT_TYPE_BITS (iv[1])
|
|
- log_sector_size));
|
|
iv[0] = VasEBoot_cpu_to_le32 ((sector << log_sector_size)
|
|
& VAS_EBOOT_TYPE_U_MAX (iv[0]));
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BENBI:
|
|
{
|
|
VasEBoot_uint64_t num = (sector << dev->benbi_log) + 1;
|
|
iv[sz - 2] = VasEBoot_cpu_to_be32 (num >> VAS_EBOOT_TYPE_BITS (iv[0]));
|
|
iv[sz - 1] = VasEBoot_cpu_to_be32 (num & VAS_EBOOT_TYPE_U_MAX (iv[0]));
|
|
}
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_ESSIV:
|
|
iv[0] = VasEBoot_cpu_to_le32 (sector & VAS_EBOOT_TYPE_U_MAX (iv[0]));
|
|
err = VasEBoot_crypto_ecb_encrypt (dev->essiv_cipher, iv, iv,
|
|
dev->cipher->cipher->blocksize);
|
|
if (err)
|
|
return err;
|
|
}
|
|
|
|
switch (dev->mode)
|
|
{
|
|
case VAS_EBOOT_CRYPTODISK_MODE_CBC:
|
|
if (do_encrypt)
|
|
err = VasEBoot_crypto_cbc_encrypt (dev->cipher, data + i, data + i,
|
|
((VasEBoot_size_t) 1 << log_sector_size), iv);
|
|
else
|
|
err = VasEBoot_crypto_cbc_decrypt (dev->cipher, data + i, data + i,
|
|
((VasEBoot_size_t) 1 << log_sector_size), iv);
|
|
if (err)
|
|
return err;
|
|
break;
|
|
|
|
case VAS_EBOOT_CRYPTODISK_MODE_PCBC:
|
|
if (do_encrypt)
|
|
err = VasEBoot_crypto_pcbc_encrypt (dev->cipher, data + i, data + i,
|
|
((VasEBoot_size_t) 1 << log_sector_size), iv);
|
|
else
|
|
err = VasEBoot_crypto_pcbc_decrypt (dev->cipher, data + i, data + i,
|
|
((VasEBoot_size_t) 1 << log_sector_size), iv);
|
|
if (err)
|
|
return err;
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_XTS:
|
|
{
|
|
unsigned j;
|
|
err = VasEBoot_crypto_ecb_encrypt (dev->secondary_cipher, iv, iv,
|
|
dev->cipher->cipher->blocksize);
|
|
if (err)
|
|
return err;
|
|
|
|
for (j = 0; j < (1U << log_sector_size);
|
|
j += dev->cipher->cipher->blocksize)
|
|
{
|
|
VasEBoot_crypto_xor (data + i + j, data + i + j, iv,
|
|
dev->cipher->cipher->blocksize);
|
|
if (do_encrypt)
|
|
err = VasEBoot_crypto_ecb_encrypt (dev->cipher, data + i + j,
|
|
data + i + j,
|
|
dev->cipher->cipher->blocksize);
|
|
else
|
|
err = VasEBoot_crypto_ecb_decrypt (dev->cipher, data + i + j,
|
|
data + i + j,
|
|
dev->cipher->cipher->blocksize);
|
|
if (err)
|
|
return err;
|
|
VasEBoot_crypto_xor (data + i + j, data + i + j, iv,
|
|
dev->cipher->cipher->blocksize);
|
|
gf_mul_x ((VasEBoot_uint8_t *) iv);
|
|
}
|
|
}
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_LRW:
|
|
{
|
|
struct lrw_sector sec;
|
|
|
|
generate_lrw_sector (&sec, dev, (VasEBoot_uint8_t *) iv);
|
|
lrw_xor (&sec, dev, data + i);
|
|
|
|
if (do_encrypt)
|
|
err = VasEBoot_crypto_ecb_encrypt (dev->cipher, data + i,
|
|
data + i,
|
|
(1U << log_sector_size));
|
|
else
|
|
err = VasEBoot_crypto_ecb_decrypt (dev->cipher, data + i,
|
|
data + i,
|
|
(1U << log_sector_size));
|
|
if (err)
|
|
return err;
|
|
lrw_xor (&sec, dev, data + i);
|
|
}
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_ECB:
|
|
if (do_encrypt)
|
|
err = VasEBoot_crypto_ecb_encrypt (dev->cipher, data + i, data + i,
|
|
(1U << log_sector_size));
|
|
else
|
|
err = VasEBoot_crypto_ecb_decrypt (dev->cipher, data + i, data + i,
|
|
(1U << log_sector_size));
|
|
if (err)
|
|
return err;
|
|
break;
|
|
default:
|
|
return GPG_ERR_NOT_IMPLEMENTED;
|
|
}
|
|
sector++;
|
|
}
|
|
return GPG_ERR_NO_ERROR;
|
|
}
|
|
|
|
gcry_err_code_t
|
|
VasEBoot_cryptodisk_decrypt (struct VasEBoot_cryptodisk *dev,
|
|
VasEBoot_uint8_t * data, VasEBoot_size_t len,
|
|
VasEBoot_disk_addr_t sector, VasEBoot_size_t log_sector_size)
|
|
{
|
|
return VasEBoot_cryptodisk_endecrypt (dev, data, len, sector, log_sector_size, 0);
|
|
}
|
|
|
|
VasEBoot_err_t
|
|
VasEBoot_cryptodisk_setcipher (VasEBoot_cryptodisk_t crypt, const char *ciphername, const char *ciphermode)
|
|
{
|
|
const char *cipheriv = NULL;
|
|
VasEBoot_crypto_cipher_handle_t cipher = NULL, secondary_cipher = NULL;
|
|
VasEBoot_crypto_cipher_handle_t essiv_cipher = NULL;
|
|
const gcry_md_spec_t *essiv_hash = NULL;
|
|
const struct gcry_cipher_spec *ciph;
|
|
VasEBoot_cryptodisk_mode_t mode;
|
|
VasEBoot_cryptodisk_mode_iv_t mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN64;
|
|
int benbi_log = 0;
|
|
VasEBoot_err_t ret = VAS_EBOOT_ERR_NONE;
|
|
|
|
ciph = VasEBoot_crypto_lookup_cipher_by_name (ciphername);
|
|
if (!ciph)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_FILE_NOT_FOUND, "Cipher %s isn't available",
|
|
ciphername);
|
|
goto err;
|
|
}
|
|
|
|
/* Configure the cipher used for the bulk data. */
|
|
cipher = VasEBoot_crypto_cipher_open (ciph);
|
|
if (!cipher)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_FILE_NOT_FOUND, "Cipher %s could not be initialized",
|
|
ciphername);
|
|
goto err;
|
|
}
|
|
|
|
/* Configure the cipher mode. */
|
|
if (VasEBoot_strcmp (ciphermode, "ecb") == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_ECB;
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN;
|
|
cipheriv = NULL;
|
|
}
|
|
else if (VasEBoot_strcmp (ciphermode, "plain") == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_CBC;
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN;
|
|
cipheriv = NULL;
|
|
}
|
|
else if (VasEBoot_memcmp (ciphermode, "cbc-", sizeof ("cbc-") - 1) == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_CBC;
|
|
cipheriv = ciphermode + sizeof ("cbc-") - 1;
|
|
}
|
|
else if (VasEBoot_memcmp (ciphermode, "pcbc-", sizeof ("pcbc-") - 1) == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_PCBC;
|
|
cipheriv = ciphermode + sizeof ("pcbc-") - 1;
|
|
}
|
|
else if (VasEBoot_memcmp (ciphermode, "xts-", sizeof ("xts-") - 1) == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_XTS;
|
|
cipheriv = ciphermode + sizeof ("xts-") - 1;
|
|
secondary_cipher = VasEBoot_crypto_cipher_open (ciph);
|
|
if (!secondary_cipher)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_FILE_NOT_FOUND,
|
|
"Secondary cipher %s isn't available", ciphername);
|
|
goto err;
|
|
}
|
|
if (cipher->cipher->blocksize != VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"Unsupported XTS block size: %" PRIuVAS_EBOOT_SIZE,
|
|
cipher->cipher->blocksize);
|
|
goto err;
|
|
}
|
|
if (secondary_cipher->cipher->blocksize != VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"Unsupported XTS block size: %" PRIuVAS_EBOOT_SIZE,
|
|
secondary_cipher->cipher->blocksize);
|
|
goto err;
|
|
}
|
|
}
|
|
else if (VasEBoot_memcmp (ciphermode, "lrw-", sizeof ("lrw-") - 1) == 0)
|
|
{
|
|
mode = VAS_EBOOT_CRYPTODISK_MODE_LRW;
|
|
cipheriv = ciphermode + sizeof ("lrw-") - 1;
|
|
if (cipher->cipher->blocksize != VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"Unsupported LRW block size: %" PRIuVAS_EBOOT_SIZE,
|
|
cipher->cipher->blocksize);
|
|
goto err;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "Unknown cipher mode: %s",
|
|
ciphermode);
|
|
goto err;
|
|
}
|
|
|
|
if (cipheriv == NULL)
|
|
;
|
|
else if (VasEBoot_memcmp (cipheriv, "plain64", sizeof ("plain64") - 1) == 0)
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN64;
|
|
else if (VasEBoot_memcmp (cipheriv, "plain", sizeof ("plain") - 1) == 0)
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN;
|
|
else if (VasEBoot_memcmp (cipheriv, "benbi", sizeof ("benbi") - 1) == 0)
|
|
{
|
|
if (cipher->cipher->blocksize & (cipher->cipher->blocksize - 1)
|
|
|| cipher->cipher->blocksize == 0)
|
|
VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"Unsupported benbi blocksize: %" PRIuVAS_EBOOT_SIZE,
|
|
cipher->cipher->blocksize);
|
|
/* FIXME should we return an error here? */
|
|
for (benbi_log = 0;
|
|
(cipher->cipher->blocksize << benbi_log) < VAS_EBOOT_DISK_SECTOR_SIZE;
|
|
benbi_log++);
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_BENBI;
|
|
}
|
|
else if (VasEBoot_memcmp (cipheriv, "null", sizeof ("null") - 1) == 0)
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_NULL;
|
|
else if (VasEBoot_memcmp (cipheriv, "essiv:", sizeof ("essiv:") - 1) == 0)
|
|
{
|
|
const char *hash_str = cipheriv + 6;
|
|
|
|
mode_iv = VAS_EBOOT_CRYPTODISK_MODE_IV_ESSIV;
|
|
|
|
/* Configure the hash and cipher used for ESSIV. */
|
|
essiv_hash = VasEBoot_crypto_lookup_md_by_name (hash_str);
|
|
if (!essiv_hash)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_FILE_NOT_FOUND,
|
|
"Couldn't load %s hash", hash_str);
|
|
goto err;
|
|
}
|
|
essiv_cipher = VasEBoot_crypto_cipher_open (ciph);
|
|
if (!essiv_cipher)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_FILE_NOT_FOUND,
|
|
"Couldn't load %s cipher", ciphername);
|
|
goto err;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "Unknown IV mode: %s",
|
|
cipheriv);
|
|
goto err;
|
|
}
|
|
|
|
crypt->cipher = cipher;
|
|
crypt->benbi_log = benbi_log;
|
|
crypt->mode = mode;
|
|
crypt->mode_iv = mode_iv;
|
|
crypt->secondary_cipher = secondary_cipher;
|
|
crypt->essiv_cipher = essiv_cipher;
|
|
crypt->essiv_hash = essiv_hash;
|
|
|
|
err:
|
|
if (ret)
|
|
{
|
|
VasEBoot_crypto_cipher_close (cipher);
|
|
VasEBoot_crypto_cipher_close (secondary_cipher);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
gcry_err_code_t
|
|
VasEBoot_cryptodisk_setkey (VasEBoot_cryptodisk_t dev, VasEBoot_uint8_t *key, VasEBoot_size_t keysize)
|
|
{
|
|
gcry_err_code_t err;
|
|
int real_keysize;
|
|
|
|
real_keysize = keysize;
|
|
if (dev->mode == VAS_EBOOT_CRYPTODISK_MODE_XTS)
|
|
real_keysize /= 2;
|
|
if (dev->mode == VAS_EBOOT_CRYPTODISK_MODE_LRW)
|
|
real_keysize -= dev->cipher->cipher->blocksize;
|
|
|
|
/* Set the PBKDF2 output as the cipher key. */
|
|
err = VasEBoot_crypto_cipher_set_key (dev->cipher, key, real_keysize);
|
|
if (err)
|
|
return err;
|
|
VasEBoot_memcpy (dev->key, key, keysize);
|
|
dev->keysize = keysize;
|
|
|
|
/* Configure ESSIV if necessary. */
|
|
if (dev->mode_iv == VAS_EBOOT_CRYPTODISK_MODE_IV_ESSIV)
|
|
{
|
|
VasEBoot_size_t essiv_keysize = dev->essiv_hash->mdlen;
|
|
VasEBoot_uint8_t hashed_key[VAS_EBOOT_CRYPTO_MAX_MDLEN];
|
|
if (essiv_keysize > VAS_EBOOT_CRYPTO_MAX_MDLEN)
|
|
return GPG_ERR_INV_ARG;
|
|
|
|
VasEBoot_crypto_hash (dev->essiv_hash, hashed_key, key, keysize);
|
|
err = VasEBoot_crypto_cipher_set_key (dev->essiv_cipher,
|
|
hashed_key, essiv_keysize);
|
|
if (err)
|
|
return err;
|
|
}
|
|
if (dev->mode == VAS_EBOOT_CRYPTODISK_MODE_XTS)
|
|
{
|
|
err = VasEBoot_crypto_cipher_set_key (dev->secondary_cipher,
|
|
key + real_keysize,
|
|
keysize / 2);
|
|
if (err)
|
|
return err;
|
|
}
|
|
|
|
if (dev->mode == VAS_EBOOT_CRYPTODISK_MODE_LRW)
|
|
{
|
|
unsigned i;
|
|
VasEBoot_uint8_t idx[VAS_EBOOT_CRYPTODISK_GF_BYTES];
|
|
|
|
VasEBoot_free (dev->lrw_precalc);
|
|
VasEBoot_memcpy (dev->lrw_key, key + real_keysize,
|
|
dev->cipher->cipher->blocksize);
|
|
dev->lrw_precalc = VasEBoot_malloc ((1U << dev->log_sector_size));
|
|
if (!dev->lrw_precalc)
|
|
return GPG_ERR_OUT_OF_MEMORY;
|
|
VasEBoot_memset (idx, 0, VAS_EBOOT_CRYPTODISK_GF_BYTES);
|
|
for (i = 0; i < (1U << dev->log_sector_size);
|
|
i += VAS_EBOOT_CRYPTODISK_GF_BYTES)
|
|
{
|
|
idx[VAS_EBOOT_CRYPTODISK_GF_BYTES - 1] = i / VAS_EBOOT_CRYPTODISK_GF_BYTES;
|
|
gf_mul_be (dev->lrw_precalc + i, idx, dev->lrw_key);
|
|
}
|
|
}
|
|
return GPG_ERR_NO_ERROR;
|
|
}
|
|
|
|
static int
|
|
VasEBoot_cryptodisk_iterate (VasEBoot_disk_dev_iterate_hook_t hook, void *hook_data,
|
|
VasEBoot_disk_pull_t pull)
|
|
{
|
|
VasEBoot_cryptodisk_t i;
|
|
|
|
if (pull != VAS_EBOOT_DISK_PULL_NONE)
|
|
return 0;
|
|
|
|
for (i = cryptodisk_list; i != NULL; i = i->next)
|
|
{
|
|
char buf[30];
|
|
VasEBoot_snprintf (buf, sizeof (buf), "crypto%lu", i->id);
|
|
if (hook (buf, hook_data))
|
|
return 1;
|
|
}
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
VasEBoot_cryptodisk_open (const char *name, VasEBoot_disk_t disk)
|
|
{
|
|
VasEBoot_cryptodisk_t dev;
|
|
|
|
if (VasEBoot_memcmp (name, "crypto", sizeof ("crypto") - 1) != 0)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_UNKNOWN_DEVICE, "No such device");
|
|
|
|
if (VasEBoot_memcmp (name, "cryptouuid/", sizeof ("cryptouuid/") - 1) == 0)
|
|
{
|
|
for (dev = cryptodisk_list; dev != NULL; dev = dev->next)
|
|
if (VasEBoot_uuidcasecmp (name + sizeof ("cryptouuid/") - 1, dev->uuid, sizeof (dev->uuid)) == 0)
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
unsigned long id = VasEBoot_strtoul (name + sizeof ("crypto") - 1, 0, 0);
|
|
if (VasEBoot_errno)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_UNKNOWN_DEVICE, "No such device");
|
|
/* Search for requested device in the list of CRYPTODISK devices. */
|
|
for (dev = cryptodisk_list; dev != NULL; dev = dev->next)
|
|
if (dev->id == id)
|
|
break;
|
|
}
|
|
if (!dev)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_UNKNOWN_DEVICE, "No such device");
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
if (dev->cheat)
|
|
{
|
|
VasEBoot_uint64_t cheat_dev_size;
|
|
unsigned int cheat_log_sector_size;
|
|
|
|
if (!VAS_EBOOT_UTIL_FD_IS_VALID (dev->cheat_fd))
|
|
dev->cheat_fd = VasEBoot_util_fd_open (dev->cheat, VAS_EBOOT_UTIL_FD_O_RDONLY);
|
|
if (!VAS_EBOOT_UTIL_FD_IS_VALID (dev->cheat_fd))
|
|
return VasEBoot_error (VAS_EBOOT_ERR_IO, N_("cannot open `%s': %s"),
|
|
dev->cheat, VasEBoot_util_fd_strerror ());
|
|
|
|
/* Use the sector size and count of the cheat device. */
|
|
cheat_dev_size = VasEBoot_util_get_fd_size (dev->cheat_fd, dev->cheat, &cheat_log_sector_size);
|
|
if (cheat_dev_size == -1)
|
|
{
|
|
const char *errmsg = VasEBoot_util_fd_strerror ();
|
|
VasEBoot_util_fd_close (dev->cheat_fd);
|
|
dev->cheat_fd = VAS_EBOOT_UTIL_FD_INVALID;
|
|
return VasEBoot_error (VAS_EBOOT_ERR_IO, N_("failed to query size of device `%s': %s"),
|
|
dev->cheat, errmsg);
|
|
}
|
|
|
|
dev->log_sector_size = cheat_log_sector_size;
|
|
dev->total_sectors = cheat_dev_size >> cheat_log_sector_size;
|
|
}
|
|
#endif
|
|
|
|
if (!dev->source_disk)
|
|
{
|
|
VasEBoot_dprintf ("cryptodisk", "Opening device %s\n", name);
|
|
/* Try to open the source disk and populate the requested disk. */
|
|
dev->source_disk = VasEBoot_disk_open (dev->source);
|
|
if (!dev->source_disk)
|
|
return VasEBoot_errno;
|
|
}
|
|
|
|
disk->data = dev;
|
|
disk->log_sector_size = dev->log_sector_size;
|
|
disk->total_sectors = dev->total_sectors;
|
|
disk->max_agglomerate = VAS_EBOOT_DISK_MAX_MAX_AGGLOMERATE;
|
|
disk->id = dev->id;
|
|
dev->ref++;
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
static void
|
|
VasEBoot_cryptodisk_close (VasEBoot_disk_t disk)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
VasEBoot_dprintf ("cryptodisk", "Closing disk\n");
|
|
|
|
dev->ref--;
|
|
|
|
if (dev->ref != 0)
|
|
return;
|
|
#ifdef VAS_EBOOT_UTIL
|
|
if (dev->cheat)
|
|
{
|
|
VasEBoot_util_fd_close (dev->cheat_fd);
|
|
dev->cheat_fd = VAS_EBOOT_UTIL_FD_INVALID;
|
|
}
|
|
#endif
|
|
VasEBoot_disk_close (dev->source_disk);
|
|
dev->source_disk = NULL;
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
VasEBoot_cryptodisk_read (VasEBoot_disk_t disk, VasEBoot_disk_addr_t sector,
|
|
VasEBoot_size_t size, char *buf)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
VasEBoot_err_t err;
|
|
gcry_err_code_t gcry_err;
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
if (dev->cheat)
|
|
{
|
|
int r;
|
|
r = VasEBoot_util_fd_seek (dev->cheat_fd, sector << disk->log_sector_size);
|
|
if (r)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_DEVICE, N_("cannot seek `%s': %s"),
|
|
dev->cheat, VasEBoot_util_fd_strerror ());
|
|
if (VasEBoot_util_fd_read (dev->cheat_fd, buf, size << disk->log_sector_size)
|
|
!= (ssize_t) (size << disk->log_sector_size))
|
|
return VasEBoot_error (VAS_EBOOT_ERR_READ_ERROR, N_("cannot read `%s': %s"),
|
|
dev->cheat, VasEBoot_util_fd_strerror ());
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
#endif
|
|
|
|
VasEBoot_dprintf ("cryptodisk",
|
|
"Reading %" PRIuVAS_EBOOT_SIZE " sectors from sector 0x%"
|
|
PRIxVAS_EBOOT_UINT64_T " with offset of %" PRIuVAS_EBOOT_UINT64_T "\n",
|
|
size, sector, dev->offset_sectors);
|
|
|
|
err = VasEBoot_disk_read (dev->source_disk,
|
|
VasEBoot_disk_from_native_sector (disk, sector + dev->offset_sectors),
|
|
0, size << disk->log_sector_size, buf);
|
|
if (err)
|
|
{
|
|
VasEBoot_dprintf ("cryptodisk", "VasEBoot_disk_read failed with error %d\n", err);
|
|
return err;
|
|
}
|
|
gcry_err = VasEBoot_cryptodisk_endecrypt (dev, (VasEBoot_uint8_t *) buf,
|
|
size << disk->log_sector_size,
|
|
sector, dev->log_sector_size, 0);
|
|
return VasEBoot_crypto_gcry_error (gcry_err);
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
VasEBoot_cryptodisk_write (VasEBoot_disk_t disk, VasEBoot_disk_addr_t sector,
|
|
VasEBoot_size_t size, const char *buf)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
gcry_err_code_t gcry_err;
|
|
char *tmp;
|
|
VasEBoot_err_t err;
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
if (dev->cheat)
|
|
{
|
|
int r;
|
|
r = VasEBoot_util_fd_seek (dev->cheat_fd, sector << disk->log_sector_size);
|
|
if (r)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_DEVICE, N_("cannot seek `%s': %s"),
|
|
dev->cheat, VasEBoot_util_fd_strerror ());
|
|
if (VasEBoot_util_fd_write (dev->cheat_fd, buf, size << disk->log_sector_size)
|
|
!= (ssize_t) (size << disk->log_sector_size))
|
|
return VasEBoot_error (VAS_EBOOT_ERR_READ_ERROR, N_("cannot read `%s': %s"),
|
|
dev->cheat, VasEBoot_util_fd_strerror ());
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
#endif
|
|
|
|
tmp = VasEBoot_malloc (size << disk->log_sector_size);
|
|
if (!tmp)
|
|
return VasEBoot_errno;
|
|
VasEBoot_memcpy (tmp, buf, size << disk->log_sector_size);
|
|
|
|
VasEBoot_dprintf ("cryptodisk",
|
|
"Writing %" PRIuVAS_EBOOT_SIZE " sectors to sector 0x%"
|
|
PRIxVAS_EBOOT_UINT64_T " with offset of %" PRIuVAS_EBOOT_UINT64_T "\n",
|
|
size, sector, dev->offset_sectors);
|
|
|
|
gcry_err = VasEBoot_cryptodisk_endecrypt (dev, (VasEBoot_uint8_t *) tmp,
|
|
size << disk->log_sector_size,
|
|
sector, disk->log_sector_size, 1);
|
|
if (gcry_err)
|
|
{
|
|
VasEBoot_free (tmp);
|
|
return VasEBoot_crypto_gcry_error (gcry_err);
|
|
}
|
|
|
|
/* Since ->write was called so disk.mod is loaded but be paranoid */
|
|
sector = sector + dev->offset_sectors;
|
|
if (VasEBoot_disk_write_weak)
|
|
err = VasEBoot_disk_write_weak (dev->source_disk,
|
|
VasEBoot_disk_from_native_sector (disk, sector),
|
|
0, size << disk->log_sector_size, tmp);
|
|
else
|
|
err = VasEBoot_error (VAS_EBOOT_ERR_BUG, "disk.mod not loaded");
|
|
VasEBoot_free (tmp);
|
|
return err;
|
|
}
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
static VasEBoot_disk_memberlist_t
|
|
VasEBoot_cryptodisk_memberlist (VasEBoot_disk_t disk)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
VasEBoot_disk_memberlist_t list = NULL;
|
|
|
|
list = VasEBoot_malloc (sizeof (*list));
|
|
if (list)
|
|
{
|
|
list->disk = dev->source_disk;
|
|
list->next = NULL;
|
|
}
|
|
|
|
return list;
|
|
}
|
|
#endif
|
|
|
|
static void
|
|
cryptodisk_cleanup (void)
|
|
{
|
|
#if 0
|
|
VasEBoot_cryptodisk_t dev = cryptodisk_list;
|
|
VasEBoot_cryptodisk_t tmp;
|
|
|
|
while (dev != NULL)
|
|
{
|
|
VasEBoot_free (dev->source);
|
|
VasEBoot_free (dev->cipher);
|
|
VasEBoot_free (dev->secondary_cipher);
|
|
VasEBoot_free (dev->essiv_cipher);
|
|
tmp = dev->next;
|
|
VasEBoot_free (dev);
|
|
dev = tmp;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
VasEBoot_err_t
|
|
VasEBoot_cryptodisk_insert (VasEBoot_cryptodisk_t newdev, const char *name,
|
|
VasEBoot_disk_t source)
|
|
{
|
|
newdev->source = VasEBoot_strdup (name);
|
|
if (!newdev->source)
|
|
return VasEBoot_errno;
|
|
|
|
newdev->id = last_cryptodisk_id++;
|
|
newdev->source_id = source->id;
|
|
newdev->source_dev_id = source->dev->id;
|
|
newdev->partition_start = VasEBoot_partition_get_start (source->partition);
|
|
newdev->next = cryptodisk_list;
|
|
cryptodisk_list = newdev;
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
VasEBoot_cryptodisk_t
|
|
VasEBoot_cryptodisk_get_by_uuid (const char *uuid)
|
|
{
|
|
VasEBoot_cryptodisk_t dev;
|
|
for (dev = cryptodisk_list; dev != NULL; dev = dev->next)
|
|
if (VasEBoot_uuidcasecmp (dev->uuid, uuid, sizeof (dev->uuid)) == 0)
|
|
return dev;
|
|
return NULL;
|
|
}
|
|
|
|
VasEBoot_cryptodisk_t
|
|
VasEBoot_cryptodisk_get_by_source_disk (VasEBoot_disk_t disk)
|
|
{
|
|
VasEBoot_cryptodisk_t dev;
|
|
for (dev = cryptodisk_list; dev != NULL; dev = dev->next)
|
|
if (dev->source_id == disk->id && dev->source_dev_id == disk->dev->id)
|
|
if ((disk->partition && VasEBoot_partition_get_start (disk->partition) == dev->partition_start) ||
|
|
(!disk->partition && dev->partition_start == 0))
|
|
return dev;
|
|
return NULL;
|
|
}
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
VasEBoot_err_t
|
|
VasEBoot_cryptodisk_cheat_insert (VasEBoot_cryptodisk_t newdev, const char *name,
|
|
VasEBoot_disk_t source, const char *cheat)
|
|
{
|
|
newdev->cheat = VasEBoot_strdup (cheat);
|
|
newdev->source = VasEBoot_strdup (name);
|
|
if (!newdev->source || !newdev->cheat)
|
|
{
|
|
VasEBoot_free (newdev->source);
|
|
VasEBoot_free (newdev->cheat);
|
|
return VasEBoot_errno;
|
|
}
|
|
|
|
newdev->cheat_fd = VAS_EBOOT_UTIL_FD_INVALID;
|
|
newdev->source_id = source->id;
|
|
newdev->source_dev_id = source->dev->id;
|
|
newdev->partition_start = VasEBoot_partition_get_start (source->partition);
|
|
newdev->id = last_cryptodisk_id++;
|
|
newdev->next = cryptodisk_list;
|
|
cryptodisk_list = newdev;
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
void
|
|
VasEBoot_util_cryptodisk_get_abstraction (VasEBoot_disk_t disk,
|
|
void (*cb) (const char *val, void *data),
|
|
void *data)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
|
|
cb ("cryptodisk", data);
|
|
cb (dev->modname, data);
|
|
|
|
if (dev->cipher)
|
|
cb (dev->cipher->cipher->modname, data);
|
|
if (dev->secondary_cipher)
|
|
cb (dev->secondary_cipher->cipher->modname, data);
|
|
if (dev->essiv_cipher)
|
|
cb (dev->essiv_cipher->cipher->modname, data);
|
|
if (dev->hash)
|
|
cb (dev->hash->modname, data);
|
|
if (dev->essiv_hash)
|
|
cb (dev->essiv_hash->modname, data);
|
|
if (dev->iv_hash)
|
|
cb (dev->iv_hash->modname, data);
|
|
}
|
|
|
|
const char *
|
|
VasEBoot_util_cryptodisk_get_uuid (VasEBoot_disk_t disk)
|
|
{
|
|
VasEBoot_cryptodisk_t dev = (VasEBoot_cryptodisk_t) disk->data;
|
|
return dev->uuid;
|
|
}
|
|
|
|
#endif
|
|
|
|
static void
|
|
cryptodisk_close (VasEBoot_cryptodisk_t dev)
|
|
{
|
|
VasEBoot_crypto_cipher_close (dev->cipher);
|
|
VasEBoot_crypto_cipher_close (dev->secondary_cipher);
|
|
VasEBoot_crypto_cipher_close (dev->essiv_cipher);
|
|
VasEBoot_free (dev);
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
cryptodisk_read_hook (VasEBoot_disk_addr_t sector, unsigned offset,
|
|
unsigned length, char *buf, void *data)
|
|
{
|
|
cryptodisk_read_hook_ctx_t ctx = data;
|
|
|
|
if (ctx->hdr_file == NULL)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, N_("header file not found"));
|
|
|
|
if (VasEBoot_file_seek (ctx->hdr_file,
|
|
((sector - ctx->part_start) * VAS_EBOOT_DISK_SECTOR_SIZE) + offset)
|
|
== (VasEBoot_off_t) -1)
|
|
return VasEBoot_errno;
|
|
|
|
if (VasEBoot_file_read (ctx->hdr_file, buf, length) != (VasEBoot_ssize_t) length)
|
|
{
|
|
if (VasEBoot_errno == VAS_EBOOT_ERR_NONE)
|
|
VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE, N_("header file too small"));
|
|
return VasEBoot_errno;
|
|
}
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
static VasEBoot_cryptodisk_t
|
|
VasEBoot_cryptodisk_scan_device_real (const char *name,
|
|
VasEBoot_disk_t source,
|
|
VasEBoot_cryptomount_args_t cargs)
|
|
{
|
|
VasEBoot_err_t ret = VAS_EBOOT_ERR_NONE;
|
|
VasEBoot_cryptodisk_t dev;
|
|
VasEBoot_cryptodisk_dev_t cr;
|
|
int i;
|
|
struct cryptodisk_read_hook_ctx read_hook_data = {0};
|
|
int askpass = 0;
|
|
char *part = NULL;
|
|
|
|
dev = VasEBoot_cryptodisk_get_by_source_disk (source);
|
|
|
|
if (dev)
|
|
return dev;
|
|
|
|
if (cargs->hdr_file != NULL)
|
|
{
|
|
/*
|
|
* Set read hook to read header from a file instead of the source disk.
|
|
* Disk read hooks are executed after the data has been read from the
|
|
* disk. This is okay, because the read hook is given the read buffer
|
|
* before its sent back to the caller. In this case, the hook can then
|
|
* overwrite the data read from the disk device with data from the
|
|
* header file sent in as the read hook data. This is transparent to the
|
|
* read caller. Since the callers of this function have just opened the
|
|
* source disk, there are no current read hooks, so there's no need to
|
|
* save/restore them nor consider if they should be called or not.
|
|
*
|
|
* This hook assumes that the header is at the start of the volume, which
|
|
* is not the case for some formats (eg. GELI). It also can only be used
|
|
* with formats where the detached header file can be written to the
|
|
* first blocks of the volume and the volume could still be unlocked.
|
|
* So the header file can not be formatted differently from the on-disk
|
|
* header. If these assumpts are not met, detached header file processing
|
|
* must be specially handled in the cryptodisk backend module.
|
|
*
|
|
* This hook needs only be set once and will be called potentially many
|
|
* times by a backend. This is fine because of the assumptions mentioned
|
|
* and the read hook reads from absolute offsets and is stateless.
|
|
*/
|
|
read_hook_data.part_start = VasEBoot_partition_get_start (source->partition);
|
|
read_hook_data.hdr_file = cargs->hdr_file;
|
|
source->read_hook = cryptodisk_read_hook;
|
|
source->read_hook_data = (void *) &read_hook_data;
|
|
}
|
|
|
|
FOR_CRYPTODISK_DEVS (cr)
|
|
{
|
|
/*
|
|
* Loop through each cryptodisk backend that is registered (ie. loaded).
|
|
* If the scan returns NULL, then the backend being tested does not
|
|
* recognize the source disk, so move on to the next backend.
|
|
*/
|
|
dev = cr->scan (source, cargs);
|
|
if (VasEBoot_errno)
|
|
goto error_no_close;
|
|
if (!dev)
|
|
continue;
|
|
break;
|
|
}
|
|
|
|
if (dev == NULL)
|
|
{
|
|
VasEBoot_error (VAS_EBOOT_ERR_BAD_MODULE,
|
|
"no cryptodisk module can handle this device");
|
|
goto error_no_close;
|
|
}
|
|
|
|
if (cargs->protectors)
|
|
{
|
|
for (i = 0; cargs->protectors[i]; i++)
|
|
{
|
|
if (cargs->key_cache[i].invalid)
|
|
continue;
|
|
|
|
if (cargs->key_cache[i].key == NULL)
|
|
{
|
|
ret = VasEBoot_key_protector_recover_key (cargs->protectors[i],
|
|
&cargs->key_cache[i].key,
|
|
&cargs->key_cache[i].key_len);
|
|
if (ret != VAS_EBOOT_ERR_NONE)
|
|
{
|
|
if (VasEBoot_errno)
|
|
{
|
|
VasEBoot_print_error ();
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
VasEBoot_dprintf ("cryptodisk",
|
|
"failed to recover a key from key protector "
|
|
"%s, will not try it again for any other "
|
|
"disks, if any, during this invocation of "
|
|
"cryptomount\n",
|
|
cargs->protectors[i]);
|
|
|
|
cargs->key_cache[i].invalid = 1;
|
|
continue;
|
|
}
|
|
}
|
|
|
|
cargs->key_data = cargs->key_cache[i].key;
|
|
cargs->key_len = cargs->key_cache[i].key_len;
|
|
|
|
ret = cr->recover_key (source, dev, cargs);
|
|
if (ret != VAS_EBOOT_ERR_NONE)
|
|
{
|
|
/* Reset key data to trigger the passphrase prompt later */
|
|
cargs->key_data = NULL;
|
|
cargs->key_len = 0;
|
|
|
|
part = VasEBoot_partition_get_name (source->partition);
|
|
VasEBoot_dprintf ("cryptodisk",
|
|
"recovered a key from key protector %s but it "
|
|
"failed to unlock %s%s%s (%s)\n",
|
|
cargs->protectors[i], source->name,
|
|
source->partition != NULL ? "," : "",
|
|
part != NULL ? part : N_("UNKNOWN"), dev->uuid);
|
|
VasEBoot_free (part);
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
ret = VasEBoot_cryptodisk_insert (dev, name, source);
|
|
if (ret != VAS_EBOOT_ERR_NONE)
|
|
goto error;
|
|
#ifndef VAS_EBOOT_UTIL
|
|
VasEBoot_cli_set_auth_needed ();
|
|
#endif
|
|
goto cleanup;
|
|
}
|
|
}
|
|
|
|
part = VasEBoot_partition_get_name (source->partition);
|
|
VasEBoot_error (VAS_EBOOT_ERR_ACCESS_DENIED,
|
|
N_("no key protector provided a usable key for %s%s%s (%s)"),
|
|
source->name, source->partition != NULL ? "," : "",
|
|
part != NULL ? part : N_("UNKNOWN"), dev->uuid);
|
|
VasEBoot_free (part);
|
|
}
|
|
|
|
if (cargs->key_len)
|
|
{
|
|
ret = cr->recover_key (source, dev, cargs);
|
|
if (ret != VAS_EBOOT_ERR_NONE)
|
|
goto error;
|
|
}
|
|
else
|
|
{
|
|
/* Get the passphrase from the user, if no key data. */
|
|
unsigned long tries = 3;
|
|
const char *tries_env;
|
|
|
|
/*
|
|
* Print the error from key protectors and clear VasEBoot_errno.
|
|
*
|
|
* Since '--protector' cannot coexist with '--password' and
|
|
* '--key-file', in case key protectors fail, only
|
|
* "cargs->key_len == 0" is expected, so cryptomount falls back
|
|
* here to request the passphrase.
|
|
*
|
|
* To avoid the error from key protectors stops the further code,
|
|
* print the error to notify the user why key protectors fail and
|
|
* clear VasEBoot_errno to have a fresh start.
|
|
*/
|
|
if (VasEBoot_errno != VAS_EBOOT_ERR_NONE)
|
|
{
|
|
VasEBoot_print_error ();
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
askpass = 1;
|
|
cargs->key_data = VasEBoot_malloc (VAS_EBOOT_CRYPTODISK_MAX_PASSPHRASE);
|
|
if (cargs->key_data == NULL)
|
|
goto error_no_close;
|
|
|
|
tries_env = VasEBoot_env_get ("cryptodisk_passphrase_tries");
|
|
if (tries_env != NULL && tries_env[0] != '\0')
|
|
{
|
|
unsigned long tries_env_val;
|
|
const char *p;
|
|
|
|
tries_env_val = VasEBoot_strtoul (tries_env, &p, 0);
|
|
if (*p == '\0' && tries_env_val != ~0UL)
|
|
tries = tries_env_val;
|
|
else
|
|
VasEBoot_printf_ (N_("Invalid cryptodisk_passphrase_tries value `%s'. Defaulting to %lu.\n"),
|
|
tries_env,
|
|
tries);
|
|
}
|
|
|
|
for (; tries > 0; tries--)
|
|
{
|
|
part = VasEBoot_partition_get_name (source->partition);
|
|
VasEBoot_printf_ (N_("Enter passphrase for %s%s%s (%s): "), source->name,
|
|
source->partition != NULL ? "," : "",
|
|
part != NULL ? part : N_("UNKNOWN"),
|
|
dev->uuid);
|
|
VasEBoot_free (part);
|
|
|
|
if (!VasEBoot_password_get ((char *) cargs->key_data, VAS_EBOOT_CRYPTODISK_MAX_PASSPHRASE))
|
|
{
|
|
VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "passphrase not supplied");
|
|
goto error;
|
|
}
|
|
cargs->key_len = VasEBoot_strlen ((char *) cargs->key_data);
|
|
|
|
ret = cr->recover_key (source, dev, cargs);
|
|
if (ret == VAS_EBOOT_ERR_NONE)
|
|
break;
|
|
if (ret != VAS_EBOOT_ERR_ACCESS_DENIED || tries == 1)
|
|
goto error;
|
|
VasEBoot_puts_ (N_("Invalid passphrase."));
|
|
|
|
/*
|
|
* Since recover_key() calls a function that returns VasEBoot_errno,
|
|
* a leftover error value from a previously rejected passphrase
|
|
* will trigger a phantom failure. We therefore clear it before
|
|
* trying a new passphrase.
|
|
*/
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
}
|
|
}
|
|
|
|
ret = VasEBoot_cryptodisk_insert (dev, name, source);
|
|
if (ret != VAS_EBOOT_ERR_NONE)
|
|
goto error;
|
|
|
|
goto cleanup;
|
|
|
|
error:
|
|
cryptodisk_close (dev);
|
|
error_no_close:
|
|
dev = NULL;
|
|
|
|
cleanup:
|
|
if (cargs->hdr_file != NULL)
|
|
source->read_hook = NULL;
|
|
|
|
if (askpass)
|
|
{
|
|
VasEBoot_memset (cargs->key_data, 0, cargs->key_len);
|
|
cargs->key_len = 0;
|
|
VasEBoot_free (cargs->key_data);
|
|
}
|
|
return dev;
|
|
}
|
|
|
|
#ifdef VAS_EBOOT_UTIL
|
|
#include <VasEBoot/util/misc.h>
|
|
VasEBoot_err_t
|
|
VasEBoot_cryptodisk_cheat_mount (const char *sourcedev, const char *cheat)
|
|
{
|
|
VasEBoot_err_t err;
|
|
VasEBoot_cryptodisk_t dev;
|
|
VasEBoot_cryptodisk_dev_t cr;
|
|
VasEBoot_disk_t source;
|
|
struct VasEBoot_cryptomount_args cargs = {0};
|
|
|
|
/* Try to open disk. */
|
|
source = VasEBoot_disk_open (sourcedev);
|
|
if (!source)
|
|
return VasEBoot_errno;
|
|
|
|
dev = VasEBoot_cryptodisk_get_by_source_disk (source);
|
|
|
|
if (dev)
|
|
{
|
|
VasEBoot_disk_close (source);
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
FOR_CRYPTODISK_DEVS (cr)
|
|
{
|
|
dev = cr->scan (source, &cargs);
|
|
if (VasEBoot_errno)
|
|
return VasEBoot_errno;
|
|
if (!dev)
|
|
continue;
|
|
|
|
VasEBoot_util_info ("cheatmounted %s (%s) at %s", sourcedev, dev->modname,
|
|
cheat);
|
|
err = VasEBoot_cryptodisk_cheat_insert (dev, sourcedev, source, cheat);
|
|
VasEBoot_disk_close (source);
|
|
if (err)
|
|
VasEBoot_free (dev);
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
VasEBoot_disk_close (source);
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
#endif
|
|
|
|
static int
|
|
VasEBoot_cryptodisk_scan_device (const char *name,
|
|
void *data)
|
|
{
|
|
int ret = 0;
|
|
VasEBoot_disk_t source;
|
|
VasEBoot_cryptodisk_t dev;
|
|
VasEBoot_cryptomount_args_t cargs = data;
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
|
|
/* Try to open disk. */
|
|
source = VasEBoot_disk_open (name);
|
|
if (!source)
|
|
{
|
|
VasEBoot_print_error ();
|
|
return 0;
|
|
}
|
|
|
|
dev = VasEBoot_cryptodisk_scan_device_real (name, source, cargs);
|
|
if (dev)
|
|
{
|
|
ret = (cargs->search_uuid != NULL
|
|
&& VasEBoot_uuidcasecmp (cargs->search_uuid, dev->uuid, sizeof (dev->uuid)) == 0);
|
|
goto cleanup;
|
|
}
|
|
|
|
/*
|
|
* Do not print error when err is VAS_EBOOT_ERR_BAD_MODULE to avoid many unhelpful
|
|
* error messages.
|
|
*/
|
|
if (VasEBoot_errno == VAS_EBOOT_ERR_BAD_MODULE)
|
|
VasEBoot_error_pop ();
|
|
|
|
if (cargs->search_uuid != NULL)
|
|
/* Push error onto stack to save for cryptomount. */
|
|
VasEBoot_error_push ();
|
|
else
|
|
VasEBoot_print_error ();
|
|
|
|
cleanup:
|
|
VasEBoot_disk_close (source);
|
|
return ret;
|
|
}
|
|
|
|
static void
|
|
VasEBoot_cryptodisk_clear_key_cache (struct VasEBoot_cryptomount_args *cargs)
|
|
{
|
|
int i;
|
|
|
|
if (cargs->key_cache == NULL || cargs->protectors == NULL)
|
|
return;
|
|
|
|
for (i = 0; cargs->protectors[i]; i++)
|
|
{
|
|
if (cargs->key_cache[i].key)
|
|
VasEBoot_memset (cargs->key_cache[i].key, 0, cargs->key_cache[i].key_len);
|
|
VasEBoot_free (cargs->key_cache[i].key);
|
|
}
|
|
|
|
VasEBoot_free (cargs->key_cache);
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
__VasEBoot_cmd_cryptomount (VasEBoot_extcmd_context_t ctxt, int argc, char **args)
|
|
{
|
|
struct VasEBoot_arg_list *state = ctxt->state;
|
|
struct VasEBoot_cryptomount_args cargs = {0};
|
|
|
|
if (argc < 1 && !state[OPTION_ALL].set && !state[OPTION_BOOT].set)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "device name required");
|
|
|
|
if (VasEBoot_cryptodisk_list == NULL)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_MODULE, "no cryptodisk modules loaded");
|
|
|
|
if (state[OPTION_PASSWORD].set && state[OPTION_PROTECTOR].set) /* password and key protector */
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"a password and a key protector cannot both be set");
|
|
|
|
if (state[OPTION_KEYFILE].set && state[OPTION_PROTECTOR].set) /* key file and key protector */
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
"a key file and a key protector cannot both be set");
|
|
|
|
if (state[OPTION_PASSWORD].set) /* password */
|
|
{
|
|
cargs.key_data = (VasEBoot_uint8_t *) state[OPTION_PASSWORD].arg;
|
|
cargs.key_len = VasEBoot_strlen (state[OPTION_PASSWORD].arg);
|
|
}
|
|
|
|
if (state[OPTION_KEYFILE].set) /* keyfile */
|
|
{
|
|
const char *p = NULL;
|
|
VasEBoot_file_t keyfile;
|
|
unsigned long long keyfile_offset = 0, keyfile_size = 0;
|
|
|
|
if (state[OPTION_KEYFILE_OFFSET].set) /* keyfile-offset */
|
|
{
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
keyfile_offset = VasEBoot_strtoull (state[OPTION_KEYFILE_OFFSET].arg, &p, 0);
|
|
|
|
if (state[OPTION_KEYFILE_OFFSET].arg[0] == '\0' || *p != '\0')
|
|
return VasEBoot_error (VasEBoot_errno,
|
|
N_("non-numeric or invalid keyfile offset `%s'"),
|
|
state[OPTION_KEYFILE_OFFSET].arg);
|
|
}
|
|
|
|
if (state[OPTION_KEYFILE_SIZE].set) /* keyfile-size */
|
|
{
|
|
VasEBoot_errno = VAS_EBOOT_ERR_NONE;
|
|
keyfile_size = VasEBoot_strtoull (state[OPTION_KEYFILE_SIZE].arg, &p, 0);
|
|
|
|
if (state[OPTION_KEYFILE_SIZE].arg[0] == '\0' || *p != '\0')
|
|
return VasEBoot_error (VasEBoot_errno,
|
|
N_("non-numeric or invalid keyfile size `%s'"),
|
|
state[OPTION_KEYFILE_SIZE].arg);
|
|
|
|
if (keyfile_size == 0)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE, N_("key file size is 0"));
|
|
|
|
if (keyfile_size > VAS_EBOOT_CRYPTODISK_MAX_KEYFILE_SIZE)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE,
|
|
N_("key file size exceeds maximum (%d)"),
|
|
VAS_EBOOT_CRYPTODISK_MAX_KEYFILE_SIZE);
|
|
}
|
|
|
|
keyfile = VasEBoot_file_open (state[OPTION_KEYFILE].arg,
|
|
VAS_EBOOT_FILE_TYPE_CRYPTODISK_ENCRYPTION_KEY);
|
|
if (keyfile == NULL)
|
|
return VasEBoot_errno;
|
|
|
|
if (keyfile_offset > keyfile->size)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE,
|
|
N_("Keyfile offset, %llu, is greater than "
|
|
"keyfile size, %llu"),
|
|
keyfile_offset, (unsigned long long) keyfile->size);
|
|
|
|
if (VasEBoot_file_seek (keyfile, (VasEBoot_off_t) keyfile_offset) == (VasEBoot_off_t) -1)
|
|
return VasEBoot_errno;
|
|
|
|
if (keyfile_size != 0)
|
|
{
|
|
if (keyfile_size > (keyfile->size - keyfile_offset))
|
|
return VasEBoot_error (VAS_EBOOT_ERR_FILE_READ_ERROR,
|
|
N_("keyfile is too small: requested %llu bytes,"
|
|
" but the file only has %" PRIuVAS_EBOOT_UINT64_T
|
|
" bytes left at offset %llu"),
|
|
keyfile_size,
|
|
(VasEBoot_off_t) (keyfile->size - keyfile_offset),
|
|
keyfile_offset);
|
|
|
|
cargs.key_len = keyfile_size;
|
|
}
|
|
else
|
|
cargs.key_len = keyfile->size - keyfile_offset;
|
|
|
|
cargs.key_data = VasEBoot_malloc (cargs.key_len);
|
|
if (cargs.key_data == NULL)
|
|
return VAS_EBOOT_ERR_OUT_OF_MEMORY;
|
|
|
|
if (VasEBoot_file_read (keyfile, cargs.key_data, cargs.key_len) != (VasEBoot_ssize_t) cargs.key_len)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_FILE_READ_ERROR, (N_("failed to read key file")));
|
|
}
|
|
|
|
if (state[OPTION_HEADER].set) /* header */
|
|
{
|
|
if (state[OPTION_UUID].set)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT,
|
|
N_("cannot use UUID lookup with detached header"));
|
|
|
|
cargs.hdr_file = VasEBoot_file_open (state[OPTION_HEADER].arg,
|
|
VAS_EBOOT_FILE_TYPE_CRYPTODISK_DETACHED_HEADER);
|
|
if (cargs.hdr_file == NULL)
|
|
return VasEBoot_errno;
|
|
}
|
|
|
|
if (state[OPTION_PROTECTOR].set) /* key protector(s) */
|
|
{
|
|
cargs.key_cache = VasEBoot_calloc (state[OPTION_PROTECTOR].set, sizeof (*cargs.key_cache));
|
|
if (cargs.key_cache == NULL)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_MEMORY,
|
|
"no memory for key protector key cache");
|
|
cargs.protectors = state[OPTION_PROTECTOR].args;
|
|
}
|
|
|
|
if (state[OPTION_UUID].set) /* uuid */
|
|
{
|
|
int found_uuid;
|
|
VasEBoot_cryptodisk_t dev;
|
|
|
|
dev = VasEBoot_cryptodisk_get_by_uuid (args[0]);
|
|
if (dev)
|
|
{
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
VasEBoot_dprintf ("cryptodisk",
|
|
"already mounted as crypto%lu\n", dev->id);
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
cargs.check_boot = state[OPTION_BOOT].set;
|
|
cargs.search_uuid = args[0];
|
|
found_uuid = VasEBoot_device_iterate (&VasEBoot_cryptodisk_scan_device, &cargs);
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
|
|
if (found_uuid)
|
|
return VAS_EBOOT_ERR_NONE;
|
|
else if (VasEBoot_errno == VAS_EBOOT_ERR_NONE)
|
|
{
|
|
/*
|
|
* Try to pop the next error on the stack. If there is not one, then
|
|
* no device matched the given UUID.
|
|
*/
|
|
VasEBoot_error_pop ();
|
|
if (VasEBoot_errno == VAS_EBOOT_ERR_NONE)
|
|
return VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "no such cryptodisk found, perhaps a needed disk or cryptodisk module is not loaded");
|
|
}
|
|
return VasEBoot_errno;
|
|
}
|
|
else if (state[OPTION_ALL].set || (argc == 0 && state[OPTION_BOOT].set)) /* -a|-b */
|
|
{
|
|
cargs.check_boot = state[OPTION_BOOT].set;
|
|
VasEBoot_device_iterate (&VasEBoot_cryptodisk_scan_device, &cargs);
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
else
|
|
{
|
|
VasEBoot_disk_t disk;
|
|
VasEBoot_cryptodisk_t dev;
|
|
char *diskname;
|
|
char *disklast = NULL;
|
|
VasEBoot_size_t len;
|
|
|
|
cargs.check_boot = state[OPTION_BOOT].set;
|
|
diskname = args[0];
|
|
len = VasEBoot_strlen (diskname);
|
|
if (len && diskname[0] == '(' && diskname[len - 1] == ')')
|
|
{
|
|
disklast = &diskname[len - 1];
|
|
*disklast = '\0';
|
|
diskname++;
|
|
}
|
|
|
|
disk = VasEBoot_disk_open (diskname);
|
|
if (!disk)
|
|
{
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
if (disklast)
|
|
*disklast = ')';
|
|
return VasEBoot_errno;
|
|
}
|
|
|
|
dev = VasEBoot_cryptodisk_get_by_source_disk (disk);
|
|
if (dev)
|
|
{
|
|
VasEBoot_dprintf ("cryptodisk", "already mounted as crypto%lu\n", dev->id);
|
|
VasEBoot_disk_close (disk);
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
if (disklast)
|
|
*disklast = ')';
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
dev = VasEBoot_cryptodisk_scan_device_real (diskname, disk, &cargs);
|
|
VasEBoot_cryptodisk_clear_key_cache (&cargs);
|
|
|
|
VasEBoot_disk_close (disk);
|
|
if (disklast)
|
|
*disklast = ')';
|
|
|
|
return (dev == NULL) ? VasEBoot_errno : VAS_EBOOT_ERR_NONE;
|
|
}
|
|
}
|
|
|
|
static VasEBoot_err_t
|
|
VasEBoot_cmd_cryptomount (VasEBoot_extcmd_context_t ctxt, int argc, char **args)
|
|
{
|
|
struct VasEBoot_arg_list *state = ctxt->state;
|
|
VasEBoot_err_t err;
|
|
|
|
if (state[OPTION_HWACCEL].set)
|
|
VasEBoot_enable_gcry_hwf ();
|
|
|
|
err = __VasEBoot_cmd_cryptomount (ctxt, argc, args);
|
|
|
|
if (state[OPTION_HWACCEL].set)
|
|
VasEBoot_reset_gcry_hwf ();
|
|
|
|
return err;
|
|
}
|
|
|
|
static struct VasEBoot_disk_dev VasEBoot_cryptodisk_dev = {
|
|
.name = "cryptodisk",
|
|
.id = VAS_EBOOT_DISK_DEVICE_CRYPTODISK_ID,
|
|
.disk_iterate = VasEBoot_cryptodisk_iterate,
|
|
.disk_open = VasEBoot_cryptodisk_open,
|
|
.disk_close = VasEBoot_cryptodisk_close,
|
|
.disk_read = VasEBoot_cryptodisk_read,
|
|
.disk_write = VasEBoot_cryptodisk_write,
|
|
#ifdef VAS_EBOOT_UTIL
|
|
.disk_memberlist = VasEBoot_cryptodisk_memberlist,
|
|
#endif
|
|
.next = 0
|
|
};
|
|
|
|
static char
|
|
hex (VasEBoot_uint8_t val)
|
|
{
|
|
if (val < 10)
|
|
return '0' + val;
|
|
return 'a' + val - 10;
|
|
}
|
|
|
|
/* Open a file named NAME and initialize FILE. */
|
|
static char *
|
|
luks_script_get (VasEBoot_size_t *sz)
|
|
{
|
|
VasEBoot_cryptodisk_t i;
|
|
VasEBoot_size_t size = 0, mul;
|
|
char *ptr, *ret;
|
|
|
|
*sz = 0;
|
|
|
|
for (i = cryptodisk_list; i != NULL; i = i->next)
|
|
if (VasEBoot_strcmp (i->modname, "luks") == 0 ||
|
|
VasEBoot_strcmp (i->modname, "luks2") == 0)
|
|
{
|
|
/*
|
|
* Add space in the line for (in order) spaces, cipher mode, cipher IV
|
|
* mode, sector offset, sector size and the trailing newline. This is
|
|
* an upper bound on the size of this data. There are 15 extra bytes
|
|
* in an earlier version of this code that are unaccounted for. It is
|
|
* left in the calculations in case it is needed. At worst, its short-
|
|
* lived wasted space.
|
|
*
|
|
* 60 = 5 + 5 + 8 + 20 + 6 + 1 + 15
|
|
*/
|
|
if (VasEBoot_add (size, VasEBoot_strlen (i->modname), &size) ||
|
|
VasEBoot_add (size, sizeof ("_mount") + 60, &size) ||
|
|
VasEBoot_add (size, VasEBoot_strlen (i->uuid), &size) ||
|
|
VasEBoot_add (size, VasEBoot_strlen (i->cipher->cipher->name), &size) ||
|
|
VasEBoot_mul (i->keysize, 2, &mul) ||
|
|
VasEBoot_add (size, mul, &size))
|
|
{
|
|
VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE, "overflow detected while obtaining size of luks script");
|
|
return 0;
|
|
}
|
|
if (i->essiv_hash)
|
|
{
|
|
if (VasEBoot_add (size, VasEBoot_strlen (i->essiv_hash->name), &size))
|
|
{
|
|
VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE, "overflow detected while obtaining size of luks script");
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
if (VasEBoot_add (size, 1, &size))
|
|
{
|
|
VasEBoot_error (VAS_EBOOT_ERR_OUT_OF_RANGE, "overflow detected while obtaining size of luks script");
|
|
return 0;
|
|
}
|
|
|
|
ret = VasEBoot_malloc (size);
|
|
if (!ret)
|
|
return 0;
|
|
|
|
ptr = ret;
|
|
|
|
for (i = cryptodisk_list; i != NULL; i = i->next)
|
|
if (VasEBoot_strcmp (i->modname, "luks") == 0 ||
|
|
VasEBoot_strcmp (i->modname, "luks2") == 0)
|
|
{
|
|
unsigned j;
|
|
const char *iptr;
|
|
ptr = VasEBoot_stpcpy (ptr, i->modname);
|
|
ptr = VasEBoot_stpcpy (ptr, "_mount ");
|
|
ptr = VasEBoot_stpcpy (ptr, i->uuid);
|
|
*ptr++ = ' ';
|
|
ptr += VasEBoot_snprintf (ptr, 21, "%" PRIxVAS_EBOOT_OFFSET, i->offset_sectors);
|
|
*ptr++ = ' ';
|
|
ptr += VasEBoot_snprintf (ptr, 7, "%u", 1 << i->log_sector_size);
|
|
*ptr++ = ' ';
|
|
for (iptr = i->cipher->cipher->name; *iptr; iptr++)
|
|
*ptr++ = VasEBoot_tolower (*iptr);
|
|
switch (i->mode)
|
|
{
|
|
case VAS_EBOOT_CRYPTODISK_MODE_ECB:
|
|
ptr = VasEBoot_stpcpy (ptr, "-ecb");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_CBC:
|
|
ptr = VasEBoot_stpcpy (ptr, "-cbc");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_PCBC:
|
|
ptr = VasEBoot_stpcpy (ptr, "-pcbc");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_XTS:
|
|
ptr = VasEBoot_stpcpy (ptr, "-xts");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_LRW:
|
|
ptr = VasEBoot_stpcpy (ptr, "-lrw");
|
|
break;
|
|
}
|
|
|
|
switch (i->mode_iv)
|
|
{
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_NULL:
|
|
ptr = VasEBoot_stpcpy (ptr, "-null");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN:
|
|
ptr = VasEBoot_stpcpy (ptr, "-plain");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_PLAIN64:
|
|
ptr = VasEBoot_stpcpy (ptr, "-plain64");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BENBI:
|
|
ptr = VasEBoot_stpcpy (ptr, "-benbi");
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_ESSIV:
|
|
ptr = VasEBoot_stpcpy (ptr, "-essiv:");
|
|
ptr = VasEBoot_stpcpy (ptr, i->essiv_hash->name);
|
|
break;
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BYTECOUNT64:
|
|
case VAS_EBOOT_CRYPTODISK_MODE_IV_BYTECOUNT64_HASH:
|
|
break;
|
|
}
|
|
*ptr++ = ' ';
|
|
for (j = 0; j < i->keysize; j++)
|
|
{
|
|
*ptr++ = hex (i->key[j] >> 4);
|
|
*ptr++ = hex (i->key[j] & 0xf);
|
|
}
|
|
*ptr++ = '\n';
|
|
}
|
|
*ptr = '\0';
|
|
*sz = ptr - ret;
|
|
return ret;
|
|
}
|
|
|
|
#ifdef VAS_EBOOT_MACHINE_EFI
|
|
VasEBoot_err_t
|
|
VasEBoot_cryptodisk_challenge_password (void)
|
|
{
|
|
VasEBoot_cryptodisk_t cr_dev;
|
|
|
|
for (cr_dev = cryptodisk_list; cr_dev != NULL; cr_dev = cr_dev->next)
|
|
{
|
|
VasEBoot_cryptodisk_dev_t cr;
|
|
VasEBoot_disk_t source = NULL;
|
|
VasEBoot_err_t ret = VAS_EBOOT_ERR_NONE;
|
|
VasEBoot_cryptodisk_t dev = NULL;
|
|
char *part = NULL;
|
|
struct VasEBoot_cryptomount_args cargs = {0};
|
|
|
|
cargs.check_boot = 0;
|
|
cargs.search_uuid = cr_dev->uuid;
|
|
|
|
source = VasEBoot_disk_open (cr_dev->source);
|
|
|
|
if (source == NULL)
|
|
{
|
|
ret = VasEBoot_errno;
|
|
goto error_out;
|
|
}
|
|
|
|
FOR_CRYPTODISK_DEVS (cr)
|
|
{
|
|
dev = cr->scan (source, &cargs);
|
|
if (VasEBoot_errno)
|
|
{
|
|
ret = VasEBoot_errno;
|
|
goto error_out;
|
|
}
|
|
if (dev == NULL)
|
|
continue;
|
|
break;
|
|
}
|
|
|
|
if (dev == NULL)
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_MODULE, "no cryptodisk module can handle this device");
|
|
goto error_out;
|
|
}
|
|
|
|
part = VasEBoot_partition_get_name (source->partition);
|
|
VasEBoot_printf_ (N_("Enter passphrase for %s%s%s (%s): "), source->name,
|
|
source->partition != NULL ? "," : "",
|
|
part != NULL ? part : N_("UNKNOWN"), cr_dev->uuid);
|
|
VasEBoot_free (part);
|
|
|
|
cargs.key_data = VasEBoot_malloc (VAS_EBOOT_CRYPTODISK_MAX_PASSPHRASE);
|
|
if (cargs.key_data == NULL)
|
|
{
|
|
ret = VasEBoot_errno;
|
|
goto error_out;
|
|
}
|
|
|
|
if (!VasEBoot_password_get ((char *) cargs.key_data, VAS_EBOOT_CRYPTODISK_MAX_PASSPHRASE))
|
|
{
|
|
ret = VasEBoot_error (VAS_EBOOT_ERR_BAD_ARGUMENT, "passphrase not supplied");
|
|
goto error_out;
|
|
}
|
|
cargs.key_len = VasEBoot_strlen ((char *) cargs.key_data);
|
|
ret = cr->recover_key (source, dev, &cargs);
|
|
|
|
error_out:
|
|
VasEBoot_disk_close (source);
|
|
if (dev != NULL)
|
|
cryptodisk_close (dev);
|
|
if (cargs.key_data)
|
|
{
|
|
VasEBoot_memset (cargs.key_data, 0, cargs.key_len);
|
|
VasEBoot_free (cargs.key_data);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
return VAS_EBOOT_ERR_NONE;
|
|
}
|
|
|
|
void
|
|
VasEBoot_cryptodisk_erasesecrets (void)
|
|
{
|
|
VasEBoot_cryptodisk_t i;
|
|
VasEBoot_uint8_t *buf;
|
|
|
|
buf = VasEBoot_zalloc (VAS_EBOOT_CRYPTODISK_MAX_KEYLEN);
|
|
if (buf == NULL)
|
|
VasEBoot_fatal ("VasEBoot_cryptodisk_erasesecrets: cannot allocate memory");
|
|
|
|
for (i = cryptodisk_list; i != NULL; i = i->next)
|
|
if (VasEBoot_cryptodisk_setkey (i, buf, i->keysize))
|
|
VasEBoot_fatal ("VasEBoot_cryptodisk_erasesecrets: cannot erase secrets for %s", i->source);
|
|
else
|
|
VasEBoot_printf ("Erased crypto secrets for %s\n", i->source);
|
|
/*
|
|
* Unfortunately, there is no way to "force unmount" a given disk, it may
|
|
* have mounted "child" disks as well, e.g., an LVM volume. So, this
|
|
* function MUST be called when there is no way back, e.g., when exiting.
|
|
* Otherwise, subsequent read calls for a cryptodisk will return garbage.
|
|
*/
|
|
|
|
VasEBoot_free (buf);
|
|
}
|
|
#endif /* VAS_EBOOT_MACHINE_EFI */
|
|
|
|
struct VasEBoot_procfs_entry luks_script =
|
|
{
|
|
.name = "luks_script",
|
|
.get_contents = luks_script_get
|
|
};
|
|
|
|
static VasEBoot_extcmd_t cmd;
|
|
|
|
VAS_EBOOT_MOD_INIT (cryptodisk)
|
|
{
|
|
VasEBoot_disk_dev_register (&VasEBoot_cryptodisk_dev);
|
|
cmd = VasEBoot_register_extcmd ("cryptomount", VasEBoot_cmd_cryptomount, 0,
|
|
N_("[ [-p password] | [-k keyfile"
|
|
" [-O keyoffset] [-S keysize] ] ] [-H file]"
|
|
" [-P protector [-P protector ...]] | [-A]"
|
|
" <SOURCE|-u UUID|-a|-b>"),
|
|
N_("Mount a crypto device."), options);
|
|
VasEBoot_procfs_register ("luks_script", &luks_script);
|
|
}
|
|
|
|
VAS_EBOOT_MOD_FINI (cryptodisk)
|
|
{
|
|
#ifdef VAS_EBOOT_MACHINE_EFI
|
|
VasEBoot_cryptodisk_erasesecrets ();
|
|
#endif
|
|
VasEBoot_disk_dev_unregister (&VasEBoot_cryptodisk_dev);
|
|
cryptodisk_cleanup ();
|
|
VasEBoot_unregister_extcmd (cmd);
|
|
VasEBoot_procfs_unregister (&luks_script);
|
|
}
|