1#!/usr/bin/perl 2# this test will actually core for version < 2.4.8.2 :-)) 3use Test::More tests => 1; 4 5use strict; 6use Mcrypt qw(:ALGORITHMS :MODES :FUNCS); 7 8my($input) = "0123456701234567"; 9 10my $td = Mcrypt->new( algorithm => Mcrypt::BLOWFISH, 11 mode => Mcrypt::CFB, 12 verbose => 0 ); 13my($key) = "k" x $td->{KEY_SIZE}; 14my($iv) = "i" x $td->{IV_SIZE}; 15$td->init($key, $iv); 16$td->decrypt($input); 17$td->end(); 18 19ok(1, "survived"); 20