Blowfish.pm

package Crypt::OpenSSL::Blowfish;

use strict;
use Carp;

use vars qw/$VERSION @ISA/;

require DynaLoader;
@ISA = qw/DynaLoader/;

$VERSION = '0.02';

bootstrap Crypt::OpenSSL::Blowfish $VERSION;

sub blocksize   {  8; }
sub keysize     {  0; }
sub min_keysize {  8; }
sub max_keysize { 56; }

sub new {
    my $self = {};
    bless $self, shift;
    $self->{ks} = Crypt::OpenSSL::Blowfish::init(shift);

    $self;
}

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

    Crypt::OpenSSL::Blowfish::crypt($data, $self->{ks}, 0);

    $data;
}

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

    Crypt::OpenSSL::Blowfish::crypt($data, $self->{ks}, 1);

    $data;
}

1;

__END__

=head1 NAME

Crypt::OpenSSL::Blowfish - Blowfish Algorithm using OpenSSL

=head1 SYNOPSIS

    use Crypt::OpenSSL::Blowfish;
    my $cipher = new Crypt::OpenSSL::Blowfish $key; 
    my $ciphertext = $cipher->encrypt($plaintext);
    $plaintext = $cipher->decrypt($ciphertext);

=head1 DESCRIPTION

Crypt::OpenSSL::Blowfish implements the Blowfish Algorithm using functions contained in the OpenSSL crypto library.
Crypt::OpenSSL::Blowfish has an interface similar to Crypt::Blowfish, but produces different result than Crypt::Blowfish.

=head1 SEE ALSO

L<Crypt::Blowfish>

http://www.openssl.org/

=head1 AUTHOR

Vitaly Kramskikh, E<lt>vkramskih@cpan.orgE<gt>

=cut