Crypt::Smithy - Perl implementation of the 'Smithycode' cipher.
use Crypt::Smithy; my $s = Crypt::Smithy->new(); print $s->encrypt_string('jackiefisterwhoareyoudreadnough'); print $s->decrypt_string('jaeiextostgpsacgreamqwfkadpmqzv'), $s->set_password(1, 1, 2, 3, 5, 8, 13, 21); # Fibonacci
Crypt::Smithy implements an algorithm used to embed a code in the 2006 judgement in the Da Vinci Code copyright case. Crypthographically it is highly insecure and is for entertainment and educational purposes only.
Set another alphabet than the default (1, 1, 25, 3, 5, 8, 13, 21).
Decrypt a string using the current password.
Encrypt a string using the current password.
<aff at cpan.org>
Please report any bugs or feature requests to
bug-crypt-smithy at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Crypt-Smithy. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
You can also look for information at:
The wikipedia article https://en.wikipedia.org/wiki/Smithycode has a lenghty explaination of the origin of the cipher.
Copyright 2011 Andreas Faafeng.
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; version 2 dated June, 1991 or at your option any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
A copy of the GNU General Public License is available in the source tree; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.