The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Crypt::Stream::Sober128 - Stream cipher Sober128

SYNOPSIS

use Crypt::Stream::Sober128;

# encrypt
$key = "1234567890123456";
$iv  = "123456789012";
$stream = Crypt::Stream::Sober128->new($key, $iv);
$ct = $stream->crypt("plain message");

# decrypt
$key = "1234567890123456";
$iv  = "123456789012";
$stream = Crypt::Stream::Sober128->new($key, $iv);
$pt = $stream->crypt($ct);

DESCRIPTION

Provides an interface to the Sober128 stream cipher.

METHODS

new

$stream = Crypt::Stream::Sober128->new($key, $iv);
# $key .. keylen must be multiple of 4 bytes
# $iv  .. ivlen must be multiple of 4 bytes

crypt

$ciphertext = $stream->crypt($plaintext);
#or
$plaintext = $stream->crypt($ciphertext);

keystream

$random_key = $stream->keystream($length);

clone

$stream->clone();

SEE ALSO