From 01430e821e76d04aa3bbbaf8ce39ac4dd5c010a3 Mon Sep 17 00:00:00 2001 From: phil Date: Fri, 1 May 2015 11:07:38 +0000 Subject: [PATCH] set default key size to 4096 generate stronger keys with default algo --- Ezmlm-Gpg/trunk/Gpg.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Ezmlm-Gpg/trunk/Gpg.pm b/Ezmlm-Gpg/trunk/Gpg.pm index 2358134..a34f23c 100644 --- a/Ezmlm-Gpg/trunk/Gpg.pm +++ b/Ezmlm-Gpg/trunk/Gpg.pm @@ -552,6 +552,7 @@ sub delete_key { $list->generate_key($name, $comment, $email_address, $keysize, $expire); 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 @@ -561,9 +562,9 @@ sub generate_private_key { my $gpgoption = "--gen-key"; my $gpgcommand = $gpg->gpgbin() . " " . $gpg->gpgopts() . " $gpgoption"; my $pid = open(INPUT, "| $gpgcommand"); - print INPUT "Key-Type: DSA\n"; - print INPUT "Key-Length: 1024\n"; - print INPUT "Subkey-Type: ELG-E\n"; + print INPUT "Key-Type: default\n"; + print INPUT "Key-Length: 4096\n"; + print INPUT "Subkey-Type: default\n"; print INPUT "Subkey-Length: $keysize\n"; print INPUT "Name-Real: $name\n"; print INPUT "Name-Comment: $comment\n" if ($comment);