Current Path : /proc/self/root/proc/2/cwd/usr/local/ssl/share/perl5/x86_64-linux-thread-multi/Crypt/

Upload File :

Current File : //proc/self/root/proc/2/cwd/usr/local/ssl/share/perl5/x86_64-linux-thread-multi/Crypt/Mode.pm

package Crypt::Mode;

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

### METHODS

sub new { die }    # overriden in subclass

sub encrypt {
  my ($self, $pt) = (shift, shift);
  $self->_start(1, @_);
  return $self->add($pt) . $self->finish;
}

sub decrypt {
  my ($self, $ct) = (shift, shift);
  $self->_start(-1, @_);
  return $self->add($ct) . $self->finish;
}

sub start_encrypt {
  my $self = shift;
  $self->_start(1, @_);
  return $self;
}

sub start_decrypt {
  my $self = shift;
  $self->_start(-1, @_);
  return $self;
}

sub finish {
  shift->_finish(@_);
}

sub add {
  my $self = shift;
  my $rv = '';
  $rv .= $self->_crypt($_) for (@_);
  return $rv;
}

sub _crypt {
  my $self = shift;
  my $dir = $self->_get_dir;
  return $self->_encrypt(@_) if $dir == 1;
  return $self->_decrypt(@_) if $dir == -1;
  return;
}

sub _finish {
  my $self = shift;
  my $dir = $self->_get_dir;
  return $self->_finish_enc(@_) if $dir == 1;
  return $self->_finish_dec(@_) if $dir == -1;
  return;
}

sub CLONE_SKIP { 1 } # prevent cloning

1;

__END__
 
=head1 NAME

Crypt::Mode - [internal only]

=cut

Copyright 2K16 - 2K18 Indonesian Hacker Rulez