Perisk: Perl fu from Sam Baldwin

persik

persik is a portmanteau of the Norwegian phrase 'perfekt sikkerhet', meaning 'perfect security'.

persik is a one-time pad generator/encrypter/decrypter implemented in perl around Base64. You can encrypt a text file against a previously generated one-time pad, email it to another party, and they can decrypt it using the same pad back to plain text.

Internally, persik will read through the input file, convert it to Base64, then encrypt it against the one-time pad. Encrypted files are output with 76 characters to a line; whitespace is ignored while decrypting. Additionally, as of 1.1, whitespace in pads is ignored as well. While decrypting, the file is decrypted against the one-time pad, then decoded from Base64 back to the original text.

As of 1.1, persik will refuse to encrypt the message if the message is larger than the pad unless --force is passed to it.

Pads are generated in-program using Crypt::Random, which in turn uses a unix-like system's /dev/random. This should be changed for systems with a dedicated Random Number Generator; see the Crypt::Random documentation for more details.