(45 . 7)(45 . 7)
26 M00( M00'First + 1) := Unsigned_8( ( (MsgLen * 8 ) / 256 ) mod 256 );
27
28 -- next 8 octets are reserved for later use, currently "TMSR-RSA"
29 M00( M00'First + 3 .. M00'First + 10 ) := TMSR;
30 M00( M00'First + 3 .. M00'First + 10 ) := Raw_Types.OAEP_RESERVED;
31
32 -- random bits for padding, if Msg is less than maximum length
33 for I in 1 .. PadLen loop