A Mathematica package to calculate SHA-2 constants

sha2_constants.m

(* ::Package:: *)

(* ::Input:: *)
(* SHA-2 Constant calculator

Calculation of SHA-2 uses a group of precomputed constants as part of the hash calculation. These numbers are pregiven on the standard, but also explained to come from fractional part of a cube root of primes. This notebook calculates these constants.
Source: http://dx.doi.org/10.6028/NIST.FIPS.180-4 
*)


(* ::Input:: *)
(* SHA-224 & SHA-256 Constants *)
Table[
  StringTake[ToString[
    BaseForm[
      N[
        FractionalPart[CubeRoot[Prime[n]]],
      32],
    16]],
  {3,10}],
{n,64}]


(* ::Input:: *)
(* SHA-384 & SHA-512 Constants *)
Table[
  StringTake[ToString[
    BaseForm[
      N[
        FractionalPart[CubeRoot[Prime[n]]],
      64],
    16]],
  {3,18}],
{n,80}]