diff options
author | markm <markm@FreeBSD.org> | 2003-01-28 22:12:30 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2003-01-28 22:12:30 +0000 |
commit | ad7148cc98d85da1fe9f1dde3e946c8c62e2df65 (patch) | |
tree | a5d4f72547fd71216037dd74279b320967fea5ed /crypto/openssl/perl/OpenSSL.pm | |
parent | dd0fdd4b43fcc3d6a8fc919f18ade09782d98ac1 (diff) | |
download | FreeBSD-src-ad7148cc98d85da1fe9f1dde3e946c8c62e2df65.zip FreeBSD-src-ad7148cc98d85da1fe9f1dde3e946c8c62e2df65.tar.gz |
Remove files no longer on OpenSSL 0.9.7. crypto/des/rnd_keys.c is
retained as it is still used.
Diffstat (limited to 'crypto/openssl/perl/OpenSSL.pm')
-rw-r--r-- | crypto/openssl/perl/OpenSSL.pm | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/crypto/openssl/perl/OpenSSL.pm b/crypto/openssl/perl/OpenSSL.pm deleted file mode 100644 index ae7265a..0000000 --- a/crypto/openssl/perl/OpenSSL.pm +++ /dev/null @@ -1,90 +0,0 @@ -## -## OpenSSL.pm -## - -package OpenSSL; - -require 5.000; -use Exporter; -use DynaLoader; - -@ISA = qw(Exporter DynaLoader); -@EXPORT = qw(); - -$VERSION = '0.94'; -bootstrap OpenSSL; - -@OpenSSL::BN::ISA = qw(OpenSSL::ERR); -@OpenSSL::MD::ISA = qw(OpenSSL::ERR); -@OpenSSL::Cipher::ISA = qw(OpenSSL::ERR); -@OpenSSL::SSL::CTX::ISA = qw(OpenSSL::ERR); -@OpenSSL::BIO::ISA = qw(OpenSSL::ERR); -@OpenSSL::SSL::ISA = qw(OpenSSL::ERR); - -@BN::ISA = qw(OpenSSL::BN); -@MD::ISA = qw(OpenSSL::MD); -@Cipher::ISA = qw(OpenSSL::Cipher); -@SSL::ISA = qw(OpenSSL::SSL); -@SSL::CTX::ISA = qw(OpenSSL::SSL::CTX); -@BIO::ISA = qw(OpenSSL::BIO); - -@OpenSSL::MD::names = qw( - md2 md5 sha sha1 ripemd160 mdc2 -); - -@OpenSSL::Cipher::names = qw( - des-ecb des-cfb des-ofb des-cbc - des-ede des-ede-cfb des-ede-ofb des-ede-cbc - des-ede3 des-ede3-cfb des-ede3-ofb des-ede3-cbc - desx-cbc rc4 rc4-40 - idea-ecb idea-cfb idea-ofb idea-cbc - rc2-ecb rc2-cbc rc2-40-cbc rc2-cfb rc2-ofb - bf-ecb bf-cfb bf-ofb bf-cbc - cast5-ecb cast5-cfb cast5-ofb cast5-cbc - rc5-ecb rc5-cfb rc5-ofb rc5-cbc -); - -sub OpenSSL::SSL::CTX::new_ssl { - OpenSSL::SSL::new($_[0]); -} - -sub OpenSSL::ERR::error { - my($o) = @_; - my($s, $ret); - - while (($s = $o->get_error()) != 0) { - $ret.=$s."\n"; - } - return($ret); -} - -@OpenSSL::Cipher::aliases = qw( - des desx des3 idea rc2 bf cast -); - -package OpenSSL::BN; - -sub bnfix { - (ref($_[0]) ne "OpenSSL::BN") ? OpenSSL::BN::dec2bn($_[0]) : $_[0]; -} - -use overload -"=" => sub { dup($_[0]); }, -"+" => sub { add($_[0],$_[1]); }, -"-" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; OpenSSL::BN::sub($_[0],$_[1]); }, -"*" => sub { mul($_[0],$_[1]); }, -"**" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; OpenSSL::BN::exp($_[0],$_[1]); }, -"/" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; (div($_[0],$_[1]))[0]; }, -"%" => sub { ($_[1],$_[0])=($_[0],$_[1]) if $_[2]; mod($_[0],$_[1]); }, -"<<" => sub { lshift($_[0],$_[1]); }, -">>" => sub { rshift($_[0],$_[1]); }, -"<=>" => sub { OpenSSL::BN::cmp($_[0],$_[1]); }, -'""' => sub { bn2dec($_[0]); }, -'0+' => sub { dec2bn($_[0]); }, -"bool" => sub { ref($_[0]) eq "OpenSSL::BN"; }; - -sub OpenSSL::BIO::do_accept { - OpenSSL::BIO::do_handshake(@_); -} - -1; |