File Coverage

blib/lib/SagePay/XORForm.pm

Criterion	Covered	Total	%
statement	15	41	36.5
branch	0	6	0.0
condition			n/a
subroutine	5	9	55.5
pod	2	2	100.0
total	22	58	37.9

package SagePay::XORForm;

use strict;
use warnings;

use Carp;
use MIME::Base64;

use vars qw($VERSION);

our $VERSION = '0.05';


## * Constructor and methods....

sub new {
	my $class 	= shift;
	my $self 	= {};
	bless $self, $class;
	$self->_init(@_);
    return $self;
}

sub _init {
	my $self   = shift;
	my (%part) = @_;

	croak "Must have load the query string to encrypt"
		unless defined $part{'query_string'};

	croak "Must have load the key with which to encrypt message"
		unless defined $part{'key'};

	$self->{'query_string'} = $part{'query_string'};
	$self->{'key'} 			= $part{'key'};
}


sub sage_xor_string {
	my $self = shift;
	my ($options) = @_;

	my $ret = encode_base64($self->_simpleXor);
	$ret =~ s/(\r|\n)//g if $options->{'strip_newlines'};
	return $ret;

}



## * -------------------------------------------------
## * do the simple method to return an xor'd str
##
sub _simpleXor {
	my $self = shift;

	my $InString = $self->{'query_string'};
	my $Key		 = $self->{'key'};

	my @KeyList = ();
	#Initialise out variable
	my $output = "";

	#Convert $Key into array of ASCII values
	for(my $i = 0; $i < length($Key); $i++){
		$KeyList[$i] = ord(substr($Key, $i, 1));
	}

	# Step through string a character at a time
	for(my $i = 0; $i < length($InString); $i++) {
		# Get ASCII code from string, get ASCII code from key (loop through with MOD), XOR the two, get the character from the result
		#% is MOD (modulus), ^ is XOR
		$output.= chr(ord(substr($InString, $i, 1)) ^ ($KeyList[$i % length($Key)]));
	}

	return $output;
}



1;
__END__