--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:18 by OpenVMS SDL EV3-3 -- Source: 24-FEB-1994 09:46:18 $1$DGA8085:[LIB_ADA.LIS]CIAOLDDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package CIAOLDDEF is -- module $CIAOLDDEF --+ -- CIAOLD - Compound Intrusion Analysis block -- -- Contains information about suspected and known intruders --- CIAOLD_K_TERMINAL : constant := 1; -- Unknown user at terminal CIAOLD_K_TERM_USER : constant := 2; -- Known username at terminal CIAOLD_K_NETWORK : constant := 3; -- Network source CIAOLD_K_USERNAME : constant := 4; -- Username of parent process CIAOLD_M_INTRUDER : constant := 16#00000001#; CIAOLD_K_LENGTH : constant := 160; -- Length of CIAOLD block CIAOLD_C_LENGTH : constant := 160; -- Length of CIAOLD block CIAOLD_S_CIAOLDDEF : constant := 160; type CIAOLD_FLAGS_TYPE is -- Breakin type flags record INTRUDER : BOOLEAN; -- Entry is an intruder FILLER_1 : UNSIGNED_31; end record; for CIAOLD_FLAGS_TYPE use record INTRUDER at 0 range 0 .. 0; FILLER_1 at 0 range 1 .. 31; end record; for CIAOLD_FLAGS_TYPE'SIZE use 32; CIAOLD_FLAGS_TYPE_INIT : constant CIAOLD_FLAGS_TYPE := (INTRUDER => FALSE, FILLER_1 => 0); type CIAOLD_TYPE is record FLINK : ADDRESS; -- Forward link to next block BLINK : ADDRESS; -- Backward link to previous block SIZE : UNSIGNED_WORD; -- Size of block TYP : UNSIGNED_BYTE; -- Structure type SUBTYP : UNSIGNED_BYTE; -- Structure subtype -- Source of breakin attempt FLAGS : CIAOLD_FLAGS_TYPE; -- Breakin type flags COUNT : UNSIGNED_LONGWORD; -- Count of attempts FILLER_1 : UNSIGNED_LONGWORD; -- Make TIME naturally aligned TIME : UNSIGNED_QUADWORD; -- Expiration time of entry DATA : STRING(1 .. 128); -- Data area end record; for CIAOLD_TYPE use record FLINK at 0 range 0 .. 31; BLINK at 4 range 0 .. 31; SIZE at 8 range 0 .. 15; TYP at 10 range 0 .. 7; SUBTYP at 11 range 0 .. 7; FLAGS at 12 range 0 .. 31; COUNT at 16 range 0 .. 31; FILLER_1 at 20 range 0 .. 31; TIME at 24 range 0 .. 63; DATA at 32 range 0 .. 1023; end record; for CIAOLD_TYPE'SIZE use 1280; CIAOLD_TYPE_INIT : constant CIAOLD_TYPE := (FLINK => ADDRESS_ZERO, BLINK => ADDRESS_ZERO, SIZE => 0, TYP => 0, SUBTYP => 0, FLAGS => CIAOLD_FLAGS_TYPE_INIT, COUNT => 0, FILLER_1 => 0, TIME => (0, 0), DATA => (others => ASCII.NUL)); end CIAOLDDEF;