No description, website, or topics provided.
Perl6
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
lib/Text
t
.travis.yml
LICENSE
META6.json
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.