Triple-des ede encryption/decryption
use Crypt::DES_EDE3;
my $ede3 = Crypt::DES_EDE3->new($key);
$ede3->encrypt($block);
Crypt::DES_EDE3 implements \s-1DES-EDE3\s0 encryption. This is triple-DES encryption where an encrypt operation is encrypt-decrypt-encrypt, and decrypt is decrypt-encrypt-decrypt. This implementation uses Crypt::DES to do its dirty \s-1DES\s0 work, and simply provides a wrapper around that module: setting up the individual \s-1DES\s0 ciphers, initializing the keys, and performing the encryption/decryption steps.
\s-1DES-EDE3\s0 encryption requires a key size of 24 bytes.
You're probably best off not using this module directly, as the encrypt and decrypt methods expect 8-octet blocks. You might want to use the module in conjunction with Crypt::CBC, for example. This would be \s-1DES-EDE3-CBC\s0, or triple-DES in outer \s-1CBC\s0 mode.
\$1
Creates a new Crypt::DES_EDE3 object (really, a collection of three \s-1DES\s0 ciphers), and initializes each cipher with part of $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. Encrypts an 8-byte block of data $block using the three \s-1DES\s0 ciphers in an encrypt-decrypt-encrypt operation.
Returns the encrypted block. Decrypts an 8-byte block of data $block using the three \s-1DES\s0 ciphers in a decrypt-encrypt-decrypt operation.
Returns the decrypted block. Returns the block size (8). Returns the key size (24).
Crypt::DES_EDE3 is free software; you may redistribute it and/or modify it under the same terms as Perl itself.
Crypt::DES_EDE3 is Copyright 2001 Benjamin Trott, [email protected]. All rights reserved.