view release on metacpan or  search on metacpan

t/modes.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More tests => 90;

use Crypt::Rijndael;

ok(defined &Crypt::Rijndael::blocksize);
is(Crypt::Rijndael->blocksize, 16);

foreach my $a ( 0 .. 10 ) {
	my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CBC);
	is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for cbc-$a");
}

foreach my $a ( 0 .. 10 ) {
	my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CFB);
	is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for cfb-$a");
}

foreach my $a ( 0 .. 10 ) {
	my ($plain, $data) = crypt_decrypt_partial(Crypt::Rijndael::MODE_CFB);
	is($plain, $data, "Decrypted text matches plain text for cfb-$a-partial");
}

foreach my $a ( 0 .. 10 ) {
	my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CTR);
	is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ctr-$a");
}

foreach my $a ( 0 .. 10 ) {
	my $hash = crypt_decrypt(Crypt::Rijndael::MODE_ECB);
	is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ecb-$a");
}

foreach my $a ( 0 .. 10 ) {
	my $hash = crypt_decrypt(Crypt::Rijndael::MODE_OFB );
	is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ofb-$a");
}

foreach my $a ( 0 .. 10 ) {
	my ($plain, $data) = crypt_decrypt_partial(Crypt::Rijndael::MODE_OFB);
	is($plain, $data, "Decrypted text matches plain text for ofb-$a-partial");
}

TODO: {
	todo_skip "PCBC is not a legal mode (yet)", 11;
	
	foreach my $a ( 0 .. 10 ) {
		my $hash = crypt_decrypt(Crypt::Rijndael::MODE_PCBC);
		is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text");
	}

};

sub crypt_decrypt {
	my $mode   = shift;

	my $key    = make_string(32);
	my $c      = Crypt::Rijndael->new($key, $mode);
	my $data   = make_string(32 * int rand(16) + 1);
	my $iv     = make_string(16);

	my $cipher = $c->encrypt($data, $iv);
	my $plain  = $c->decrypt($cipher, $iv);

	return {
		data   => $data,
		cipher => $cipher,
		plain  => $plain,
	};
}

sub crypt_decrypt_partial {
	my $mode   = shift;

	my $key    = make_string(16);
	my $c      = Crypt::Rijndael->new($key, $mode);
	my $data   = make_string(32 * int(2 + 1) + 8);
	my $iv     = make_string(16);

	my $cipher = $c->encrypt($data, $iv);
	my $plain  = $c->decrypt($cipher, $iv);

	return ($plain, $data);
}

sub make_string {
	my $size = shift;
	return pack 'C*', map { rand 256 } 1 .. $size;
}