summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Crypt/RIPEMD160
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/Crypt/RIPEMD160
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff)
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Crypt/RIPEMD160')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Crypt/RIPEMD160/MAC.pm162
1 files changed, 0 insertions, 162 deletions
diff --git a/Master/tlpkg/tlperl/lib/Crypt/RIPEMD160/MAC.pm b/Master/tlpkg/tlperl/lib/Crypt/RIPEMD160/MAC.pm
deleted file mode 100755
index 092d4a45a7b..00000000000
--- a/Master/tlpkg/tlperl/lib/Crypt/RIPEMD160/MAC.pm
+++ /dev/null
@@ -1,162 +0,0 @@
-package Crypt::RIPEMD160::MAC;
-
-use Crypt::RIPEMD160 0.03;
-
-use strict;
-use vars qw($VERSION @ISA @EXPORT);
-
-require Exporter;
-@ISA = qw(Exporter);
-
-# Items to export into callers namespace by default
-@EXPORT = qw();
-$VERSION = '0.01';
-
-sub new {
- my($pkg, $key) = @_;
-
- my $self = {
- 'key' => $key,
- 'hash' => new Crypt::RIPEMD160,
- 'k_ipad' => chr(0x36) x 64,
- 'k_opad' => chr(0x5c) x 64,
- };
-
- bless $self, $pkg;
-
- if (length($self->{'key'}) > 64) {
- $self->{'key'} = Crypt::RIPEMD160->hash($self->{'key'});
- }
-
- $self->{'k_ipad'} ^= $self->{'key'};
- $self->{'k_opad'} ^= $self->{'key'};
-
- $self->{'hash'}->add($self->{'k_ipad'});
-
- return $self;
-}
-
-sub reset {
- my($self) = @_;
-
- $self->{'hash'}->reset();
- $self->{'k_ipad'} = chr(0x36) x 64;
- $self->{'k_opad'} = chr(0x5c) x 64;
-
- if (length($self->{'key'}) > 64) {
- $self->{'key'} = Crypt::RIPEMD160->hash($self->{'key'});
- }
-
- $self->{'k_ipad'} ^= $self->{'key'};
- $self->{'k_opad'} ^= $self->{'key'};
-
- $self->{'hash'}->add($self->{'k_ipad'});
-
- return $self;
-}
-
-sub add {
- my($self, @data) = @_;
-
- $self->{'hash'}->add(@data);
-}
-
-sub addfile
-{
- no strict 'refs';
- my ($self, $handle) = @_;
- my ($package, $file, $line) = caller;
- my ($data);
-
- if (!ref($handle)) {
- $handle = $package . "::" . $handle unless ($handle =~ /(\:\:|\')/);
- }
- while (read($handle, $data, 8192)) {
- $self->{'hash'}->add($data);
- }
-}
-
-sub mac {
- my($self) = @_;
-
- my($inner) = $self->{'hash'}->digest();
-
- my($outer) = Crypt::RIPEMD160->hash($self->{'k_opad'}.$inner);
-
- $self->{'key'} = "";
- $self->{'k_ipad'} = "";
- $self->{'k_opad'} = "";
-
- return($outer);
-}
-
-sub hexmac {
- my($self) = @_;
-
- my($inner) = $self->{'hash'}->digest();
-
- my($outer) = Crypt::RIPEMD160->hexhash($self->{'k_opad'}.$inner);
-
- $self->{'key'} = "";
- $self->{'k_ipad'} = "";
- $self->{'k_opad'} = "";
-
- return($outer);
-}
-
-1;
-__END__
-# Below is the stub of documentation for your module. You better edit it!
-
-=head1 NAME
-
-Crypt::RIPEMD160::MAC - Perl extension for RIPEMD-160 MAC function
-
-=head1 SYNOPSIS
-
- use Crypt::RIPEMD160::MAC;
-
- $key = "This is the secret key";
-
- $mac = new Crypt::RIPEMD160::MAC($key);
-
- $mac->reset();
-
- $mac->add(LIST);
- $mac->addfile(HANDLE);
-
- $digest = $mac->mac();
- $string = $mac->hexmac();
-
-=head1 DESCRIPTION
-
-The B<Crypt::RIPEMD160> module allows you to use the RIPEMD160
-Message Digest algorithm from within Perl programs.
-
-=head1 EXAMPLES
-
- use Crypt::RIPEMD160;
-
- $ripemd160 = new Crypt::RIPEMD160;
- $ripemd160->add('foo', 'bar');
- $ripemd160->add('baz');
- $digest = $ripemd160->digest();
-
- print("Digest is " . unpack("H*", $digest) . "\n");
-
-The above example would print out the message
-
- Digest is f137cb536c05ec2bc97e73327937b6e81d3a4cc9
-
-provided that the implementation is working correctly.
-
-=head1 AUTHOR
-
-The RIPEMD-160 interface was written by Christian H. Geuer
-(C<christian.geuer@crypto.gun.de>).
-
-=head1 SEE ALSO
-
-MD5(3pm) and SHA(1).
-
-=cut