Changeset 22846 for ext

Timestamp:

11/01/08 16:01:10 (2 months ago)

Author:

masak

Message:

[ext/MD5-Digest] understood term "little-endian" and made appropriate changes

Files:

• ext/MD5-Digest/md5.perl5 (modified) (4 diffs)

ext/MD5-Digest/md5.perl5

@@ -14 +14 @@
  = (0x01234567, 0x89ABCDEF, 0xFEDCBA98, 0x76543210);
 
-my $original_string = "";
+my $original_string = '';
 
 my @bits = split '', unpack 'B*', $original_string;
@@ -20 +20 @@
 push @bits, 1;
 push @bits, 0 until @bits % 512 == 448;
-push @bits, split "", sprintf "%064b", $unpadded_message_bit_length;
+push @bits, split "",
+            scalar reverse sprintf "%064b",
+            $unpadded_message_bit_length;
 
 my @chunks;
@@ -29 +31 @@
     my @chunk = @{$chunkref};
     my @w;
-    push @w, oct(join '', '0b', splice(@chunk, 0, 32)) while @chunk;
+    push @w, oct(join '', '0b', reverse splice(@chunk, 0, 32))
+        while @chunk;
 
     my ($a, $b, $c, $d) = ($h0, $h1, $h2, $h3);
@@ -55 +58 @@
 }
 
-my $digest = sprintf "%08x"x4, $h0, $h1, $h2, $h3;
+my $digest
+    = join '', map { scalar reverse sprintf "%08x", $_ } $h0, $h1, $h2, $h3;
 print $digest, "\n";