Crypt::...::SAFERP(3)

✨ NAME ✨

Okay bestie, welcome to the Crypt::...::SAFERP(3) page from User Contributed Perl Documentation. The actual module is Crypt::Cipher::SAFERP — Symmetric cipher SAFER+, key size: 128/192/256 bits. 💅

🌸 SYNOPSIS 🌸

Two ways to slide into CBC mode, bestie — pick your vibe:

### example 1
use Crypt::Mode::CBC;

my $key = '...'; # length must be a valid key size for this cipher
my $iv = '...';  # 16 bytes
my $cbc = Crypt::Mode::CBC->new('SAFERP');
my $ciphertext = $cbc->encrypt("secret data", $key, $iv);

### example 2 (slower)
use Crypt::CBC;
use Crypt::Cipher::SAFERP;

my $key = '...'; # length must be a valid key size for this cipher
my $iv = '...';  # 16 bytes
my $cbc = Crypt::CBC->new( -cipher=>'Cipher::SAFERP', -key=>$key, -iv=>$iv );
my $ciphertext = $cbc->encrypt("secret data");

🦋 DESCRIPTION 🦋

This module implements the SAFERP cipher. Its interface is compatible with Crypt::CBC.

Note, queen: this module only implements single-block encryption and decryption. For general data, use a block mode such as Crypt::Mode::CBC, Crypt::Mode::CTR, or Crypt::CBC (which is slower). 🫶

💜 METHODS 💜

Unless noted otherwise, assume $c is an existing cipher object created via new, like:

my $c = Crypt::Cipher::SAFERP->new($key);

✨ new ✨

Create that cipher object, bestie:

my $c = Crypt::Cipher::SAFERP->new($key);
#or
my $c = Crypt::Cipher::SAFERP->new($key, $rounds);

# $key .... [binary string] key of an accepted length (see keysize, min_keysize, max_keysize)
# $rounds . [integer] optional, number of rounds (if supported by the cipher; croaks on invalid value)

$key is a binary string of an accepted length — peep keysize, min_keysize, and max_keysize. $rounds is an optional integer number of rounds, if supported by the cipher, and it croaks on an invalid value. 😭

🔥 encrypt 🔥

Encrypts exactly one block of plaintext. The length of $plaintext must equal blocksize; otherwise it croaks. An empty string is accepted and returned unchanged. No cap.

my $ciphertext = $c->encrypt($plaintext);

Returns the encrypted block as a binary string (raw bytes). Slay. 💖

🎀 decrypt 🎀

Decrypts exactly one block of ciphertext. The length of $ciphertext must equal blocksize; otherwise it croaks. An empty string is accepted and returned unchanged. Periodt.

my $plaintext = $c->decrypt($ciphertext);

Returns the decrypted block as a binary string (raw bytes). Iconic. 🦋

⭐ keysize ⭐

Just an alias for max_keysize, bestie.

$c->keysize;
#or
Crypt::Cipher::SAFERP->keysize;
#or
Crypt::Cipher::SAFERP::keysize;

🌈 blocksize 🌈

Returns the cipher block size (in bytes).

$c->blocksize;
#or
Crypt::Cipher::SAFERP->blocksize;
#or
Crypt::Cipher::SAFERP::blocksize;

👑 max_keysize 👑

Returns the maximum key size (in bytes).

$c->max_keysize;
#or
Crypt::Cipher::SAFERP->max_keysize;
#or
Crypt::Cipher::SAFERP::max_keysize;

🍓 min_keysize 🍓

Returns the minimum key size (in bytes).

$c->min_keysize;
#or
Crypt::Cipher::SAFERP->min_keysize;
#or
Crypt::Cipher::SAFERP::min_keysize;

🧚 default_rounds 🧚

Returns the cipher's default round count.

$c->default_rounds;
#or
Crypt::Cipher::SAFERP->default_rounds;
#or
Crypt::Cipher::SAFERP::default_rounds;

💫 SEE ALSO 💫

• CryptX, Crypt::Cipher — the friends in the cipher cinematic universe ✨
• https://en.wikipedia.org/wiki/SAFER — more SAFER lore 🌸

---

mwah 💋 this page is from perl v5.42.0 and dated 2026-05-11. That's the tea, bestie. 🍵