Initial Commit

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/.packlist

@@ -0,0 +1,7 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\RSA.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\RSA.xs.dll
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\autosplit.ix
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\get_key_parameters.al
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\import_random_seed.al
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\new_key_from_parameters.al
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\RSA\new_public_key.al

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/autosplit.ix

@@ -0,0 +1,8 @@
+# Index created by AutoSplit for blib\lib\Crypt\OpenSSL\RSA.pm
+#    (file acts as timestamp)
+package Crypt::OpenSSL::RSA;
+sub new_public_key  ;
+sub new_key_from_parameters  ;
+sub import_random_seed  ;
+sub get_key_parameters  ;
+1;

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/get_key_parameters.al

@@ -0,0 +1,12 @@
+# NOTE: Derived from blib\lib\Crypt\OpenSSL\RSA.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::OpenSSL::RSA;
+
+#line 299 "blib\lib\Crypt\OpenSSL\RSA.pm (autosplit into blib\lib\auto\Crypt\OpenSSL\RSA\get_key_parameters.al)"
+sub get_key_parameters {
+    return map { $_ ? Crypt::OpenSSL::Bignum->bless_pointer($_) : undef } shift->_get_key_parameters();
+}
+
+1;
+# end of Crypt::OpenSSL::RSA::get_key_parameters

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/import_random_seed.al

@@ -0,0 +1,14 @@
+# NOTE: Derived from blib\lib\Crypt\OpenSSL\RSA.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::OpenSSL::RSA;
+
+#line 134 "blib\lib\Crypt\OpenSSL\RSA.pm (autosplit into blib\lib\auto\Crypt\OpenSSL\RSA\import_random_seed.al)"
+sub import_random_seed {
+    until ( _random_status() ) {
+        _random_seed( Crypt::OpenSSL::Random::random_bytes(20) );
+    }
+}
+
+# end of Crypt::OpenSSL::RSA::import_random_seed
+1;

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/new_key_from_parameters.al

@@ -0,0 +1,13 @@
+# NOTE: Derived from blib\lib\Crypt\OpenSSL\RSA.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::OpenSSL::RSA;
+
+#line 122 "blib\lib\Crypt\OpenSSL\RSA.pm (autosplit into blib\lib\auto\Crypt\OpenSSL\RSA\new_key_from_parameters.al)"
+sub new_key_from_parameters {
+    my ( $proto, $n, $e, $d, $p, $q ) = @_;
+    return $proto->_new_key_from_parameters( map { $_ ? $_->pointer_copy() : 0 } $n, $e, $d, $p, $q );
+}
+
+# end of Crypt::OpenSSL::RSA::new_key_from_parameters
+1;

database/perl/vendor/lib/auto/Crypt/OpenSSL/RSA/new_public_key.al

@@ -0,0 +1,21 @@
+# NOTE: Derived from blib\lib\Crypt\OpenSSL\RSA.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::OpenSSL::RSA;
+
+#line 82 "blib\lib\Crypt\OpenSSL\RSA.pm (autosplit into blib\lib\auto\Crypt\OpenSSL\RSA\new_public_key.al)"
+sub new_public_key {
+    my ( $proto, $p_key_string ) = @_;
+    if ( $p_key_string =~ /^-----BEGIN RSA PUBLIC KEY-----/ ) {
+        return $proto->_new_public_key_pkcs1($p_key_string);
+    }
+    elsif ( $p_key_string =~ /^-----BEGIN PUBLIC KEY-----/ ) {
+        return $proto->_new_public_key_x509($p_key_string);
+    }
+    else {
+        croak "unrecognized key format";
+    }
+}
+
+# end of Crypt::OpenSSL::RSA::new_public_key
+1;