On Fri, 2002-03-22 at 17:40, Ranga Nathan wrote:
> $digest = $ctx->digest;
> print "digest is = $digest\n";
> $digest = $ctx->hexdigest;
> print "hex digest is = $digest\n";
> $digest = $ctx->b64digest;
> print "base 64 digest is = $digest\n";
perldoc Digest::MD5
$md5->digest
Return the binary digest for the message.
Note that the "digest" operation is effectively a
destructive, read-once operation. Once it has been
performed, the "Digest::MD5" object is automatically
"reset" and can be used to calculate another digest
value.
So, your subsequent calls to hexdigest and b64digest are being called
on a blank md5 object.
