NAME

Crypt::Lucifer - Perl implementation of the Lucifer encryption algorithm

SYNOPSIS

            

              
              
use Crypt::Lucifer;
$e = new Crypt::Lucifer("the16bytekeyword");     #if key length is less than 16 (bytes) it will be extended by some EOS characters.
print $e->decrypt($e->encrypt("string of any length"));
            
          

DESCRIPTION

A simple implementation of the Lucifer algorithm, developed by IBM. Here is the description from Wikipedia:

"In cryptography, Lucifer was the name given to several of the earliest civilian block ciphers, developed by Horst Feistel and his colleagues at IBM. Lucifer was a direct precursor to the Data Encryption Standard. One version, alternatively named DTD-1, saw commercial use in the 1970s for electronic banking."

EXPORT

None by default.

SEE ALSO

http://en.wikipedia.org/wiki/Lucifer_(cipher),http://www.staff.uni-mainz.de/pommeren/Kryptologie02/Bitblock/2_Feistel/lucifer.c

AUTHOR

Sadegh Ahmadzadegan (sadegh <at> cpan.org)

COPYRIGHT AND LICENSE

Copyright (C) 2014 by Sadegh Ahmadzadegan

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.