Hi Roger,
thanks for reporting this.
You are quite right, and I have fixed the doc for the next release.
Cheers.
On Tuesday 12 September 2006 12:24, jbwaters via RT wrote:
Show quoted text> Mon Sep 11 22:24:09 2006: Request 21439 was acted upon.
> Transaction: Ticket created by jbwaters@gmail.com
> Queue: Digest-MD4
> Subject: example seems to show wrong results
> Broken in: (no value)
> Severity: (no value)
> Owner: Nobody
> Requestors: jbwaters@gmail.com
> Status: new
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=21439 >
>
>
> use Digest::MD4 qw(md4_hex);
> print "Digest is ", md4_hex("foobarbaz"), "\n";
> Digest is b2b2b528f632f554ae9cb2c02c904eeb
>
> is what I get and:
>
> use Digest::MD5 qw(md5_hex);
> print "Digest is ", md5_hex("foobarbaz"), "\n";
> Digest is 6df23dc03f9b54cc38a0fc1483df6e21
>
>
> but md4 page shows md5 output as expected results
--
Mike McCauley mikem@open.com.au
Open System Consultants Pty. Ltd Unix, Perl, Motif, C++, WWW
9 Bulbul Place Currumbin Waters QLD 4223 Australia
http://www.open.com.au
Phone +61 7 5598-7474 Fax +61 7 5598-7070
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS,
TTLS, PEAP etc on Unix, Windows, MacOS, NetWare etc.
