Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
AuthEnc	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
CAST5_PP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Checksum	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Cipher	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DSA	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Digest	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mac	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mode	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
OpenPGP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
OpenSSL	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PK	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PRNG	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
RIPEMD160	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
RSA	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Random	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
SSLeay	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Stream	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
AuthEnc.pm	152 B	-rw-rw-rw-	2020-08-25 11:02
Blowfish.pm	4.66 KB	-rw-rw-rw-	2013-07-24 00:48
CAST5_PP.pm	8.57 KB	-rw-rw-rw-	2006-07-01 20:57
CBC.pm	36.75 KB	-rw-rw-rw-	2013-07-31 00:01
Checksum.pm	2.2 KB	-rw-rw-rw-	2020-08-25 11:02
Cipher.pm	4.09 KB	-rw-rw-rw-	2020-08-25 11:02
DES.pm	3.43 KB	-rw-rw-rw-	2013-07-24 00:41
DES_EDE3.pm	2.68 KB	-rw-rw-rw-	2001-09-15 07:41
DSA.pm	6.82 KB	-rw-rw-rw-	2011-06-17 05:46
Digest.pm	9.12 KB	-rw-rw-rw-	2020-08-25 11:02
IDEA.pm	1.31 KB	-rw-rw-rw-	2013-07-24 00:46
IDEA.pod	1.83 KB	-rw-rw-rw-	2005-12-08 19:38
KeyDerivation.pm	3.65 KB	-rw-rw-rw-	2020-08-25 11:02
Mac.pm	711 B	-rw-rw-rw-	2020-08-25 11:02
Misc.pm	14.59 KB	-rw-rw-rw-	2020-08-25 11:02
Mode.pm	146 B	-rw-rw-rw-	2020-08-25 11:02
OpenPGP.pm	58.89 KB	-rw-rw-rw-	2015-08-16 15:28
PK.pm	505 B	-rw-rw-rw-	2020-08-25 11:02
PRNG.pm	6.49 KB	-rw-rw-rw-	2020-08-25 11:02
RC4.pm	4.78 KB	-rw-rw-rw-	2001-12-13 23:41
RC6.pm	1.37 KB	-rw-rw-rw-	2002-03-17 00:50
RIPEMD160.pm	7.24 KB	-rw-rw-rw-	2020-10-22 03:06
RSA.pm	17.05 KB	-rw-rw-rw-	2017-04-27 01:10
Rijndael.pm	3.06 KB	-rw-rw-rw-	2020-10-10 23:28
SSLeay.pm	17.11 KB	-rw-rw-rw-	2014-04-24 19:39
Serpent.pm	2.15 KB	-rw-rw-rw-	2002-03-30 19:05
Twofish.pm	3.29 KB	-rw-rw-rw-	2020-11-25 06:49

Rename

# $Id: DES_EDE3.pm,v 1.2 2001/09/15 03:41:09 btrott Exp $

package Crypt::DES_EDE3;
use strict;

use Crypt::DES;
use vars qw( $VERSION );
$VERSION = '0.01';

sub new {
    my $class = shift;
    my $ede3 = bless {}, $class;
    $ede3->init(@_);
}

sub keysize   { 24 }
sub blocksize { 8 }

sub init {
    my $ede3 = shift;
    my($key) = @_;
    for my $i (1..3) {
        $ede3->{"des$i"} = Crypt::DES->new(substr $key, 8*($i-1), 8);
    }
    $ede3;
}

sub encrypt {
    my($ede3, $block) = @_;
    $ede3->{des3}->encrypt(
        $ede3->{des2}->decrypt(
            $ede3->{des1}->encrypt($block)
        )
    );
}

sub decrypt {
    my($ede3, $block) = @_;
    $ede3->{des1}->decrypt(
        $ede3->{des2}->encrypt(
            $ede3->{des3}->decrypt($block)
        )
    );
}

1;
__END__

=head1 NAME

Crypt::DES_EDE3 - Triple-DES EDE encryption/decryption

=head1 SYNOPSIS

use Crypt::DES_EDE3;
    my $ede3 = Crypt::DES_EDE3->new($key);
    $ede3->encrypt($block);

=head1 DESCRIPTION

I<Crypt::DES_EDE3> implements DES-EDE3 encryption. This is triple-DES
encryption where an encrypt operation is encrypt-decrypt-encrypt, and
decrypt is decrypt-encrypt-decrypt. This implementation uses I<Crypt::DES>
to do its dirty DES work, and simply provides a wrapper around that
module: setting up the individual DES ciphers, initializing the keys,
and performing the encryption/decryption steps.

DES-EDE3 encryption requires a key size of 24 bytes.

You're probably best off not using this module directly, as the I<encrypt>
and I<decrypt> methods expect 8-octet blocks. You might want to use the
module in conjunction with I<Crypt::CBC>, for example. This would be
DES-EDE3-CBC, or triple-DES in outer CBC mode.

=head1 USAGE

=head2 $ede3 = Crypt::DES_EDE3->new($key)

Creates a new I<Crypt::DES_EDE3> object (really, a collection of three DES
ciphers), and initializes each cipher with part of I<$key>, which should be
at least 24 bytes. If it's longer than 24 bytes, the extra bytes will be
ignored.

Returns the new object.

=head2 $ede3->encrypt($block)

Encrypts an 8-byte block of data I<$block> using the three DES ciphers in
an encrypt-decrypt-encrypt operation.

Returns the encrypted block.

=head2 $ede3->decrypt($block)

Decrypts an 8-byte block of data I<$block> using the three DES ciphers in
a decrypt-encrypt-decrypt operation.

Returns the decrypted block.

=head2 $ede3->blocksize

Returns the block size (8).

=head2 $ede3->keysize

Returns the key size (24).

=head1 LICENSE

Crypt::DES_EDE3 is free software; you may redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR & COPYRIGHTS

=cut