(5 . 8)(5 . 8)
5
6 -- public function, sponge
7 procedure Sponge( Input : in Bitstream;
8 Block_Len : in Keccak_Rate;
9 Output : out Bitstream) is
10 Output : out Bitstream;
11 Block_Len : in Keccak_Rate := Default_Bitrate ) is
12 Internal : State := (others => (others => 0));
13 begin
14 --absorb input into sponge in a loop on available blocks, including padding