SHA-256: Difference between revisions

 

<lang Perl 6>say .list».fmt("%02x").join given sha256 "Rosetta code";

constant primes = grep &is-prime, 2 .. *;

sub init(&f) {

map { my $f = $^p.&f; (($f - $f.Int)*2**32).Int }, primes

}

sub infix:<m+> { ($^a + $^b) % 2**32 }

sub rotr($n, $b) { $n +> $b +| $n +< (32 - $b) }

multi sha256(Str $str where all($str.ords) < 128) {

sha256 $str.encode: 'ascii'

}

constant K = init(* **(1/3))[^64];

my $l = 8 * my @b = $data.list;

push @b, 0x80; push @b, 0 until (8*@b-448) %% 512;

push @b, reverse gather for ^8 { take $l%256; $l div=256 }

my @word = :256[@b.shift xx 4] xx @b/4;

my @H = init(&sqrt)[^8];

my @w;

@H = @H Z[m+] @h;

}

reverse gather for ^4 { take $word % 256; $word div= 256 }

}, @H;