| Server IP : 127.0.0.1 / Your IP : 216.73.216.48 Web Server : Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.2.12 System : Windows NT DESKTOP-3H4FHQJ 10.0 build 19045 (Windows 10) AMD64 User : win 10 ( 0) PHP Version : 8.2.12 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : D:/xampp/perl/vendor/lib/Crypt/OpenPGP/Key/ |
Upload File : |
package Crypt::OpenPGP::Key::Secret;
use strict;
use Crypt::OpenPGP::Key;
use Crypt::OpenPGP::ErrorHandler;
use base qw( Crypt::OpenPGP::Key Crypt::OpenPGP::ErrorHandler );
sub is_secret { 1 }
sub all_props { ($_[0]->public_props, $_[0]->secret_props) }
sub public_key {
my $key = shift;
my @pub = $key->public_props;
my $pub = Crypt::OpenPGP::Key::Public->new($key->alg);
for my $e (@pub) {
$pub->$e($key->$e());
}
$pub;
}
1;