Initial Commit

database/perl/vendor/lib/auto/Crypt/Blowfish/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\Blowfish.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\Blowfish\Blowfish.xs.dll

database/perl/vendor/lib/auto/Crypt/CAST5_PP/.packlist

@@ -0,0 +1,6 @@
+C:\strawberry\perl\vendor\lib\Crypt\CAST5_PP.pm
+C:\strawberry\perl\vendor\lib\Crypt\CAST5_PP\Tables.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\autosplit.ix
+C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\decrypt.al
+C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\encrypt.al
+C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\init.al

database/perl/vendor/lib/auto/Crypt/CAST5_PP/autosplit.ix

@@ -0,0 +1,7 @@
+# Index created by AutoSplit for blib\lib\Crypt\CAST5_PP.pm
+#    (file acts as timestamp)
+package Crypt::CAST5_PP;
+sub init  ;
+sub encrypt  ;
+sub decrypt  ;
+1;

database/perl/vendor/lib/auto/Crypt/CAST5_PP/decrypt.al

@@ -0,0 +1,47 @@
+# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::CAST5_PP;
+
+#line 223 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\decrypt.al)"
+sub decrypt {
+  use strict;
+  use integer;
+  my ($cast5, $block) = @_;
+  croak "Block size must be 8" if length($block) != 8;
+
+  my $decrypt = $cast5->{decrypt};
+  unless ($decrypt) {
+    my $key = $cast5->{key} or croak "Call init() first";
+    my $rounds = $cast5->{rounds};
+    my $f = 'sub{my($r,$l,$i)=unpack"N2",$_[0];';
+
+    my ($l, $r) = qw( $r $l );
+    my ($op1, $op2, $op3) = qw( - + ^ );
+    foreach (1 .. $rounds%3) { ($op1, $op2, $op3) = ($op2, $op3, $op1) }
+    foreach my $round (1 .. $rounds) {
+      my $km = $key->[$rounds-$round];
+      my $kr = $key->[$rounds-$round+16];
+
+      my $rot = "";
+      if ($kr) {
+        my $mask = ~(~0<<$kr) & 0xffffffff;
+        my $kr2 = 32-$kr;
+        $rot = "\$i=\$i<<$kr|\$i>>$kr2&$mask;"
+      }
+
+      $f .= "\$i=$km$op1$r;$rot$l^=((\$s1[\$i>>24&255]$op2\$s2[\$i>>16&255])$op3\$s3[\$i>>8&255])$op1\$s4[\$i&255];";
+      ($l, $r) = ($r, $l);
+      ($op1, $op2, $op3) = ($op3, $op1, $op2);
+    }
+
+    $f .= 'pack"N2",$l&0xffffffff,$r&0xffffffff}';
+    $cast5->{decrypt} = $decrypt = eval $f;
+  }
+
+  return $decrypt->($block);
+} # decrypt
+
+# end CAST5_PP.pm
+1;
+# end of Crypt::CAST5_PP::decrypt

database/perl/vendor/lib/auto/Crypt/CAST5_PP/encrypt.al

@@ -0,0 +1,44 @@
+# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::CAST5_PP;
+
+#line 187 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\encrypt.al)"
+sub encrypt {
+  use strict;
+  use integer;
+  my ($cast5, $block) = @_;
+  croak "Block size must be 8" if length($block) != 8;
+
+  my $encrypt = $cast5->{encrypt};
+  unless ($encrypt) {
+    my $key = $cast5->{key} or croak "Call init() first";
+    my $f = 'sub{my($l,$r,$i)=unpack"N2",$_[0];';
+
+    my ($l, $r) = qw( $l $r );
+    my ($op1, $op2, $op3) = qw( + ^ - );
+    foreach my $round (0 .. $cast5->{rounds}-1) {
+      my $km = $key->[$round];
+      my $kr = $key->[$round+16];
+
+      my $rot = "";
+      if ($kr) {
+        my $mask = ~(~0<<$kr) & 0xffffffff;
+        my $kr2 = 32-$kr;
+        $rot = "\$i=\$i<<$kr|\$i>>$kr2&$mask;"
+      }
+
+      $f .= "\$i=$km$op1$r;$rot$l^=((\$s1[\$i>>24&255]$op2\$s2[\$i>>16&255])$op3\$s3[\$i>>8&255])$op1\$s4[\$i&255];";
+      ($l, $r) = ($r, $l);
+      ($op1, $op2, $op3) = ($op2, $op3, $op1);
+    }
+
+    $f .= 'pack"N2",$r&0xffffffff,$l&0xffffffff}';
+    $cast5->{encrypt} = $encrypt = eval $f;
+  }
+
+  return $encrypt->($block);
+} # encrypt
+
+# end of Crypt::CAST5_PP::encrypt
+1;

