(15 . 11)(15 . 9)
38 OAEP_LENGTH_OCTETS : constant := Raw_Types.RSA_KEY_OCTETS;
39 OAEP_LENGTH_BITS : constant := OAEP_LENGTH_OCTETS * 8;
40 OAEP_HALF_OCTETS : constant := OAEP_LENGTH_OCTETS / 2;
41 TMSR_STR : constant String := "TMSR-RSA";
42 TMSR_STR : constant String := Raw_Types.OAEP_R_STR;
43 -- "TMSR-RSA" as unsigned_8 values:
44 TMSR : constant Raw_Types.Octets := (84,77,83,82,45,82,83,65);
45 MAX_LEN_MSG : constant Natural := OAEP_HALF_OCTETS -
46 TMSR_STR'Length - 3;
47 MAX_LEN_MSG : constant := Raw_Types.OAEP_MAX_LEN;
48
49 -- subtypes for OAEP encrypt/decrypt
50 subtype OAEP_Block is Raw_Types.Octets( 1 .. OAEP_LENGTH_OCTETS );