1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/local/bin/perl -Tw
use lib '..','../blib/lib','.','./blib/lib';
eval "use Crypt::IDEA()";
if ($@) {
print "1..0 # Skipped: Crypt::IDEA not installed\n";
exit;
}
print "1..33\n";
sub test {
local($^W) = 0;
my($num, $true,$msg) = @_;
print($true ? "ok $num\n" : "not ok $num $msg\n");
}
$test_data = <<END;
Mary had a little lamb,
Its fleece was black as coal,
And everywere that Mary went,
That lamb would dig a hole.
END
;
eval "use Crypt::CBC";
test(1,!$@,"Couldn't load module");
test(2,$i = Crypt::CBC->new('secret','IDEA'),"Couldn't create new object");
test(3,$c = $i->encrypt($test_data),"Couldn't encrypt");
test(4,$p = $i->decrypt($c),"Couldn't decrypt");
test(5,$p eq $test_data,"Decrypted ciphertext doesn't match plaintext");
# now try various truncations of the whole
for (my $c=1;$c<=7;$c++) {
substr($test_data,-$c) = ''; # truncate
test(5+$c,$i->decrypt($i->encrypt($test_data)) eq $test_data);
}
# now try various short strings
for (my $c=0;$c<=18;$c++) {
$test_data = 'i' x $c;
test (13+$c,$i->decrypt($i->encrypt($test_data)) eq $test_data);
}
# make sure that strings that end in spaces or nulls are treated correctly
$test_data = "This string ends in a null\0";
test (32,$i->decrypt($i->encrypt($test_data)) eq $test_data);
$test_data = "This string ends in some spaces ";
test (33,$i->decrypt($i->encrypt($test_data)) eq $test_data);
|
