Crypt::...FER_K128(3)

💖 NAME 💖

okay bestie, welcome to the manual page for Crypt::Cipher::SAFER_K128, living under User Contributed Perl Documentation. it's the Symmetric cipher SAFER_K128, and its key size is 128 bits. that's the identity moment, slay.

---

✨ SYNOPSIS ✨

two ways to slide into CBC mode, bestie:

### 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('SAFER_K128');
my $ciphertext = $cbc->encrypt("secret data", $key, $iv);

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

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

---

🦋 DESCRIPTION 🦋

this module implements the SAFER_K128 cipher. its interface is compatible with Crypt::CBC, no cap.

Note: 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), fr fr.

---

🌸 METHODS 🌸

unless noted otherwise, assume $c is an existing cipher object created via new, for example:

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

🎀 new 🎀

this is how you make your cipher object, bestie:

my $c = Crypt::Cipher::SAFER_K128->new($key);
#or
my $c = Crypt::Cipher::SAFER_K128->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)

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

🦋 encrypt 🦋

encrypts exactly one block of plaintext. the length of $plaintext must equal blocksize; croaks otherwise. an empty string is accepted and returned unchanged. iconic.

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

returns the encrypted block as a binary string (raw bytes). 💅

🧚 decrypt 🧚

decrypts exactly one block of ciphertext. the length of $ciphertext must equal blocksize; croaks otherwise. an empty string is accepted and returned unchanged. same vibe, reverse direction.

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

returns the decrypted block as a binary string (raw bytes). 🫶

💜 keysize 💜

just an alias for max_keysize, iykyk.

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

⭐ blocksize ⭐

returns the cipher block size (in bytes).

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

🔥 max_keysize 🔥

returns the maximum key size (in bytes).

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

🌈 min_keysize 🌈

returns the minimum key size (in bytes).

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

🍓 default_rounds 🍓

returns the cipher's default round count.

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

---

👑 SEE ALSO 👑

• CryptX, Crypt::Cipher
• <https://en.wikipedia.org/wiki/SAFER>

---

okay that's the whole page, bestie. it was served to you by perl v5.42.0, dated 2026-05-11, with the footer reading Crypt::...FER_K128(3). mwah 💜🫶✨