summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-01 15:09:09 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-01 15:09:09 +0000
commit57d57860a81e620db083d6a45ecc32dc3e69da55 (patch)
tree3dc6bed0cbf46b6a67f11218f5e1e7de5b94938f /perl-install/diskdrake/interactive.pm
parent289056715adc5bcf16d138c0165bc35a658e3077 (diff)
downloaddrakx-backup-do-not-use-57d57860a81e620db083d6a45ecc32dc3e69da55.tar
drakx-backup-do-not-use-57d57860a81e620db083d6a45ecc32dc3e69da55.tar.gz
drakx-backup-do-not-use-57d57860a81e620db083d6a45ecc32dc3e69da55.tar.bz2
drakx-backup-do-not-use-57d57860a81e620db083d6a45ecc32dc3e69da55.tar.xz
drakx-backup-do-not-use-57d57860a81e620db083d6a45ecc32dc3e69da55.zip
allow to choose encryption algorithm (#13472)
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index d48379ed9..5ed05a39e 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -948,8 +948,8 @@ sub Options {
if (!check($in, $hd, $part, $all_hds)) {
$options->{encrypted} = 0;
} elsif (!$part->{encrypt_key} && !isSwap($part)) {
- if (my $encrypt_key = choose_encrypt_key($in)) {
- $options->{'encryption='} = 'AES128';
+ if (my ($encrypt_key, $encrypt_algo) = choose_encrypt_key($in)) {
+ $options->{'encryption='} = $encrypt_algo;
$part->{encrypt_key} = $encrypt_key;
} else {
$options->{encrypted} = 0;
@@ -1260,6 +1260,9 @@ sub choose_encrypt_key {
my ($in) = @_;
my ($encrypt_key, $encrypt_key2);
+ my @algorithms = map { "AES$_" } 128, 196, 256, 512, 1024, 2048;
+ my $encrypt_algo = "AES128";
+
$in->ask_from_(
{
title => N("Filesystem encryption key"),
@@ -1272,7 +1275,8 @@ sub choose_encrypt_key {
} } }, [
{ label => N("Encryption key"), val => \$encrypt_key, hidden => 1 },
{ label => N("Encryption key (again)"), val => \$encrypt_key2, hidden => 1 },
- ]) && $encrypt_key;
+{ label => N("Encryption algorithm"), type => 'list', val => \$encrypt_algo, list => \@algorithms }
+ ]) && ($encrypt_key, $encrypt_algo);
}