smg_comms_raw_types 1
smg_comms_raw_types 2
smg_comms_raw_types 3
smg_comms_raw_types 4
smg_comms_raw_types 5
smg_comms_raw_types 6
smg_comms_raw_types 7
smg_comms_raw_types 8 with Interfaces; use Interfaces;
smg_comms_raw_types 9 with Ada.Unchecked_Conversion;
smg_comms_raw_types 10
smg_comms_raw_types 11 package Raw_Types is
smg_comms_packing... 12
smg_comms_packing... 13 Pragma Pure(Raw_Types);
smg_comms_raw_types 14
smg_comms_raw_types 15
smg_comms_rsa_oaep 16
smg_comms_rsa_oaep 17
smg_comms_rsa_oaep 18
smg_comms_rsa_oaep 19
smg_comms_rsa_oaep 20
smg_comms_rsa_oaep 21
smg_comms_rsa_oaep 22
smg_comms_rsa_oaep 23 RSA_KEY_OCTETS : constant Positive := 490;
smg_comms_rsa_oaep 24
smg_comms_rsa_oaep 25
smg_comms_raw_types 26
smg_comms_raw_types 27
smg_comms_packing... 28
smg_comms_packing... 29 SERPENT_OCTETS : constant Positive := 1472;
smg_comms_raw_types 30
smg_comms_raw_types 31
smg_comms_raw_types 32 RSA_PKT_OCTETS : constant Positive := 1470;
smg_comms_raw_types 33 RSA_MSG_OCTETS : constant Positive := 234;
smg_comms_raw_types 34 RSA_MSG_BITS : constant Positive := RSA_MSG_OCTETS * 8;
smg_comms_raw_types 35
smg_comms_raw_types 36
smg_comms_raw_types 37
smg_comms_raw_types 38 type Octets is array( Natural range <> ) of Interfaces.Unsigned_8;
smg_comms_raw_types 39
smg_comms_raw_types 40
smg_comms_raw_types 41 subtype Octets_1 is Octets( 1 .. 1 );
smg_comms_raw_types 42 subtype Octets_2 is Octets( 1 .. 2 );
smg_comms_raw_types 43 subtype Octets_4 is Octets( 1 .. 4 );
smg_comms_raw_types 44 subtype Octets_8 is Octets( 1 .. 8 );
smg_comms_raw_types 45
smg_comms_rsa_oaep 46
smg_comms_rsa_oaep 47 subtype RSA_len is Octets ( 1 .. RSA_KEY_OCTETS);
smg_comms_rsa_oaep 48 subtype RSA_half is Octets( 1 .. RSA_KEY_OCTETS/2);
smg_comms_rsa_oaep 49
smg_comms_raw_types 50
smg_comms_raw_types 51 subtype RSA_Pkt is Octets( 1 .. RSA_PKT_OCTETS );
smg_comms_raw_types 52 subtype RSA_Msg is Octets( 1 .. RSA_MSG_OCTETS );
smg_comms_raw_types 53
smg_comms_raw_types 54
smg_comms_raw_types 55
smg_comms_packing... 56 subtype Serpent_Pkt is Octets( 1 .. SERPENT_OCTETS );
smg_comms_packing... 57 subtype Serpent_Msg is Octets( 1 .. SERPENT_OCTETS );
smg_comms_raw_types 58
smg_comms_raw_types 59
smg_comms_raw_types 60 function Cast is new Ada.Unchecked_Conversion( Integer_8 , Octets_1 );
smg_comms_raw_types 61 function Cast is new Ada.Unchecked_Conversion( Octets_1 , Integer_8 );
smg_comms_raw_types 62 function Cast is new Ada.Unchecked_Conversion( Unsigned_8 , Octets_1 );
smg_comms_raw_types 63 function Cast is new Ada.Unchecked_Conversion( Octets_1 , Unsigned_8 );
smg_comms_raw_types 64
smg_comms_raw_types 65 function Cast is new Ada.Unchecked_Conversion( Integer_16 , Octets_2 );
smg_comms_raw_types 66 function Cast is new Ada.Unchecked_Conversion( Octets_2 , Integer_16 );
smg_comms_raw_types 67 function Cast is new Ada.Unchecked_Conversion( Unsigned_16, Octets_2 );
smg_comms_raw_types 68 function Cast is new Ada.Unchecked_Conversion( Octets_2 , Unsigned_16 );
smg_comms_raw_types 69
smg_comms_raw_types 70 function Cast is new Ada.Unchecked_Conversion( Integer_32 , Octets_4 );
smg_comms_raw_types 71 function Cast is new Ada.Unchecked_Conversion( Octets_4 , Integer_32 );
smg_comms_raw_types 72 function Cast is new Ada.Unchecked_Conversion( Unsigned_32, Octets_4 );
smg_comms_raw_types 73 function Cast is new Ada.Unchecked_Conversion( Octets_4 , Unsigned_32 );
smg_comms_raw_types 74
smg_comms_raw_types 75
smg_comms_raw_types 76 function Cast is new Ada.Unchecked_Conversion( Float, Octets_4 );
smg_comms_raw_types 77 function Cast is new Ada.Unchecked_Conversion( Octets_4, Float );
smg_comms_raw_types 78
smg_comms_raw_types 79 function Cast is new Ada.Unchecked_Conversion( Integer_64, Octets_8 );
smg_comms_raw_types 80 function Cast is new Ada.Unchecked_Conversion( Octets_8, Integer_64 );
smg_comms_raw_types 81 function Cast is new Ada.Unchecked_Conversion( Unsigned_64, Octets_8 );
smg_comms_raw_types 82 function Cast is new Ada.Unchecked_Conversion( Octets_8, Unsigned_64 );
smg_comms_raw_types 83
smg_comms_raw_types 84 end Raw_Types;