change default algo
This commit is contained in:
parent
75586b9d36
commit
209617a561
1 changed files with 2 additions and 2 deletions
|
@ -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);
|
||||||
|
|
Loading…
Reference in a new issue