No description, website, or topics provided.
Perl 6
Switch branches/tags
Nothing to show
Latest commit 95d9dda Apr 29, 2017 @Emeric54 committed on GitHub Merge pull request #3 from zoffixznet/patch-1
Fix JSON error
Permalink
Failed to load latest commit information.
examples Cesar to Caesar Apr 5, 2016
lib/Text New OO organization Apr 21, 2017
t Cesar to Caesar Apr 5, 2016
.travis.yml initial commit Apr 3, 2016
LICENSE add LICENSE Apr 3, 2016
META6.json Fix JSON error Apr 25, 2017
README.md Update documentation Apr 21, 2017

README.md

Text::Caesar

Synopsis

use Text::Caesar;

my $message = Message.new(
    key => 3,
    text => "I am a secret message"
);
my $secret = Secret.new(
    key => 3,
    text => $message.encrypt();
);
say $message.encrypt;
say $secret.decrypt;

Installation

To install it using Panda (a module management tool bundled with Rakudo Star):

$ panda install Text::Caesar

Or with Zef:

$ zef install Text::Caesar

Description

This module allows you to use 4 functions.

You can encrypt a message :

use v6;

use Text::Caesar;

my Str $secret = "I'm a secret message.";
my Str $message = encrypt(3, $secret);
say $message;

You can decrypt a message :

my Str $secret = 'LPDVHFUHWPHVVDJH'
my Str $message = decrypt(3, $secret);
say $message;

You can encrypt (or decrypt) a file :

encrypt-from-file($key, $origin, $destination)

This code will encrypt $origin's text into the $destination file.

You can also use objects :

my $message = Message.new(
    key => 3,
    text => "I am a secret message"
);
say $message.encrypt;
my $secret = Secret.new(
    key => 3,
    text => $message.encrypt();
);
say $secret.decrypt;

Author

Emeric Fischer fischer.emeric@gmail.com, emeric on freenode.