(13 . 6)(13 . 16)
1060 Pragma Pure(Raw_Types);
1061
1062 -- constants from SMG.COMMS standard specification
1063
1064 -- RSA key size in octets
1065 -- NB: this should MATCH the size of RSA key
1066 -- as defined in the rsa implementation in C!
1067 -- NOT imported here because:
1068 -- a. it's C code that should import this, not the other way around.
1069 -- b. it needs to be static here.
1070 RSA_KEY_OCTETS : constant Positive := 490;
1071
1072
1073 -- size of a serpent-encrypted packet and message, in octets
1074 -- note that this corresponds to 1472/16 = 92 Serpent blocks
1075 -- NB: lengths are the same!
(33 . 6)(43 . 10)
1077 subtype Octets_4 is Octets( 1 .. 4 );
1078 subtype Octets_8 is Octets( 1 .. 8 );
1079
1080 -- raw representations of RSA key components
1081 subtype RSA_len is Octets ( 1 .. RSA_KEY_OCTETS);
1082 subtype RSA_half is Octets( 1 .. RSA_KEY_OCTETS/2);
1083
1084 -- RSA packets and contained raw messages
1085 subtype RSA_Pkt is Octets( 1 .. RSA_PKT_OCTETS );
1086 subtype RSA_Msg is Octets( 1 .. RSA_MSG_OCTETS );