Crypt::Rot47 - Encryption and decryption of ASCII text using the ROT47 substitution cipher.
# Object-oriented interface use Crypt::Rot47; my $cipher = new Crypt::Rot47(); my $ciphertext = $cipher->encrypt('Shhh... this is a secret message'); print "$ciphertext\n"; # Prints "$999]]] E9:D :D 2 D64C6E >6DD286" my $plaintext = $cipher->decrypt($ciphertext); print "$plaintext\n"; # Prints "Shhh... this is a secret message" # Simpler non-OOP interface use Crypt::Rot47 qw(rot47); my $ciphertext = rot47('Shhh... this is a secret message'); my $plaintext = rot47($ciphertext);
This module applies the ROT47 substitution cipher to ASCII text, thereby scrambling it and making it difficult for others to read. Applying the same ROT47 substitution cipher on the scrambled text will then restore the original text.
The ROT47 substitution cipher is a very simple form of encryption that works simply by rotating the ASCII characters from '!" to '~' by 47 positions (hence its name). Therefore, spaces in the plain text remain unchanged, but other characters are replaced with their rotated equivalents.
For example, a 'B' (ASCII 66) becomes a 'q' (ASCII 113) because 66 + 47 = 113. When the sum exceeds ASCII 126 ('~'), it simply wraps around starting at ASCII 33 ('!').
Because there are 94 characters between '!' and '~' in the ASCII table, rotating them twice by 47 places has no net effect. Therefore, encryption and decryption are identical operations with ROT47.
For more information about ROT47, see http://en.wikipedia.org/wiki/ROT13.
use Crypt::Rot47; my $cipher = new Crypt::Rot47();
Returns a newly created
my $cipherText = $cipher->encrypt('Hello, world!');
Returns the ciphertext of the provided plaintext.
my $plainText = $cipher->decrypt($cipherText);
Returns the plaintext of the provided ciphertext. Note that because encrypting and decrypting using ROT47 are exactly the same operation, you could technically just call
encrypt() to decrypt the ciphertext, but I provided both methods to be consistent with the API of other Crypt:: modules.
use Crypt::Rot47 qw(rot47); my $cipherText = rot47('Hello, world!'); my $plainText = rot47($cipherText);
Encrypts or decrypts the provided text. For ROT47, encryption and decryption are the same operation, so calling
rot47() on text twice has no effect.
Zachary Blair, <email@example.com>
Copyright (C) 2010 by Zachary Blair
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.