(108 . 17)(108 . 17)
477 return Unsigned_8;
478 pragma Import(Intrinsic, Shift_Left);
479
480 -- conversions between bitstream and string
481 -- conversions between bytestream and string
482 -- NB: caller has to ensure correct size of output parameter! no checks here.
483 procedure ToString( B: in Bitstream; S: out String );
484 procedure ToBitstream( S: in String; B: out Bitstream );
485 procedure ToString( B: in Bytestream; S: out String );
486 procedure ToBytestream( S: in String; B: out Bytestream );
487
488 -- public wrapper for Sponge to use String for input/output
489 procedure HashKeccak( Input : in String;
490 Output : out String;
491 Block_Len : in Keccak_Rate := Default_Bitrate);
492 Block_Len : in Keccak_Rate := Default_Byterate);
493
494 -- wrapper for calling Keccak hashing from C, with DEFAULT bitrate
495 -- wrapper for calling Keccak hashing from C, with DEFAULT byterate
496 -- @param Input the input string, as array of characters (C style)
497 -- @param LenIn the length of the input string (as number of OCTETS)
498 -- @param LenOut the desired number of OCTETS to be returned as output