Skip to content
No description, website, or topics provided.
Perl 6
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
examples
lib/Text
t
.travis.yml
LICENSE
META6.json
README.md

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.

You can’t perform that action at this time.