blob: d339b702b1e452a9dfffb42245b5ee83a27f5462 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
$NetBSD: patch-ab,v 1.1 2001/10/02 11:52:53 mjl Exp $
--- CBC.pm.orig Tue Oct 2 13:38:01 2001
+++ CBC.pm Tue Oct 2 13:42:11 2001
@@ -1,6 +1,6 @@
package Crypt::CBC;
-use MD5;
+use Digest::MD5;
use Carp;
use strict;
use vars qw($VERSION);
@@ -28,9 +28,9 @@
# the real key is computed from the first N bytes of the
# MD5 hash of the provided key.
- my $material = MD5->hash($key);
+ my $material = Digest::MD5::md5($key);
while (length($material) < $ks + $bs) {
- $material .= MD5->hash($material);
+ $material .= Digest::MD5::md5($material);
}
# Original implementation of SSLEay used part of the key for the IV
|