use v6;
use Text::Caesar;
my Str $secret = "I'm a secret message.";
my Str $message = encrypt(3, $secret);
say $message;
To install it using Panda (a module management tool bundled with Rakudo Star):
$ panda install Text::Caesar
This module allows you to use 4 fonctions.
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.
Emeric Fischer [email protected]