Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
AES.pm	2.53 KB	-rw-rw-rw-
Anubis.pm	2.57 KB	-rw-rw-rw-
Blowfish.pm	2.62 KB	-rw-rw-rw-
CAST5.pm	2.55 KB	-rw-rw-rw-
Camellia.pm	2.62 KB	-rw-rw-rw-
DES.pm	2.5 KB	-rw-rw-rw-
DES_EDE.pm	2.61 KB	-rw-rw-rw-
IDEA.pm	2.54 KB	-rw-rw-rw-
KASUMI.pm	2.57 KB	-rw-rw-rw-
Khazad.pm	2.55 KB	-rw-rw-rw-
MULTI2.pm	2.55 KB	-rw-rw-rw-
Noekeon.pm	2.58 KB	-rw-rw-rw-
RC2.pm	2.49 KB	-rw-rw-rw-
RC5.pm	2.49 KB	-rw-rw-rw-
RC6.pm	2.49 KB	-rw-rw-rw-
SAFERP.pm	2.56 KB	-rw-rw-rw-
SAFER_K128.pm	2.65 KB	-rw-rw-rw-
SAFER_K64.pm	2.62 KB	-rw-rw-rw-
SAFER_SK128.pm	2.67 KB	-rw-rw-rw-
SAFER_SK64.pm	2.65 KB	-rw-rw-rw-
SEED.pm	2.51 KB	-rw-rw-rw-
Serpent.pm	2.6 KB	-rw-rw-rw-
Skipjack.pm	2.61 KB	-rw-rw-rw-
Twofish.pm	2.59 KB	-rw-rw-rw-
XTEA.pm	2.51 KB	-rw-rw-rw-

Code Editor : SAFER_K128.pm

package Crypt::Cipher::SAFER_K128;

### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!

use strict;
use warnings;
our $VERSION = '0.068';

use base qw(Crypt::Cipher);

sub blocksize      { Crypt::Cipher::blocksize('SAFER_K128')      }
sub keysize        { Crypt::Cipher::keysize('SAFER_K128')        }
sub max_keysize    { Crypt::Cipher::max_keysize('SAFER_K128')    }
sub min_keysize    { Crypt::Cipher::min_keysize('SAFER_K128')    }
sub default_rounds { Crypt::Cipher::default_rounds('SAFER_K128') }

=pod

=head1 NAME

Crypt::Cipher::SAFER_K128 - Symmetric cipher SAFER_K128, key size: 128 bits (Crypt::CBC compliant)

=head1 SYNOPSIS

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

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

my $key = '...'; # length has to be 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");

=head1 DESCRIPTION

This module implements the SAFER_K128 cipher. Provided interface is compliant with L<Crypt::CBC|Crypt::CBC> module.

B<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
L<Crypt::Mode::CBC|Crypt::Mode::CBC>, L<Crypt::Mode::CTR|Crypt::Mode::CTR> or L<Crypt::CBC|Crypt::CBC> (which will be slower).

=head1 METHODS

=head2 new

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

=head2 encrypt

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

=head2 decrypt

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

=head2 keysize

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

=head2 blocksize

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

=head2 max_keysize

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

=head2 min_keysize

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

=head2 default_rounds

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

=head1 SEE ALSO

=over

=item * L<CryptX|CryptX>, L<Crypt::Cipher>

=item * L<https://en.wikipedia.org/wiki/SAFER>

=back

=cut

${this.title}

Code Editor : SAFER_K128.pm