Crypt::Cipher::SAFER_SK128 − Symmetric cipher SAFER_SK128, key size: 128 bits
### example 1
use Crypt::Mode::CBC;
my $key = '...'; # length has to be valid key size for this
cipher
my $iv = '...'; # 16 bytes
my $cbc = Crypt::Mode::CBC−>new('SAFER_SK128');
my $ciphertext = $cbc−>encrypt("secret
data", $key, $iv);
### example 2 (slower)
use Crypt::CBC;
use Crypt::Cipher::SAFER_SK128;
my $key = '...'; # length has to be valid key size for this
cipher
my $iv = '...'; # 16 bytes
my $cbc = Crypt::CBC−>new(
−cipher=>'Cipher::SAFER_SK128',
−key=>$key, −iv=>$iv );
my $ciphertext = $cbc−>encrypt("secret
data");
This module implements the SAFER_SK128 cipher. Provided interface is compliant with Crypt::CBC module.
BEWARE: This module implements just elementary "one−block−(en|de)cryption" operation − if you want to encrypt/decrypt generic data you have to use some of the cipher block modes − check for example Crypt::Mode::CBC, Crypt::Mode::CTR or Crypt::CBC (which will be slower).
$c =
Crypt::Cipher::SAFER_SK128−>new($key);
#or
$c = Crypt::Cipher::SAFER_SK128−>new($key,
$rounds);
$ciphertext = $c−>encrypt($plaintext);
$plaintext = $c−>decrypt($ciphertext);
$c−>keysize;
#or
Crypt::Cipher::SAFER_SK128−>keysize;
#or
Crypt::Cipher::SAFER_SK128::keysize;
$c−>blocksize;
#or
Crypt::Cipher::SAFER_SK128−>blocksize;
#or
Crypt::Cipher::SAFER_SK128::blocksize;
$c−>max_keysize;
#or
Crypt::Cipher::SAFER_SK128−>max_keysize;
#or
Crypt::Cipher::SAFER_SK128::max_keysize;
$c−>min_keysize;
#or
Crypt::Cipher::SAFER_SK128−>min_keysize;
#or
Crypt::Cipher::SAFER_SK128::min_keysize;
$c−>default_rounds;
#or
Crypt::Cipher::SAFER_SK128−>default_rounds;
#or
Crypt::Cipher::SAFER_SK128::default_rounds;
• |
CryptX, Crypt::Cipher |
|||
• |
<https://en.wikipedia.org/wiki/SAFER> |