ezmlm-web/ezmlm-web-modules
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

set default key size to 4096

Browse source 
generate stronger keys with default algo
This commit is contained in:
phil 2015-05-01 11:07:38 +00:00
parent 8639db3468
commit 01430e821e
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Ezmlm-Gpg/trunk/Gpg.pm
View file

@ -552,6 +552,7 @@ sub delete_key {
$list->generate_key($name, $comment, $email_address, $keysize, $expire); $list->generate_key($name, $comment, $email_address, $keysize, $expire);
Refer to the documentation of gnupg for the format of the arguments. Refer to the documentation of gnupg for the format of the arguments.
https://www.gnupg.org/documentation/manuals/gnupg-devel/Unattended-GPG-key-generation.html
=cut =cut
@ -561,9 +562,9 @@ sub generate_private_key {
my $gpgoption = "--gen-key"; my $gpgoption = "--gen-key";
my $gpgcommand = $gpg->gpgbin() . " " . $gpg->gpgopts() . " $gpgoption"; my $gpgcommand = $gpg->gpgbin() . " " . $gpg->gpgopts() . " $gpgoption";
my $pid = open(INPUT, "| $gpgcommand"); my $pid = open(INPUT, "| $gpgcommand");
print INPUT "Key-Type: DSA\n"; print INPUT "Key-Type: default\n";
print INPUT "Key-Length: 1024\n"; print INPUT "Key-Length: 4096\n";
print INPUT "Subkey-Type: ELG-E\n"; print INPUT "Subkey-Type: default\n";
print INPUT "Subkey-Length: $keysize\n"; print INPUT "Subkey-Length: $keysize\n";
print INPUT "Name-Real: $name\n"; print INPUT "Name-Real: $name\n";
print INPUT "Name-Comment: $comment\n" if ($comment); print INPUT "Name-Comment: $comment\n" if ($comment);