change default algo

This commit is contained in:
phil 2015-06-09 20:05:18 +00:00
parent 75586b9d36
commit 209617a561
1 changed files with 2 additions and 2 deletions

View File

@ -562,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: default\n"; print INPUT "Key-Type: RSA\n";
print INPUT "Key-Length: 4096\n"; print INPUT "Key-Length: 4096\n";
print INPUT "Subkey-Type: default\n"; print INPUT "Subkey-Type: RSA\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);