database/perl/vendor/lib/auto/Crypt/CAST5_PP/init.al

@@ -0,0 +1,69 @@
+# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Crypt::CAST5_PP;
+
+#line 126 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\init.al)"
+sub init {
+  use strict;
+  use integer;
+  my ($cast5, $key) = @_;
+  croak "Key length must be 40 to 128 bits"
+      if length($key) < 5 || length($key) > 16;
+  require Crypt::CAST5_PP::Tables;
+
+  # untaint the key. this keeps the evals from blowing up later.
+  # arguably, a tainted key should result in tainted output. oh well.
+  $key =~ /^(.*)$/s and $key = $1;
+
+  # null-pad the key to 16 bytes, and then split it into 32-bit chunks
+  my ($s, $t, $u, $v) = unpack "N4", pack "a16", $key;
+
+  # compute the key schedule
+  # don't try to read this -- it's generated by mkschedule
+  my ($w, $x, $y, $z, @k);
+  for (1..2) {
+    $w=$s^$s5[$v>>16&255]^$s6[$v&255]^$s7[$v>>24&255]^$s8[$v>>8&255]^$s7[$u>>24&255];
+    $x=$u^$s5[$w>>24&255]^$s6[$w>>8&255]^$s7[$w>>16&255]^$s8[$w&255]^$s8[$u>>8&255];
+    $y=$v^$s5[$x&255]^$s6[$x>>8&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s5[$u>>16&255];
+    $z=$t^$s5[$y>>8&255]^$s6[$y>>16&255]^$s7[$y&255]^$s8[$y>>24&255]^$s6[$u&255];
+    push@k,$s5[$y>>24&255]^$s6[$y>>16&255]^$s7[$x&255]^$s8[$x>>8&255]^$s5[$w>>8&255];
+    push@k,$s5[$y>>8&255]^$s6[$y&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s6[$x>>8&255];
+    push@k,$s5[$z>>24&255]^$s6[$z>>16&255]^$s7[$w&255]^$s8[$w>>8&255]^$s7[$y>>16&255];
+    push@k,$s5[$z>>8&255]^$s6[$z&255]^$s7[$w>>16&255]^$s8[$w>>24&255]^$s8[$z>>24&255];
+    $s=$y^$s5[$x>>16&255]^$s6[$x&255]^$s7[$x>>24&255]^$s8[$x>>8&255]^$s7[$w>>24&255];
+    $t=$w^$s5[$s>>24&255]^$s6[$s>>8&255]^$s7[$s>>16&255]^$s8[$s&255]^$s8[$w>>8&255];
+    $u=$x^$s5[$t&255]^$s6[$t>>8&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s5[$w>>16&255];
+    $v=$z^$s5[$u>>8&255]^$s6[$u>>16&255]^$s7[$u&255]^$s8[$u>>24&255]^$s6[$w&255];
+    push@k,$s5[$s&255]^$s6[$s>>8&255]^$s7[$v>>24&255]^$s8[$v>>16&255]^$s5[$u>>24&255];
+    push@k,$s5[$s>>16&255]^$s6[$s>>24&255]^$s7[$v>>8&255]^$s8[$v&255]^$s6[$v>>16&255];
+    push@k,$s5[$t&255]^$s6[$t>>8&255]^$s7[$u>>24&255]^$s8[$u>>16&255]^$s7[$s&255];
+    push@k,$s5[$t>>16&255]^$s6[$t>>24&255]^$s7[$u>>8&255]^$s8[$u&255]^$s8[$t&255];
+    $w=$s^$s5[$v>>16&255]^$s6[$v&255]^$s7[$v>>24&255]^$s8[$v>>8&255]^$s7[$u>>24&255];
+    $x=$u^$s5[$w>>24&255]^$s6[$w>>8&255]^$s7[$w>>16&255]^$s8[$w&255]^$s8[$u>>8&255];
+    $y=$v^$s5[$x&255]^$s6[$x>>8&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s5[$u>>16&255];
+    $z=$t^$s5[$y>>8&255]^$s6[$y>>16&255]^$s7[$y&255]^$s8[$y>>24&255]^$s6[$u&255];
+    push@k,$s5[$w&255]^$s6[$w>>8&255]^$s7[$z>>24&255]^$s8[$z>>16&255]^$s5[$y>>16&255];
+    push@k,$s5[$w>>16&255]^$s6[$w>>24&255]^$s7[$z>>8&255]^$s8[$z&255]^$s6[$z>>24&255];
+    push@k,$s5[$x&255]^$s6[$x>>8&255]^$s7[$y>>24&255]^$s8[$y>>16&255]^$s7[$w>>8&255];
+    push@k,$s5[$x>>16&255]^$s6[$x>>24&255]^$s7[$y>>8&255]^$s8[$y&255]^$s8[$x>>8&255];
+    $s=$y^$s5[$x>>16&255]^$s6[$x&255]^$s7[$x>>24&255]^$s8[$x>>8&255]^$s7[$w>>24&255];
+    $t=$w^$s5[$s>>24&255]^$s6[$s>>8&255]^$s7[$s>>16&255]^$s8[$s&255]^$s8[$w>>8&255];
+    $u=$x^$s5[$t&255]^$s6[$t>>8&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s5[$w>>16&255];
+    $v=$z^$s5[$u>>8&255]^$s6[$u>>16&255]^$s7[$u&255]^$s8[$u>>24&255]^$s6[$w&255];
+    push@k,$s5[$u>>24&255]^$s6[$u>>16&255]^$s7[$t&255]^$s8[$t>>8&255]^$s5[$s&255];
+    push@k,$s5[$u>>8&255]^$s6[$u&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s6[$t&255];
+    push@k,$s5[$v>>24&255]^$s6[$v>>16&255]^$s7[$s&255]^$s8[$s>>8&255]^$s7[$u>>24&255];
+    push@k,$s5[$v>>8&255]^$s6[$v&255]^$s7[$s>>16&255]^$s8[$s>>24&255]^$s8[$v>>16&255];
+  }
+
+  for (16..31) { $k[$_] &= 31 }
+  delete $cast5->{encrypt};
+  delete $cast5->{decrypt};
+  $cast5->{rounds} = length($key) <= 10 ? 12 : 16;
+  $cast5->{key} = \@k;
+  return $cast5;
+} # init
+
+# end of Crypt::CAST5_PP::init
+1;

database/perl/vendor/lib/auto/Crypt/CBC/.packlist

@@ -0,0 +1 @@
+C:\strawberry\perl\vendor\lib\Crypt\CBC.pm

database/perl/vendor/lib/auto/Crypt/DES/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\DES.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\DES\DES.xs.dll

database/perl/vendor/lib/auto/Crypt/DES_EDE3/.packlist

@@ -0,0 +1 @@
+C:\strawberry\perl\vendor\lib\Crypt\DES_EDE3.pm

database/perl/vendor/lib/auto/Crypt/DSA/.packlist

@@ -0,0 +1,7 @@
+C:\strawberry\perl\vendor\lib\Crypt\DSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\Key.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\KeyChain.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\Key\PEM.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\Key\SSH2.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\Signature.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\Util.pm

database/perl/vendor/lib/auto/Crypt/DSA/GMP/.packlist

@@ -0,0 +1,7 @@
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\Key.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\KeyChain.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\Key\PEM.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\Key\SSH2.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\Signature.pm
+C:\strawberry\perl\vendor\lib\Crypt\DSA\GMP\Util.pm

database/perl/vendor/lib/auto/Crypt/IDEA/.packlist

@@ -0,0 +1,3 @@
+C:\strawberry\perl\vendor\lib\Crypt\IDEA.pm
+C:\strawberry\perl\vendor\lib\Crypt\IDEA.pod
+C:\strawberry\perl\vendor\lib\auto\Crypt\IDEA\IDEA.xs.dll

database/perl/vendor/lib/auto/Crypt/OpenPGP/.packlist

@@ -0,0 +1,41 @@
+C:\strawberry\perl\bin\pgplet
+C:\strawberry\perl\bin\pgplet.bat
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Armour.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Buffer.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\CFB.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Certificate.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Cipher.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Ciphertext.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Compressed.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Config.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Constants.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Digest.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\ErrorHandler.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyBlock.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyRing.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyServer.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\DSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\ElGamal.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\RSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\DSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\ElGamal.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\RSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\MDC.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Marker.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Message.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\OnePassSig.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\PacketFactory.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Plaintext.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\S2k.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\SKSessionKey.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\SessionKey.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Signature.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Signature\SubPacket.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Trust.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\UserID.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Util.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Words.pm

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

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\AES.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\AES\AES.xs.dll

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

@@ -0,0 +1,3 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\Bignum.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\Bignum\CTX.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\Bignum\Bignum.xs.dll

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

@@ -0,0 +1,3 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\DSA.pm
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\DSA\Signature.pod
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\DSA\DSA.xs.dll

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

@@ -0,0 +1 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\Guess.pm

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;

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

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\Random.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\Random\Random.xs.dll

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

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\OpenSSL\X509.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\OpenSSL\X509\X509.xs.dll

database/perl/vendor/lib/auto/Crypt/RC4/.packlist

@@ -0,0 +1 @@
+C:\strawberry\perl\vendor\lib\Crypt\RC4.pm

database/perl/vendor/lib/auto/Crypt/RC6/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\RC6.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\RC6\RC6.xs.dll

database/perl/vendor/lib/auto/Crypt/RIPEMD160/.packlist

@@ -0,0 +1,4 @@
+C:\strawberry\perl\vendor\lib\Crypt\RIPEMD160.pm
+C:\strawberry\perl\vendor\lib\Crypt\RIPEMD160\MAC.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\RIPEMD160\RIPEMD160.xs.dll
+C:\strawberry\perl\vendor\lib\auto\Crypt\RIPEMD160\autosplit.ix

database/perl/vendor/lib/auto/Crypt/RIPEMD160/autosplit.ix

@@ -0,0 +1,3 @@
+# Index created by AutoSplit for blib\lib\Crypt\RIPEMD160.pm
+#    (file acts as timestamp)
+1;

database/perl/vendor/lib/auto/Crypt/Random/Seed/.packlist

@@ -0,0 +1 @@
+C:\strawberry\perl\vendor\lib\Crypt\Random\Seed.pm

database/perl/vendor/lib/auto/Crypt/Random/TESHA2/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\Random\TESHA2.pm
+C:\strawberry\perl\vendor\lib\Crypt\Random\TESHA2\Config.pm

database/perl/vendor/lib/auto/Crypt/Rijndael/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\Rijndael.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\Rijndael\Rijndael.xs.dll

database/perl/vendor/lib/auto/Crypt/SSLeay/.packlist

@@ -0,0 +1,9 @@
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\CTX.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\Conn.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\Err.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\MainContext.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\Version.pm
+C:\strawberry\perl\vendor\lib\Crypt\SSLeay\X509.pm
+C:\strawberry\perl\vendor\lib\Net\SSL.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\SSLeay\SSLeay.xs.dll

database/perl/vendor/lib/auto/Crypt/Serpent/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\Serpent.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\Serpent\Serpent.xs.dll

database/perl/vendor/lib/auto/Crypt/Twofish/.packlist

@@ -0,0 +1,2 @@
+C:\strawberry\perl\vendor\lib\Crypt\Twofish.pm
+C:\strawberry\perl\vendor\lib\auto\Crypt\Twofish\Twofish.xs.dll