Import of VKRAMSKIH/Crypt-OpenSSL-Blowfish-0.01 from CPAN.

gitpan-cpan-distribution: Crypt-OpenSSL-Blowfish
gitpan-cpan-version:      0.01
gitpan-cpan-path:         VKRAMSKIH/Crypt-OpenSSL-Blowfish-0.01.tar.gz
gitpan-cpan-author:       VKRAMSKIH
gitpan-cpan-maturity:     released

Author: Vitaly Kramskikh

Blowfish.pm

@@ -0,0 +1,73 @@
+package Crypt::OpenSSL::Blowfish;
+
+use strict;
+use Carp;
+
+use vars qw/$VERSION @ISA/;
+
+require DynaLoader;
+@ISA = qw/DynaLoader/;
+
+$VERSION = '0.01';
+
+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::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.
+It 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

Blowfish.xs

@@ -0,0 +1,42 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include <openssl/blowfish.h>
+
+MODULE = Crypt::OpenSSL::Blowfish PACKAGE = Crypt::OpenSSL::Blowfish PREFIX = blowfish_
+PROTOTYPES: DISABLE
+
+char * blowfish_init(key)
+    unsigned char * key = NO_INIT
+    STRLEN key_len = NO_INIT
+    CODE:
+    {
+        char ks[8192];
+        key = (unsigned char *) SvPV(ST(0), key_len);
+        if (key_len < 8 || key_len > 56) {
+            croak("Invalid length key");
+        }
+        
+        BF_set_key((BF_KEY *)ks, key_len, key);
+        ST(0) = sv_2mortal(newSVpv(ks, sizeof(ks)));
+    }
+
+void blowfish_crypt(data, ks, dir)
+    char * data = NO_INIT
+    STRLEN data_len = NO_INIT
+    char * ks
+    int dir
+    CODE:
+    {
+        data = (char *) SvPV(ST(0), data_len);
+        if (data_len != 8) {
+            croak("data must be 8 bytes long");
+        }
+        
+        if (dir) {
+            BF_decrypt((BF_LONG *)data, (BF_KEY *)ks);
+        } else {
+            BF_encrypt((BF_LONG *)data, (BF_KEY *)ks);
+        }
+    }

Changes

@@ -0,0 +1,4 @@
+Revision history for Perl extension Crypt::OpenSSL::Blowfish.
+
+0.01  Wed Jul  1 20:50:04 2009
+	- original version

MANIFEST

@@ -0,0 +1,7 @@
+Changes
+Makefile.PL
+MANIFEST
+README
+t/blowfish.t
+Blowfish.pm
+Blowfish.xs

Makefile.PL

@@ -0,0 +1,11 @@
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME                => 'Crypt::OpenSSL::Blowfish',
+    VERSION_FROM        => 'Blowfish.pm',
+    ABSTRACT_FROM       => 'Blowfish.pm', # retrieve abstract from module
+    AUTHOR              => 'Vitaly Kramskikh <vkramskih@cpan.org>',
+    LIBS                => ['-lcrypto'],   # e.g., '-lm'
+    DEFINE              => '-DPERL5 -DOPENSSL_NO_KRB5',
+);

README

@@ -0,0 +1,39 @@
+Crypt-OpenSSL-Blowfish version 0.01
+===================================
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the
+README file from a module distribution so that people browsing the
+archive can use it get an idea of the modules uses. It is usually a
+good idea to provide version information here so that people can
+decide whether fixes for the module are worth downloading.
+
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+SYNOPSIS
+
+   use Crypt::OpenSSL::Blowfish;
+   my $cipher = new Crypt::Blowfish $key; 
+   my $ciphertext = $cipher->encrypt($plaintext);
+   $plaintext = $cipher->decrypt($ciphertext);
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) Vitaly Kramskikh
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.10.0 or,
+at your option, any later version of Perl 5 you may have available.
+
+

t/blowfish.t

@@ -0,0 +1,17 @@
+print "1..3\n";
+
+use Crypt::OpenSSL::Blowfish;
+
+my $cipher = new Crypt::OpenSSL::Blowfish(pack("H*", "0123456789ABCDEF"));
+print "not " unless defined $cipher;
+print "ok 1\n";
+
+my $data = pack("H*", "0000000000000000");
+
+my $out = $cipher->encrypt($data);
+print "not " if(uc(unpack("H16", $out)) ne "884659249A365457");
+print "ok 2\n";
+
+$data = $cipher->decrypt($out);
+print "not " if(uc(unpack("H*", $data)) ne "0000000000000000");
+print "ok 3\n";