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

package Crypt::Twofish;

use strict;
use Carp;
use DynaLoader;
use vars qw( @ISA $VERSION );

@ISA = qw( DynaLoader );
$VERSION = '2.18';

bootstrap Crypt::Twofish $VERSION;

sub keysize   () { 16 }
sub blocksize () { 16 }

sub new
{
    my ($class, $key) = @_;

croak "Usage: ".__PACKAGE__."->new(\$key)" unless $key;
    return Crypt::Twofish::setup($key);
}

sub encrypt
{
    my ($self, $data) = @_;

croak "Usage: \$cipher->encrypt(\$data)" unless ref($self) && $data;
    $self->crypt($data, $data, 0);
}

sub decrypt
{
    my ($self, $data) = @_;

croak "Usage: \$cipher->decrypt(\$data)" unless ref($self) && $data;
    $self->crypt($data, $data, 1);
}

# The functions below provide an interface that is call-compatible with
# the Crypt::Twofish 1.0 module. They do not, however, behave in exactly
# the same way: they don't pad keys, and cannot decrypt ciphertext which
# was written by the old module.
#
# (This interface is deprecated. Please use the documented interface
# instead).

sub Encipher
{
    my ($key, $keylength, $plaintext) = @_;

require Crypt::CBC;
    my $cipher = Crypt::CBC->new($key, "Twofish");
    return $cipher->encrypt($plaintext);
}

sub Decipher
{
    my ($key, $keylength, $ciphertext, $cipherlength) = @_;

require Crypt::CBC;
    my $cipher = Crypt::CBC->new($key, "Twofish");
    return $cipher->decrypt($ciphertext);
}

sub LastError    { "";    }
sub CheckTwofish { undef; }

__END__

=head1 NAME

Crypt::Twofish - The Twofish Encryption Algorithm

=head1 SYNOPSIS

use Crypt::Twofish;

$cipher = Crypt::Twofish->new($key);

$ciphertext = $cipher->encrypt($plaintext);

$plaintext  = $cipher->decrypt($ciphertext);

=head1 DESCRIPTION

Twofish is a 128-bit symmetric block cipher with a variable length (128,
192, or 256-bit) key, developed by Counterpane Labs. It is unpatented
and free for all uses, as described at
<URL:http://www.counterpane.com/twofish.html>.

This module implements Twofish encryption. It supports the Crypt::CBC
interface, with the functions described below. It also provides an
interface that is call-compatible with Crypt::Twofish 1.0, but its use
in new code is strongly discouraged.

=head2 Functions

=over

=item blocksize

Returns the size (in bytes) of the block (16, in this case).

=item keysize

Returns the size (in bytes) of the key. Although the module understands
128, 192, and 256-bit keys, it returns 16 for compatibility with
Crypt::CBC.

=item new($key)

This creates a new Crypt::Twofish object with the specified key (which
should be 16, 24, or 32 bytes long).

=item encrypt($data)

Encrypts blocksize() bytes of $data and returns the corresponding
ciphertext.

=item decrypt($data)

Decrypts blocksize() bytes of $data and returns the corresponding
plaintext.

=back

=head1 SEE ALSO

Crypt::CBC, Crypt::Blowfish, Crypt::TEA

=head1 ACKNOWLEDGEMENTS

=over 4

=item Nishant Kakani

For writing Crypt::Twofish 1.0 (this version is a complete rewrite).

=item Tony Cook

For making the module work under Activeperl, testing on several
platforms, and suggesting that I probe for features via %Config.

=back

=head1 AUTHOR

Abhijit Menon-Sen <ams@toroid.org>

This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.