CPAN::Groonga

 }; isnt $@, "";
eval { Crypt::Eksblowfish::Blowfish->new("a") }; isnt $@, "";
eval { Crypt::Eksblowfish::Blowfish->new("ab") }; isnt $@, "";
eval { Crypt::Eksblowfish::Blowfish->new("abc") }; isnt $@

fish::Blowfish->new("a" x 56) }; is $@, "";
eval { Crypt::Eksblowfish::Blowfish->new("a" x 57) }; isnt $@, "";

my $cipher = Crypt::Eksblowfish::Blowfish->new("abcd");
ok $cipher;
is $cipher->p_array-

bkeys(3, $sb); };
isnt $@, "";
eval { Crypt::Eksblowfish::Subkeyed->new_from_subkeys([], $sb); };
isnt $@, "";
eval { Crypt::Eksblowfish::Subkeyed->new_from_subkeys($pa, []); };
isnt $@, "";
eval {
	C

eyed->new_from_subkeys($pa, [@{$sb}[0..2],3]);
};
isnt $@, "";
eval {
	Crypt::Eksblowfish::Subkeyed->new_from_subkeys($pa, [@{$sb}[0..2],[]]);
};
isnt $@, "";

my $cinit = Crypt::Eksblowfish::Subkeyed

>new(-1, "a" x 16, "abcd") }; isnt $@, "";
eval { Crypt::Eksblowfish->new(0, "a" x 15, "abcd") }; isnt $@, "";
eval { Crypt::Eksblowfish->new(0, "a" x 17, "abcd") }; isnt $@, "";
eval { Crypt::Eksblow

fish->new(0, "a" x 16, "") }; isnt $@, "";
eval { Crypt::Eksblowfish->new(0, "a" x 16, "a") }; is $@, "";
eval { Crypt::Eksblowfish->new(0, "a" x 16, "a" x 72) }; is $@, "";
eval { Crypt::Eksblowfish-

>new(0, "a" x 16, "a" x 73) }; isnt $@, "";

my $cipher = Crypt::Eksblowfish->new(0, "a" x 16, "abcd");
ok $cipher;
is $cipher->p_array->[2], 0x7653a00a;
is $cipher->s_boxes->[2]->[222], 0xee8053dc;

Crypt::Eksblowfish::Uklblowfish->keysize, 0);

eval { Crypt::Eksblowfish::Uklblowfish->new("") }; isnt $@, "";
eval { Crypt::Eksblowfish::Uklblowfish->new("a") }; is $@, "";
eval { Crypt::Eksblowfish:

Uklblowfish->new("a" x 72) }; is $@, "";
eval { Crypt::Eksblowfish::Uklblowfish->new("a" x 73) }; isnt $@, "";

my $cipher = Crypt::Eksblowfish::Uklblowfish->new("abcd");
ok $cipher;
is $cipher->p_arr

^ ]+) ([^ ]+) *//;
	my($settings, $hash) = ($1, $2);
	is bcrypt($_, $settings), $settings.$hash;
	isnt bcrypt($_, $settings), $settings.$hash foreach (@wrong_passwords);
}

1;

__DATA__
$2$05$CCCCCCCC