SHA-256: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,051: / Line 1,051: @@
 multi sha256(Blob $data) {
     constant K = init(* **(1/3))[^64];
-    my $l = 8 * my @b = $data.list;
+    my @b = $data.list, 0x80;
-    push @b, 0x80; push @b, 0 until (8*@b-448) %% 512;
+    push @b, 0 until (8 * @b - 448) %% 512;
+    push @b, reverse (8 * $data).polymod(256 xx 7);
-    push @b, reverse $l.polymod(256 xx 7);
     my @word = :256[@b.shift xx 4] xx @b/4;