Crypt::...FER_SK64(3)

NAME 🎀

Okay bestie, this page is Crypt::...FER_SK64(3) from the User Contributed Perl Documentation, and it’s all about Crypt::Cipher::SAFER_SK64 — the symmetric cipher SAFER_SK64, with key size: 64 bits ✨

SYNOPSIS 🌸

Two example flavors, coming right up 💖

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

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

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

DESCRIPTION 🦋

This module implements the SAFER_SK64 cipher, and its interface is compatible with Crypt::CBC — love that for us 💅

Important vibe check: 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). No cap, that’s the whole point 🫶

METHODS 🛠️

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

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

new ✨

my $c = Crypt::Cipher::SAFER_SK64->new($key);
#or
my $c = Crypt::Cipher::SAFER_SK64->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 — peek at keysize, min_keysize, and max_keysize for the deets. $rounds is an optional integer for the number of rounds, if the cipher supports it; it croaks on an invalid value 😭

encrypt 🔥

Encrypts exactly one block of plaintext. The length of $plaintext must equal blocksize; croaks otherwise. An empty string is accepted and returned unchanged — icon behavior honestly 👑

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

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

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 energy, reverse direction 🦋

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

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

keysize 🎀

Just an alias for max_keysize — cute, brief, to the point.

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

blocksize 🌈

Returns the cipher block size (in bytes).

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

max_keysize ⭐

Returns the maximum key size (in bytes).

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

min_keysize 🧚

Returns the minimum key size (in bytes).

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

default_rounds 🍓

Returns the cipher’s default round count.

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

SEE ALSO 👀

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

---

mwah 💖 source/version check: perl v5.42.0, dated 2026-05-11, filed under Crypt::...FER_SK64(3) — slay and goodbye 🎀