NAME

Text::Caesar - Encrypt / Decrypt using a Caesar cipher

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;

DESCRIPTION

This module allows you to use 4 functions.

You can encrypt a message:

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

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.