File Coverage

blib/lib/Crypt/Imail.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	3	4	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	3	0.0
total	54	61	88.5

package Crypt::Imail;

use 5.008;
use strict;
use warnings;

our $VERSION = '0.01';

sub new { bless {}, ref($_[0]) || $_[0] }

sub decrypt {
    my $self = shift;
    my ($user, $epass) = @_;

    my @user = map ord($_), split //, $user;

    my @key = map $user[0] - $_, @user;
       @key = map @key, (0..20);

    my @epass = ($epass =~ /(..)/g);

    my %data = $self->_data('decrypt');

    my @pass;
    {
      my $counter = 0;
      @pass = map $data{$_} + $key[$counter++], @epass;
    }

join '', map chr($_ - ($user[0] - 97)), @pass;
}

sub encrypt {
    my $self = shift;
    my ($user, $pass) = @_;

    my @auser = map ord($_), split //, $user;
    my @apass = map ord($_), split //, $pass;

    my @key = map $auser[0] - $_, @auser;
       @key = map @key, (0 .. 12); # hack - be sure it's large enough

    my $offset = $auser[0] - 97;
    my @epass = map {($apass[$_] + $offset) - $key[$_]} (0..$#apass);

    my %data = $self->_data('encrypt');

join '', map $data{$_}, @epass;
}

sub _data {
    my $self = shift;

    my $count = -97;
    my @nums = (0..9,'A'..'F');

    my %hash;
    for my $base (@nums) {
	for (@nums) {
	    if ($_[0] eq 'decrypt') {
	     $hash{$base.$_} = $count++;
	    }elsif ($_[0] eq 'encrypt') {
	     $hash{$count++} = $base.$_;
            }else{
	     warn "pass either encrypt or decrypt to the data function";
	    }
	}
     }

%hash;
}

1;
__END__