SHA-256: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: defining K as persistent) |
(→{{header|Perl 6}}: just use constant for K (might fail on PIR compilation, though)) |
||
Line 376: | Line 376: | ||
} |
} |
||
multi sha256(Buf $data) { |
multi sha256(Buf $data) { |
||
constant K = init(* **(1/3))[^64]; |
|||
my $l = 8 * my @b = $data.list; |
my $l = 8 * my @b = $data.list; |
||
push @b, 0x80; push @b, 0 until (8*@b-448) %% 512; |
push @b, 0x80; push @b, 0 until (8*@b-448) %% 512; |