File Coverage

blib/lib/Crypt/OTP.pm

Criterion	Covered	Total	%
statement	6	36	16.6
branch	0	14	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	56	14.2

#-------------------------------------------------------------------------#
# Crypt::OTP
#       Date Written:   07-Jul-2000 02:58:42 PM
#       Last Modified:  04-Sep-2002 01:29:36 PM
#       Author:    Kurt Kincaid
#       Copyright (c) 2002, Kurt Kincaid
#           All Rights Reserved
#
# NOTICE: This is free software and may be modified and/or redistributed
#         under the same terms as Perl itself.
#-------------------------------------------------------------------------#

package Crypt::OTP;

use strict;
use vars qw/ $VERSION @ISA @EXPORT @EXPORT_OK $pad_text $class $pad $mode $oo /;

require Exporter;

@ISA = qw/ Exporter /;

$VERSION = '2.00';
@EXPORT = qw/ OTP /;

sub new {
    ( $class, $pad, $mode ) = @_;
    my $self = bless {}, $class;
    if ( $mode ) {
        $pad_text = $pad;
    } else {
        local $/ = undef;
        open( PAD, $pad ) || return $!;
        $pad_text = ;
        close( PAD );
    }
    $oo = 1;
    return $self;
}

sub OTP {
    shift if UNIVERSAL::isa( $_[ 0 ], __PACKAGE__ );
    my ( $pad, $message );
    if ( $oo ) {
        ( $message, $mode ) = @_;
    } else {
        ( $pad, $message, $mode ) = @_;
    }
    unless ( $oo ) {
        if ( $mode ) {
            $pad_text = $pad;
        } else {
            local $/ = undef;
            open( PAD, $pad ) || return $!;
            $pad_text = ;
            close( PAD );
        }
    }

    while ( length( $pad_text ) < length( $message ) ) {
        $pad_text .= $pad_text;
    }
    my @message = split ( //, $message );
    my @pad     = split ( //, $pad_text );
    my $cipher;

    for ( my $i = 0 ; $i <= $#message ; $i++ ) {
        $cipher .= pack( 'C', unpack( 'C', $message[ $i ] ) ^ unpack( 'C', $pad[ $i ] ) );
    }
    return $cipher;
}

1;

__END__