|
@@ -41,8 +41,8 @@ sub as_server
|
|
|
my $key = do { local($/); <K>};
|
|
my $key = do { local($/); <K>};
|
|
|
close(K);
|
|
close(K);
|
|
|
$private = Crypt::OpenSSL::RSA->new_private_key($key);
|
|
$private = Crypt::OpenSSL::RSA->new_private_key($key);
|
|
|
- $private->use_sha1_hash;
|
|
|
|
|
- $private->use_pkcs1_padding;
|
|
|
|
|
|
|
+ $private->use_sha256_hash;
|
|
|
|
|
+ $private->use_pkcs1_oaep_padding;
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
my $auth_server = ref $auth_servers ? $auth_servers->[0] : $auth_servers;
|
|
my $auth_server = ref $auth_servers ? $auth_servers->[0] : $auth_servers;
|