(140 . 8)(140 . 8)
15 M00( M00'First ) := Entropy( Entropy'First );
16
17 -- next 2 octets hold the used length of Msg (number of octets)
18 M00( M00'First + 2) := Character'Val( ( MsgLen * 8 ) mod 255 );
19 M00( M00'First + 1) := Character'Val( ( (MsgLen * 8 ) / 255 ) mod 255 );
20 M00( M00'First + 2) := Character'Val( ( MsgLen * 8 ) mod 256 );
21 M00( M00'First + 1) := Character'Val( ( (MsgLen * 8 ) / 256 ) mod 256 );
22
23 -- next 8 octets are reserved for later use, currently "TMSR-RSA"
24 M00( M00'First + 3 .. M00'First + 10 ) := TMSR;
(268 . 7)(268 . 7)
26 XOR_Strings( X, HashR, M );
27
28 -- step 4: extract length and message
29 Len := Character'Pos( M( M'First + 1 ) ) * 255 +
30 Len := Character'Pos( M( M'First + 1 ) ) * 256 +
31 Character'Pos( M( M'First + 2 ) );
32 LenOctets := Len / 8;
33