~mdw
/
catacomb-perl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Set IV on decryption.
[catacomb-perl]
/
Catacomb.pm
diff --git
a/Catacomb.pm
b/Catacomb.pm
index
20bfec2
..
35812e8
100644
(file)
--- a/
Catacomb.pm
+++ b/
Catacomb.pm
@@
-1,6
+1,6
@@
# -*-perl-*-
#
# -*-perl-*-
#
-# $Id: Catacomb.pm,v 1.
2 2004/04/08 01:36:21
mdw Exp $
+# $Id: Catacomb.pm,v 1.
3 2004/04/18 15:05:08
mdw Exp $
#
# Perl interface to Catacomb crypto library
#
#
# Perl interface to Catacomb crypto library
#
@@
-165,6
+165,7
@@
sub decrypt {
$iv = undef;
}
my $c = $cc->init($k);
$iv = undef;
}
my $c = $cc->init($k);
+ $c->setiv($iv) if defined($iv);
return $c->decrypt($p);
}
return $c->decrypt($p);
}