1# $Id: test.pl,v 1.2 2001/09/15 03:38:24 btrott Exp $ 2 3use strict; 4 5use Test; 6use Crypt::DES_EDE3; 7use strict; 8 9BEGIN { plan tests => 7 } 10 11my $des = Crypt::DES_EDE3->new( pack 'H64', '0123456789ABCDEF' x 4 ); 12ok($des); 13ok($des->keysize, 24); 14 15my $enc = $des->encrypt( _checkbytes() ); 16ok($enc); 17my $dec = $des->decrypt($enc); 18ok($dec); 19 20ok( vec($dec, 0, 8) == vec($dec, 2, 8) ); 21ok( vec($dec, 1, 8) == vec($dec, 3, 8) ); 22ok( vec($dec, 5, 8) == 0 ); 23 24sub _checkbytes { 25 my($check1, $check2) = (chr int rand 255, chr int rand 255); 26 "$check1$check2$check1$check2\0\0\0\0"; 27} 28