From 245dec56a7cf5562a0fc4ebaee81965427bfc1bc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Jul 2004 05:49:55 +0000 Subject: encryption key length can now be lower than 20, allowing >= 6 --- perl-install/diskdrake/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/diskdrake') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 5bfbcab07..269ff5aa5 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1258,7 +1258,7 @@ sub choose_encrypt_key { messages => N("Choose your filesystem encryption key"), callbacks => { complete => sub { - length $encrypt_key < 20 and $in->ask_warn('', N("This encryption key is too simple (must be at least %d characters long)", 20)), return 1,0; + length $encrypt_key < 6 and $in->ask_warn('', N("This encryption key is too simple (must be at least %d characters long)", 6)), return 1,0; $encrypt_key eq $encrypt_key2 or $in->ask_warn('', [ N("The encryption keys do not match"), N("Please try again") ]), return 1,1; return 0 } } }, [ -- cgit v1.2.1